program5.cbl

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

       IDENTIFICATION DIVISION.
       PROGRAM-ID. TEST-SUBCHAR.
       AUTHOR. TEIIKU.
      *
       ENVIRONMENT DIVISION.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 DAY-NUM PIC 9.
           88 MONDAY VALUE 1.
           88 TUESDAY VALUE 2.
           88 WEDNESDAY VALUE 3.
           88 THURSDAY VALUE 4.
           88 FRIDAY VALUE 5.
           88 SATURDAY VALUE 6.
           88 SUNDAY VALUE 7.
      *
       PROCEDURE DIVISION.
           DISPLAY 'PLS ENTER A NUMBER:'.
           ACCEPT DAY-NUM.
           IF MONDAY
               DISPLAY 'MONDAY'.
           IF TUESDAY DISPLAY 'TUESDAY'.
           IF WEDNESDAY DISPLAY 'WEDNESDAY'.
           IF THURSDAY DISPLAY 'THURSDAY'.
           IF FRIDAY DISPLAY 'FRIDAY'.
           IF SATURDAY DISPLAY 'SATURDAY'.
           IF SUNDAY DISPLAY 'SUNDAY'.
           STOP RUN.