RENAME キーワードを使用した例

図 1. RENAMES キーワードを使用したデータ記述仕様
....+....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

図 1 に示されている論理ファイルに対して COPY DDS は、 物理ファイルから得られるキーおよびキー名を生成します。

図 2. RENAME キーワードを使用
    *
     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).

MTH は物理ファイルから得られるキーなので、COPY ステートメントは、 フィールド名 MTH に接尾部 -DDS を追加します。