IDENTIFICATION DIVISION.
       PROGRAM-ID.  COPYCALL.
       AUTHOR. GROCER
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT PRINT-FILE ASSIGN TO PRINTER.
       DATA DIVISION.
       FILE SECTION.
       FD  PRINT-FILE
           LABEL RECORDS ARE STANDARD
           DATA RECORD IS PRINTZ.
       01  PRINTZ.
           05  FILLER      PIC X.
           05  MSG-PR      PIC X(40).
           05  FILLER      PIC X(10).
           05  ANS-PR      PIC ZZZ,ZZZ.
           05  FILLER      PIC X(22).
       WORKING-STORAGE SECTION.
       01  CONSTANTZ.
           05  FIRST-AMT   PIC 999         VALUE 100.
           05  SECOND-AMT  PIC 999         VALUE 200.
           05  THIRD-AMT   PIC 999         VALUE 300.
       01  WORK-AREAS.
           05  FIRST-ANS   PIC 9(5)        VALUE 0.
       01  INFO-TO-PASS.
           05  FIRST-ANS-PASS    PIC 9(5).
           05  CALC-ANS-BACK     PIC 9(6)  VALUE 0.
           05  NUM-TIMES-PASS    PIC 9     VALUE 1.
           05  IND-TO-PASS       PIC XXX   VALUE "YES".
       PROCEDURE DIVISION.
       MAINLINE.
           PERFORM A-100-INITIALIZE.
           PERFORM B-100-PROCESS
               2 TIMES.
           PERFORM C-100-TERMINATE.
           STOP RUN.
       A-100-INITIALIZE.
           OPEN OUTPUT PRINT-FILE.
       B-100-PROCESS.
           ADD FIRST-AMT SECOND-AMT THIRD-AMT
               GIVING FIRST-ANS.
           MOVE FIRST-ANS TO FIRST-ANS-PASS.
           CALL 'C:\PCOBWIN\COPYCALL\CALLED.INT' USING INFO-TO-PASS.
           IF IND-TO-PASS = "YES"
               MOVE FIRST-ANS-PASS TO ANS-PR
               MOVE "NOTHING DONE IN SUBROUTINE" TO MSG-PR
           ELSE
               MOVE CALC-ANS-BACK TO ANS-PR
               MOVE "CALCULATION DONE IN SUBROUTINE" TO MSG-PR.
           WRITE PRINTZ
               AFTER ADVANCING 1 LINES.
       C-100-TERMINATE.
           CLOSE PRINT-FILE.