データコミュニケーション機能を使用したCOBOLプログラムの例を,次に示します。
:
DATA DIVISION.
:
WORKING-STORAGE SECTION.
01 データ名1 PIC X(100).
01 データ名2 PIC X(100).
01 データ名3 PIC X(100).
:
COMMUNICATION SECTION.
CD 通信記述名1 FOR I-O
STATUS KEY IS データ名4.
CD 通信記述名2 FOR OUTPUT
STATUS KEY IS データ名5
SYMBOLIC TERMINAL IS データ名6
MAP NAME IS データ名7.
:
PROCEDURE DIVISION.
:
RECEIVE 通信記述名1 MESSAGE INTO データ名1. *> メッセージ受信
:
* 業務処理
:
SEND 通信記述名2 FROM データ名2 *> 分岐メッセージ送信
WITH EMI.
:
SEND 通信記述名1 FROM データ名3 *> 応答メッセージ送信
WITH EMI.
:
IF (エラー発生か?) THEN
ROLLBACK
END-IF.
: