CIS133C CLASS 7
SEQUENCE . . .
PERFORM W000-WRITE-OUTPUT.
MOVE WS-AMOUNT TO WS-TOTAL-AMOUNT.
ADD +1 TO WS-CNT.
MULTIPLY WS-FIELD-A BY WS-FIELD-B GIVING WS-FIELD-C.
SELECTION . . .
IF WS-AMT1 = WS-AMT2
MOVE WS-AMT2 TO WS-OUT-AMT.
IF WS-AMT1 = WS-AMT2
MOVE WS-AMT2 TO WS-OUT-AMT
ELSE
MOVE WS-AMT1 TO WS-OUT-AMT
END-IF.
ITERATION . . .
PERFORM C000-PROCESS-DATA
UNTIL EOF-IND = 'Y'.
PERFORM C000-PROCESS-DATA
WITH TEST AFTER
UNTIL END-OF-FILE IS EQUAL TO 'Y'
END-PERFORM
PERFORM X000-READ-INPUT 2 TIMES.
SCOPE
ENDING DELIMITER
COLLATING SEQUENCE
| TO COBOL BOOKS PAGE |
TO COBOL LINKS PAGE |
TO CLASS ASSIGNMENTS AND HANDOUTS PAGE |
TO COBOL NOTES PAGE |
TO HOME PAGE |
EMAIL ME AT HOME |
EMAIL ME AT WORK |
