DATA DIVISION（通信記述項）の指定

 
CD 通信記述名
   FOR {INPUT|I-O}
  〔STATUS KEY IS データ名1〕
  〔SYMBOLIC TERMINAL IS データ名2〕
  〔MESSAGE DATE IS データ名3〕
  〔MESSAGE TIME IS データ名4〕.
 

PROCEDURE DIVISION（通信文）の指定

 
RECEIVE 通信記述名
    〔FIRST〕 SEGMENT
       INTO 一意名1.
 

次に示すCALLインタフェースの機能を実現します。

• メッセージの受信　CBLDCMCF('RECEIVE△')

• 　FOR句
  次のどちらかの値を指定します。
  

  INPUT

  一方送信メッセージの受信

  I-O

  問い合わせメッセージの受信

• 　STATUS KEY句
  ステータスコードを受け取りたい場合に指定します。省略した場合は，ステータスコードを受け取りません。
  
• 　SYMBOLIC TERMINAL句
  入力元の論理端末名称を参照するためのデータ項目を指定します。
  
• 　MESSAGE DATE句
  メッセージを受信した日付を参照するデータ項目を指定します。YYMMDD（YY：西暦の下2けた　MM：月　DD：日）の形式で参照できます。
  
• 　MESSAGE TIME句
  メッセージを受信した時刻を参照するデータ項目を指定します。HHMMSS00（HH：時　MM：分　SS：秒　00は固定）の形式で参照できます。
  

• 　FIRST
  先頭セグメントを受信する場合に指定します。
  
• 　一意名1
  セグメントを受信するデータ項目を指定します。一意名1の形式を次に示します。
  

  

ステータスコード	意味
00000	正常に終了しました。
71000	先頭セグメントを受信するRECEIVE文を2回以上呼び出しています。 中間セグメントまたは最終セグメントを受信する場合は，FIRSTを指定しないでRECEIVE文を呼び出してください。
71001	メッセージの最終セグメントを受信したあとで，次のセグメントを受信するRECEIVE文を呼び出しています。直前に呼び出したRECEIVE文でメッセージはすべて受信しました。このステータスコードが返されたあとに，再びRECEIVE文を呼び出した場合は，ステータスコード72000が返されます。
71002	メッセージキューからの入力処理中に障害が発生しました。
	メッセージキューが閉塞されています。
	メッセージキューが割り当てられていません。
	MCF終了処理中のため，メッセージの受信を受け付けられません。
71108	メッセージ受信に必要な管理テーブルが確保できませんでした。
	プロセスのローカルメモリが不足しています。
72000	＜MHPの実行でリターンした場合＞ 先頭セグメントを受信するRECEIVE文を呼び出す前に，中間セグメントまたは最終セグメントを受信するRECEIVE文を呼び出しています。先頭セグメントを受信する場合は，FIRSTを指定してRECEIVE文を呼び出してください。 ステータスコード71001が返されたあとで，RECEIVE文を呼び出しています。
	＜SPPの実行でリターンした場合＞ SPPではRECEIVE文を呼び出せません。
	ステータスコード71001が返されたあとに，再びRECEIVE文を呼び出しました。
72001	SYMBOLIC TERMINAL 句に設定した論理端末名称が間違っています。
	RECEIVE文を呼び出せない論理端末を設定しています。
72013	一意名1のLの指定値を超えるセグメントを受信しました。一意名1のLの指定値を超えた部分は切り捨てられました。
72016	WAITING に設定した値が間違っています。
72024	FOR句に設定した値が間違っています。
72036	一意名1のLが不足しています。5バイト以上の領域を確保してください。
上記以外	プログラムの破壊などによる，予期しないエラーが発生しました。