program5.cbl

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

       IDENTIFICATION DIVISION.
       PROGRAM-ID. ATE.
       AUTHOR. TEIIKU.
      *
       ENVIRONMENT DIVISION.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 DATE-NUMBER PIC 9(8).
       01 DATE-EDITED PIC 9999B99B99.
      *
       PROCEDURE DIVISION.
       MOVE 20080826 TO DATE-NUMBER.
       MOVE DATE-NUMBER TO DATE-EDITED.
       DISPLAY 'TADAY IS :',DATE-EDITED.
       STOP RUN.