program12.cbl

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

       IDENTIFICATION DIVISION.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 STR1 PIC X(10).
       01 STR2 PIC X(10).
       01 RESULT PIC S99V99.
       01 RESULTS PIC $99.99.
       PROCEDURE DIVISION.
       MOVE '12.58' TO STR1.
       MOVE '-11.98' TO STR2.
       COMPUTE RESULT =  FUNCTION NUMVAL(STR1)+FUNCTION NUMVAL(STR2).
      *DISPLAY RESULT.
       MOVE RESULT TO RESULTS.
       DISPLAY RESULTS.
       STOP RUN.