program3.cbl

来自「cobol大机操作语言的历程」· CBL 代码 · 共 32 行

       IDENTIFICATION DIVISION.
       PROGRAM-ID. TEST-SUBCHAR.
       AUTHOR. TEIIKU.
      *
       ENVIRONMENT DIVISION.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NUM1 PIC 99.
       01 NUM2 PIC 99.
       01 REAL-RESULT PIC 999.
       01 RESULT PIC 99.
       01 OVER-FLOW-FLAG PIC X VALUE 'N'.
      *
       PROCEDURE DIVISION.

       MOVE 56 TO NUM1.
       MOVE 88 TO NUM2.
       ADD NUM1 TO NUM2 GIVING REAL-RESULT.
       DISPLAY 'REAL RESULT:',REAL-RESULT.
       COMPUTE NUM2 = 1 + 3.
       DISPLAY NUM2.
       ADD NUM1 TO NUM2 GIVING RESULT
           ON SIZE ERROR DISPLAY 'OVER FLOW!' PERFORM OVER-FLOW-ROUTINE.
           IF OVER-FLOW-FLAG = 'N'
               DISPLAY 'CORRECT RESULT:',RESULT
           END-IF.
           STOP RUN.
       OVER-FLOW-ROUTINE.
           MOVE 'Y' TO OVER-FLOW-FLAG.
           DISPLAY 'TRUNCATED RESULT:',RESULT.