Code Examples

Assume the existence of disk directory CODELIB. In directory CODELIB is file ENROLLREC. The contents of ENROLLREC are:

01 ENROLLMENT-RECORD.
    05 STUDENT-NAME     PIC X(30).
    05 STUDENT-ADDR     PIC X(50).
    05 STUDENT-GPA      PIC 99V9.
    05 SID              PIC 9(7).

Code example 1:

IDENTIFICATION DIVISION.
PROGRAM-ID.  COPY-EXAMPLE-1.
...
DATA DIVISION.
FILE SECTION.
FD  SCIENCE-DEPT-ENROLLMENT-FILE.
COPY ENROLLREC IN "LIBRARY/CODELIB".
...

Code compiled after COPY substitutions:

...
DATA DIVISION.
FILE SECTION.
FD SCIENCE-DEPT-ENROLLMENT-FILE.
01 ENROLLMENT-RECORD.
    05 STUDENT-NAME     PIC X(30).
    05 STUDENT-ADDR     PIC X(30).
    05 STUDENT-GPA      PIC 99V9.
    05 SID              PIC 9(7).
...

Code example 2:

IDENTIFICATION DIVISION.
PROGRAM-ID.  COPY-EXAMPLE-2.
...
DATA DIVISION.
FILE SECTION.
FD  SCIENCE-DEPT-ENROLLMENT-FILE.
COPY ENROLLREC
   IN "LIBRARY/CODELIB"
      REPLACING ==SID==  BY ==STUDENT-ID==,
                ==9(7)== BY ==9(9)==.
...

Compiled code after COPY/REPLACING substitutions:

...
DATA DIVISION.
FILE SECTION.
FD  SCIENCE-DEPT-ENROLLMENT-FILE.
01  ENROLLMENT-RECORD.
    05  STUDENT-NAME     PIC X(30).
    05  STUDENT-ADDR     PIC X(30).
    05  STUDENT-GPA      PIC 99V9.
    05  STUDENT-ID       PIC 9(9).
...