IDENTIFICATION DIVISION.
       PROGRAM-ID. CALLED.
       AUTHOR. GROCER.
       DATA DIVISION.
       LINKAGE SECTION.
       01  INFO-PASSED.
           05  FIRST-ANS-PASSED    PIC 9(5).
           05  CALC-ANS-PASSED     PIC 9(6).
           05  NUM-TIMES-PASSED    PIC 9.
           05  IND-PASSED          PIC XXX.
       PROCEDURE DIVISION USING INFO-PASSED.
       SUB-MAIN.
           PERFORM A-100-PROCESS.
           EXIT PROGRAM.
       A-100-PROCESS.
           IF NUM-TIMES-PASSED = 1
                ADD 1 TO NUM-TIMES-PASSED
           ELSE
                MULTIPLY FIRST-ANS-PASSED BY 100
                    GIVING CALC-ANS-PASSED
                MOVE "NO " TO IND-PASSED.