Example Using RENAME Keyword

Figure 1. Data Description Specifications Using the RENAMES Keyword
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
     A               LOGICAL FILE LF2 FOR RENAME KEYWORD EXAMPLES
     A
     A          R RECORD2                   PFILE(PF1)
     A
     A            MONTH                     RENAME(MTH)
     A
     A          K MTH

For the logical file described by Figure 1, COPY DDS generates a key and key name derived from the physical file:

Figure 2. Using the RENAME Keyword
    *
     FD LF2 LABEL RECORDS ARE STANDARD.
     01  LOG-RECORD.
                 COPY DDS-ALL-FORMATS OF LF2.
       05  LF2-RECORD PIC X(2).
   *  I-O FORMAT:RECORD2    FROM FILE LF2         OF LIBRARY COPYDDS
   *
   *THE KEY DEFINITIONS FOR RECORD FORMAT  RECORD2
   *  NUMBER               NAME              RETRIEVAL    TYPE   ALTSEQ
   *   0001  MTH-DDS                          ASCENDING     AN     NO
   *         KEY NAME ORIGINATES FROM PHYSICAL FILE
       05  RECORD2      REDEFINES LF2-RECORD.
           06 MONTH                PIC X(2).
           06 MTH-DDS REDEFINES MONTH PIC X(2).

The COPY statement adds the suffix -DDS to the field name MTH because MTH is a key that originates from the physical file.