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.