program1.cbl

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

       IDENTIFICATION DIVISION.
       PROGRAM-ID. TEST-SUBCHAR.
       AUTHOR. TEIIKU.
      *
       ENVIRONMENT DIVISION.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 DATES PIC X(10).
       01 YEAR PIC X(4).
       01 MONTH PIC XX.
       01 DAYS PIC XX.
      *
       PROCEDURE DIVISION.
       MOVE '2008/08/27' TO DATES.
       MOVE DATES(1:4) TO YEAR.
       MOVE DATES(6:2) TO MONTH.
       MOVE DATES(9:2) TO DAYS.
       DISPLAY 'DATE:',DATES.
       DISPLAY 'YEAR:',YEAR.
       DISPLAY 'MONTH:',MONTH.
       DISPLAY 'DAY:',DAYS.
       STOP RUN.