program8.cbl

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

       IDENTIFICATION DIVISION.
       PROGRAM-ID. TEST-UNSTRING.
       AUTHOR. TEIIKU.
      *
       ENVIRONMENT DIVISION.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 DATE-S PIC 9999/99/99.
       01 YEAR PIC 9999.
       01 MONTH PIC 99.
       01 DAYY PIC 99.
      *
       PROCEDURE DIVISION.
       MOVE 20080101 TO DATE-S.
       UNSTRING
           DATE-S DELIMITED BY '/'
           INTO YEAR MONTH DAYY.
       DISPLAY 'DAY:',DAYY.
       DISPLAY 'MONTH:',MONTH.
       DISPLAY 'YEAR:',YEAR.
       STOP RUN.