program4.cbl

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

       IDENTIFICATION DIVISION.
      *
       ENVIRONMENT DIVISION.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 DATE PIC S99.
      *
       PROCEDURE DIVISION.
       MOVE -10 TO NUM.
       ADD 10 TO NUM.
       DISPLAY NUM.
       STOP RUN.