....+....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 は、 物理ファイルから得られるキーおよびキー名を生成します。
*
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 を追加します。