....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
A LOGICAL FILE LF3 FOR SST KEYWORD EXAMPLES
A
A R RECORD3 PFILE(PF1)
A
A YY I SST(YEAR 2 2)
A
A K YY
図 1 に示されている論理ファイルに対して COPY DDS は、次の仕様を生成します。
*
FD LF3 LABEL RECORDS ARE STANDARD.
01 LOG-RECORD.
COPY DDS-ALL-FORMATS OF LF3.
05 LF3-RECORD PIC X(2).
* I-O FORMAT:RECORD3 FROM FILE LF3 OF LIBRARY COPYDDS
*
*THE KEY DEFINITIONS FOR RECORD FORMAT RECORD3
* NUMBER NAME RETRIEVAL TYPE ALTSEQ
* 0001 YY ASCENDING AN NO
05 RECORD3 REDEFINES LF3-RECORD.
06 YY PIC X(2).
YY は物理ファイルから得られるキーではなく、 また ILE COBOL の予約語でもないため、COPY ステートメントは、フィールド名 YY に接尾部を追加しません。