43 lines
1.3 KiB
COBOL
43 lines
1.3 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. CTESTP_ADD3.
|
|
AUTHOR. STEPHEN CONNOLLY.
|
|
INSTALLATION. Tiny Cobol Compiler Project.
|
|
SECURITY. NONE.
|
|
* TEST ADD VERB FORMAT 3.
|
|
|
|
ENVIRONMENT DIVISION.
|
|
* INPUT-OUTPUT SECTION.
|
|
* FILE-CONTROL.
|
|
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
|
|
WORKING-STORAGE SECTION.
|
|
01 WS-VARIABLES.
|
|
05 WS-DATA PIC X(5).
|
|
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
|
|
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
|
|
05 WS-INT3 PIC S9(9) COMP.
|
|
|
|
01 WS-VARIABLE2.
|
|
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
|
|
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
|
|
|
|
PROCEDURE DIVISION.
|
|
000-MAIN.
|
|
ADD CORRESPONDING WS-INT1 of WS-VARIABLES TO WS-INT2 of WS-VARIABLES ROUNDED
|
|
ON SIZE ERROR
|
|
MOVE "FAIL" TO WS-DATA of WS-VARIABLES
|
|
NOT ON SIZE ERROR
|
|
MOVE "PASS" TO WS-DATA OF WS-VARIABLES
|
|
END-ADD.
|
|
DISPLAY WS-DATA OF WS-VARIABLES.
|
|
ADD CORR WS-INT1 OF WS-VARIABLES TO WS-INT2 OF WS-VARIABLES ROUNDED
|
|
ON SIZE ERROR
|
|
MOVE "FAIL" TO WS-DATA OF WS-VARIABLES
|
|
NOT ON SIZE ERROR
|
|
MOVE "PASS" TO WS-DATA of WS-VARIABLES
|
|
END-ADD.
|
|
DISPLAY WS-DATA of WS-VARIABLES.
|
|
STOP RUN.
|