22.3　データコミュニケーション機能を使用したCOBOLプログラムの例

データコミュニケーション機能を使用した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.
                :