program5.cbl

cobol大机操作语言的历程

       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.