COBOL（コボル）言語の予約語CRT　STATUSを使ったACCEPT命令の実行状態の取得とは

CRTは画面、STATUSは状態という意味です。COBOL（コボル）言語のCRT　STATUS句には、ACCEPT命令の実行状態を格納するデータ項目を指定する機能があります。

CRT　STATUS句の形式

CRT　STATUS句を指定すると、ACCEPT命令を実行したときの実行状態を取得することができます。

■書式

　CRT　STATUS　IS　データ項目名

■構文規則

＜データ項目名＞

ACCEPT命令の実行結果を格納するデータ項目名を指定します。データ項目は基本数字データ項目、または集団項目でなくてはなりません。

■使用例

CRT　STATUS句を使用し、ACCEPT命令の実行結果を表示するプログラム例をご紹介します。

このプログラムは、コンソールにエンターキーの入力を促すメッセージを表示したのち、ACCEPT命令が実行されると、その実行結果を表示するプログラムです。

■実行結果

はじめにエンターキーの入力を促すメッセージが表示されます。

エンターキーを押してみます。

ACCEPT命令の実行状態の「0000」が表示され、プログラムが終了しました。

CRT　STATUS句は、ACCEPT命令の実行状態を格納するデータ項目を指定する句で、ENVIRONMENT　DIVISIONの CONFIGURATION SECTIONの SPECIAL-NAMESに記述します。

CRT　STATUS句で指定するデータ項目は、基本数字データ項目、または集団項目になります。

■CRT　STATUS句によって得られるCRT状態の値

CRT　STATUS句で指定したデータ項目が数値データ項目の場合、ACCEPT文で指定するCONTROL　KEYによって返却される値が設定されます。

CRT　STATUS句で指定したデータ項目が集団項目の場合は、最初の1文字目のCRT状態キー１と、2文字のCRT状態キー２には、以下の表の値が設定され、3文字目のCRT状態キー3には0から255まで値が設定されます。CRT状態キー3の値は、ACCEPT文で指定するCONTROL　KEYによって返却される値と同じです。

CRT　STATUS句で指定するCRT状態を格納するデータ項目のCRT状態キー2は、ACCEPT命令の実行状態が正常な場合にはCOBOLの数字データが格納されますが、実行状態が異常な場合には16進数の数値が格納されることに注意してください。

CRT　STATUS句を使うことによって、ACCEPT命令の実行結果によって処理を分岐させることができます。

では、ACCEPT命令の実行結果が正常ならば、入力された商品番号に該当する商品名を表示し、ACCEPT命令の実行結果が異常ならば、エラーメッセージを表示するプログラム例をご紹介します。

******************************************************************
* Author:
* Date:
* Purpose:
* Tectonics: cobc
******************************************************************
 IDENTIFICATION DIVISION.
 PROGRAM-ID. CRT-STATUS-SAMPLE2.
 
 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 SPECIAL-NAMES.
   CURSOR IS CURSOR-POSITION
   CRT STATUS IS CRT-DATA.
 
 DATA DIVISION.
 WORKING-STORAGE SECTION.
 01 CURSOR-POSITION      PIC X(6).
 01 CRT-DATA             PIC 9(4).
 01 WARNING              PIC X(40)
     VALUE "商品番号を入力してください　1 or 2　".
 01 INPUT-RESULT         PIC X(1).
 01 OUTPUT-RESULT        PIC X(10).
 
 SCREEN  SECTION.
 01  CONSOLE-SCREEN
   LINE 12 COLUMN 20.
   05  WARNING-STRING       PIC X(40)
     FROM WARNING.
   05  INPUT-RESULT-SCREEN
     LINE 14 COLUMN 30    PIC X(1)
     TO INPUT-RESULT.
   05  OUTPUT-RESULT-SCREEN
     LINE 14 COLUMN 38    PIC X(10)
     FROM OUTPUT-RESULT.
 
*-------------------------------------------
*　主手続
*-------------------------------------------
 PROCEDURE DIVISION.
   MOVE "014037" TO CURSOR-POSITION.
   ACCEPT CONSOLE-SCREEN.
 
   IF  CRT-DATA = 0 THEN
     DISPLAY "正常入力されました" AT LINE 16 COLUMN 38
   ELSE
     DISPLAY "エラーが発生しました" AT LINE 16 COLUMN 38
     GO TO END-PROC
   END-IF.
 
   IF  INPUT-RESULT = 1 THEN
     MOVE "バナナ" TO OUTPUT-RESULT
   ELSE IF INPUT-RESULT = 2 THEN
     MOVE "メロン" TO OUTPUT-RESULT
   END-IF
   END-IF.
 
   DISPLAY CONSOLE-SCREEN.
 
 END-PROC.
   STOP-RUN.
 END PROGRAM CRT-STATUS-SAMPLE2.

■実行結果

はじめに商品番号入力を促すメッセージが表示されます。

数字の1を入力してみます。

商品名「バナナ」と正常入力のメッセージが表示され、プログラムが終了しました。

※サンプルプログラムの実行環境は、cobc（GunCOBOL）2.0.0です。実行環境の違いによっては、実行結果が異なる場合があります。

COBOL言語において、CRT　STATUS句の使い方の習得は必須ではありませんが、使用できると画面処理の幅が広がります。もし、習得していない場合には、これを機会に習得してみてはいかがでしょうか。

• 前の記事へ
• 次の記事へ

この記事を読んだ人は、こちらの記事も読んでいます

あなたのCOBOL技術を活かしませんか？

株式会社COBOLの求人・転職・募集情報を見る

COBOL入門のカテゴリー

｜　 基礎 　｜　 応用 　｜　 勉強 　｜　 試験　｜　 辞書 　｜