ACCEPT语句

ACCEPT语句用于接收数据。可从终端接收数据，也可接收系统产生的相应数据。

 

IDENTIFICATION DIVISION.
PROGRAM-ID. ACCEPT1.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 INPUT-DATA.
     05 INPUT-NUM1 PIC X(3).
     05 INPUT-NUM2 PIC X(3).
     05 INPUT-NUM3 PIC X(3).
     05 INPUT-NUM4 PIC X(3).
PROCEDURE DIVISION.
            ACCEPT INPUT-NUM1.
            ACCEPT INPUT-NUM2.
            ACCEPT INPUT-NUM3.
            ACCEPT INPUT-NUM4.
            DISPLAY ' INPUT-NUM1 :' INPUT-NUM1.
            DISPLAY ' INPUT-NUM2 :' INPUT-NUM2.
            DISPLAY ' INPUT-NUM3 :' INPUT-NUM3.
            DISPLAY ' INPUT-NUM4:'  INPUT-NUM4.
            STOP RUN.

若在终端输入DAI，运行后则显示：
INPUT-NUM1 : DAI
INPUT-NUM2 : DAI
INPUT-NUM3 : DAI
INPUT-NUM4 : DAI