NB-076
122 lines
3.9 KiB
COBOL
122 lines
3.9 KiB
COBOL
IDENTIFICATION DIVISION.
|
||
PROGRAM-ID. CompOverflow.
|
||
*> COMP/数值溢出測試
|
||
*> Coverage: NP-A004 (COMP赋值溢出), KB-A002 (累加器溢出SIZE ERROR)
|
||
|
||
ENVIRONMENT DIVISION.
|
||
DATA DIVISION.
|
||
WORKING-STORAGE SECTION.
|
||
|
||
*> NP-A004: COMP溢出
|
||
01 WS-COMP-SMALL PIC S9(4) USAGE COMP.
|
||
01 WS-COMP-BIG PIC S9(8) USAGE COMP.
|
||
01 WS-COMP-RESULT PIC S9(4) USAGE COMP.
|
||
01 WS-OVERFLOW-VAL PIC 9(10) VALUE 999999.
|
||
|
||
*> KB-A002: 累加器溢出(SIZE ERROR)
|
||
01 WS-ACCUMULATOR PIC 9(4) VALUE 0.
|
||
01 WS-BIG-AMOUNT PIC 9(6).
|
||
01 WS-VALUES.
|
||
05 WS-VAL-1 PIC 9(6) VALUE 5000.
|
||
05 WS-VAL-2 PIC 9(6) VALUE 5000.
|
||
05 WS-VAL-3 PIC 9(6) VALUE 50000.
|
||
01 WS-I PIC 9(2).
|
||
01 WS-PASS PIC 9(2) VALUE 0.
|
||
01 WS-FAIL PIC 9(2) VALUE 0.
|
||
|
||
PROCEDURE DIVISION.
|
||
MAIN.
|
||
DISPLAY "COMP-OVERFLOW: Starting overflow tests"
|
||
|
||
*> NP-A004: COMP赋值溢出
|
||
DISPLAY "NP-A004: COMP assignment overflow"
|
||
|
||
*> Test 1: COMP(4)正常値
|
||
MOVE 1000 TO WS-COMP-SMALL.
|
||
MOVE 1000 TO WS-COMP-RESULT.
|
||
IF WS-COMP-RESULT = 1000
|
||
ADD 1 TO WS-PASS
|
||
DISPLAY "NP-A004-1: COMP(4)=1000 PASS"
|
||
ELSE
|
||
ADD 1 TO WS-FAIL
|
||
DISPLAY "NP-A004-1: FAIL"
|
||
END-IF.
|
||
|
||
*> Test 2: COMP(4)正常辺界値
|
||
MOVE 9999 TO WS-COMP-SMALL.
|
||
MOVE 9999 TO WS-COMP-RESULT.
|
||
IF WS-COMP-RESULT = 9999
|
||
ADD 1 TO WS-PASS
|
||
DISPLAY "NP-A004-2: COMP(4)=9999 PASS"
|
||
ELSE
|
||
ADD 1 TO WS-FAIL
|
||
DISPLAY "NP-A004-2: FAIL"
|
||
END-IF.
|
||
|
||
*> Test 3: COMP(4)負數
|
||
MOVE -9999 TO WS-COMP-SMALL.
|
||
MOVE -9999 TO WS-COMP-RESULT.
|
||
IF WS-COMP-RESULT = -9999
|
||
ADD 1 TO WS-PASS
|
||
DISPLAY "NP-A004-3: COMP(4)=-9999 PASS"
|
||
ELSE
|
||
ADD 1 TO WS-FAIL
|
||
DISPLAY "NP-A004-3: FAIL"
|
||
END-IF.
|
||
|
||
*> Test 4: COMP(8)大値
|
||
MOVE 99999999 TO WS-COMP-BIG.
|
||
IF WS-COMP-BIG = 99999999
|
||
ADD 1 TO WS-PASS
|
||
DISPLAY "NP-A004-4: COMP(8)=99999999 PASS"
|
||
ELSE
|
||
ADD 1 TO WS-FAIL
|
||
DISPLAY "NP-A004-4: FAIL"
|
||
END-IF.
|
||
|
||
*> KB-A002: 累加器溢出（SIZE ERROR）
|
||
DISPLAY "KB-A002: Accumulator overflow (SIZE ERROR)"
|
||
MOVE 0 TO WS-ACCUMULATOR.
|
||
|
||
*> 故意溢出：5000+5000+50000 = 60000 > 9999
|
||
PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 3
|
||
IF WS-I = 1
|
||
MOVE WS-VAL-1 TO WS-BIG-AMOUNT
|
||
ELSE IF WS-I = 2
|
||
MOVE WS-VAL-2 TO WS-BIG-AMOUNT
|
||
ELSE
|
||
MOVE WS-VAL-3 TO WS-BIG-AMOUNT
|
||
END-IF
|
||
|
||
ADD WS-BIG-AMOUNT TO WS-ACCUMULATOR
|
||
ON SIZE ERROR
|
||
DISPLAY "KB-A002: SIZE ERROR at ADD " WS-BIG-AMOUNT
|
||
" acc=" WS-ACCUMULATOR
|
||
ADD 1 TO WS-PASS
|
||
NOT ON SIZE ERROR
|
||
DISPLAY "KB-A002: ADD " WS-BIG-AMOUNT
|
||
" -> acc=" WS-ACCUMULATOR
|
||
END-ADD
|
||
END-PERFORM.
|
||
|
||
IF WS-PASS >= 1
|
||
ADD 1 TO WS-PASS
|
||
DISPLAY "KB-A002: PASS - SIZE ERROR handled"
|
||
ELSE
|
||
ADD 1 TO WS-FAIL
|
||
DISPLAY "KB-A002: FAIL"
|
||
END-IF.
|
||
|
||
DISPLAY " "
|
||
DISPLAY "COMP-OVERFLOW: PASS=" WS-PASS " FAIL=" WS-FAIL
|
||
IF WS-FAIL = 0
|
||
DISPLAY "COMP-OVERFLOW: ALL PASSED"
|
||
STOP RUN RETURNING 0
|
||
ELSE
|
||
DISPLAY "COMP-OVERFLOW: FAILED"
|
||
STOP RUN RETURNING 1
|
||
END-IF
|
||
.
|
||
|
||
END PROGRAM CompOverflow.
|