COBOL/ACCEPTステートメント


一般的な記述
 
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.
 
解説
プログラム中の「ACCEPT NENREI」という命令は画面から年齢を入力してNENREIに格納する命令です。
「01  NENREI  PIC 9(3).」は、NENREIという項目名を数字3桁の属性として定義した記述です。

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です