....+....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
For the logical file described by Figure 1, COPY DDS generates the following specifications:
*
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).
The COPY statement does not add a suffix to the field name YY because YY is neither a key that originates from the physical file nor an ILE COBOL reserved word.