program4.cbl

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

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.


⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?