COBOL Manual for TNS and TNS/R Programs

Source Text Manipulation
HP COBOL Manual for TNS and TNS/R Programs—522555-006
10-6
COPY Statement
In Example 10-1, EMPLOYEE-DETAIL of the COPY statement is not qualified because
the COPY library is named COPYLIB and resides on the current volume and
subvolume for the compile process.
Example 10-1. COPY Statement
Contents of COPY library COPYLIB:
?SECTION EMPLOYEE-DETAIL
01 EMP-DATA-IN.
05 EMP-NO PIC X(05).
05 EMP-NAME PIC X(20).
05 DEPT PIC X(03).
05 JOB-CLASS PIC X(05).
05 HOURLY-RATE PIC 9(3)V99.
05 DEDUCTIONS PIC 9(3)V99.
05 SALARY PIC 9(7)V99.
Source COBOL code:
...
DATA DIVISION.
FILE SECTION.
FD EMP-MASTER
COPY EMPLOYEE-DETAIL.
FD LIST-OUT
...
Source listing produced by compiler (lines from the COPY library are marked by < in the
compilation listing):
...
DATA DIVISION.
FILE SECTION.
FD EMP-MASTER
*COPY EMPLOYEE-DETAIL.
< 01 EMP-DATA-IN.
< 05 EMP-NO PIC X(05).
< 05 EMP-NAME PIC X(20).
< 05 DEPT PIC X(03).
< 05 JOB-CLASS PIC X(05).
< 05 HOURLY-RATE PIC 9(3)V99.
< 05 DEDUCTIONS PIC 9(3)V99.
< 05 SALARY PIC 9(7)V99.
FD list-out
...