Data Build Manual

Field Conversion
Customizing Data Build
099331 Tandem Computers Incorporated 6–3
b. Comment out all FD statements except for the main file. Move COPY
statements for each additional format to below the main FD statement.
FD F-IN-DEMO01
LABEL RECORDS ARE OMITTED.
COPY IN-DEMO01 OF COBDEFS.
COPY IN-DEMO01A OF COBDEFS.
FD F-OUT-DEMO01
LABEL RECORDS ARE OMITTED.
COPY OUT-DEMO01 OF COBDEFS.
COPY OUT-DEMO01A OF COBDEFS.
*FD F-IN-DEMO01A
* LABEL RECORDS ARE OMITTED.
*COPY IN-DEMO01A OR COBDEFS.
*FD F-OUT-DEMO01A
* LABEL RECORDS ARE OMITTED.
*COPY OUT-DEMO01A OF COBDEFS.
c. Comment out all PERFORM PROC-record name statements in MAIN-CTL
except one PERFORM for the main file.
PROCEDURE DIVISION.
MAIN-CTL.
MOVE WK-STOR TO SAVE-WK-STOR.
PERFORM PROG-BANNER.
PERFORM TIME-START.
PERFORM PROC-DEMO01 THRU PROC-DEMO01-EXIT.
* PERFORM PROC-DEMO01A THRU PROC-DEMO01A-EXIT.
END JOB.
PERFORM TIME-STOP.
STOP RUN.