program4.cbl

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

       IDENTIFICATION DIVISION.
       PROGRAM-ID. TEST-SUBCHAR.
       AUTHOR. TEIIKU.
      *
       ENVIRONMENT DIVISION.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 INPUT-DATA PIC 9.
      *
       PROCEDURE DIVISION.
       DISPLAY 'ENTER A CHARACTER TO SLECT A FUNCTION'.
       ACCEPT INPUT-DATA.
           EVALUATE INPUT-DATA
           WHEN 1
               DISPLAY 'FUNCTION 1'
           WHEN 2
               DISPLAY 'FUNCTION 2'
           WHEN 3
               DISPLAY 'FUNCTION 3'
           WHEN 4
               DISPLAY 'FUNCTION 4'
           WHEN OTHER
               DISPLAY 'ERROR!'
           END-EVALUATE.
           STOP RUN.