一般的な記述
ACCEPT 項目名 〔FROM【SYSIPT・CONSOLE・DATE・TIME】〕
以下は、ACCEPT(入力命令)を使用したプログラムの例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE02.
*ACCEPT(出力命令)
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
*
01 NENREI PIC 9(3).
PROCEDURE DIVISION.
MAIN.
DISPLAY “年齢を入力してください”
ACCEPT NENNREI
DISPLAY “入力された年齢は” NENREI “才です。”
STOP RUN.
PROGRAM-ID. SAMPLE02.
*ACCEPT(出力命令)
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
*
01 NENREI PIC 9(3).
PROCEDURE DIVISION.
MAIN.
DISPLAY “年齢を入力してください”
ACCEPT NENNREI
DISPLAY “入力された年齢は” NENREI “才です。”
STOP RUN.
解説
プログラム中の「ACCEPT NENREI」という命令は画面から年齢を入力してNENREIに格納する命令です。
「01 NENREI PIC 9(3).」は、NENREIという項目名を数字3桁の属性として定義した記述です。
コメントを書く