46 lines
1.3 KiB
COBOL
46 lines
1.3 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. PERF04.
|
|
|
|
ENVIRONMENT DIVISION.
|
|
CONFIGURATION SECTION.
|
|
* INPUT-OUTPUT SECTION.
|
|
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
WORKING-STORAGE SECTION.
|
|
01 WS-COUNTERS.
|
|
05 WS-TEST-COUNTER PIC 9(4).
|
|
05 WS-TEST-COUNTER-EXPECTED PIC 9(4).
|
|
05 WS-PERFORM-COUNT PIC S9(4).
|
|
|
|
PROCEDURE DIVISION.
|
|
0000-PROGRAM-ENTRY.
|
|
MOVE 0 TO WS-TEST-COUNTER.
|
|
MOVE 11 TO WS-PERFORM-COUNT.
|
|
MOVE 11 TO WS-TEST-COUNTER-EXPECTED.
|
|
PERFORM B000-PERF1 WS-PERFORM-COUNT TIMES.
|
|
|
|
PERFORM E000-SUMMARY.
|
|
MOVE 0 TO WS-TEST-COUNTER.
|
|
MOVE 0 TO WS-PERFORM-COUNT.
|
|
MOVE 0 TO WS-TEST-COUNTER-EXPECTED.
|
|
PERFORM B000-PERF1 WS-PERFORM-COUNT TIMES.
|
|
PERFORM E000-SUMMARY.
|
|
|
|
MOVE 0 TO WS-TEST-COUNTER.
|
|
MOVE -7 TO WS-PERFORM-COUNT.
|
|
MOVE 0 TO WS-TEST-COUNTER-EXPECTED.
|
|
PERFORM B000-PERF1 WS-PERFORM-COUNT TIMES.
|
|
PERFORM E000-SUMMARY.
|
|
STOP RUN.
|
|
|
|
DISPLAY "P002:(IL):(FA):PROGRAM RAN PAST STOP RUN".
|
|
|
|
B000-PERF1.
|
|
ADD 1 TO WS-TEST-COUNTER.
|
|
|
|
E000-SUMMARY.
|
|
DISPLAY "P005:(" WS-TEST-COUNTER "):("
|
|
WS-TEST-COUNTER-EXPECTED "):"
|
|
"PERFORM PIC S9(4) TIMES TEST".
|