1.3.1　形式

PROGRAM-ID. プログラム名.
LINKAGE SECTION.
01 一意名1.
  02 データ名A  PIC X(n).
01 一意名2.
  02 データ名B  PIC S9(9) COMP.
01 一意名3.
  02 データ名C  PIC X(n).
01 一意名4.
  02 データ名D  PIC S9(9) COMP.
01 一意名5.
  02 データ名E  PIC 9(9) COMP.      /*情報長                        */
  02 データ名F  PIC 9(9) COMP.      /*サービスグループ名長          */
  02 データ名G  PIC X(32).          /*サービスグループ名            */
  02 データ名H  PIC 9(9) COMP.      /*サービス名長                  */
  02 データ名I  PIC X(32).          /*サービス名                    */
  02 データ名J  PIC X(2).           /*トランザクション種別          */
  02 データ名K  PIC X(1).           /*自動閉塞有無                  */
  02 データ名L  PIC X(1).           /*コミット有無                  */
  02 データ名M  PIC 9(9) COMP.      /*処理スレッド通番              */
  02 データ名N  PIC 9(9) COMP.      /*エラー要因コード              */
  02 データ名O  PIC 9(9) COMP.      /*ユーザIFAエリアサイズ        */
  02 FILLER     PIC X(4).           /*予備                          */
  02 データ名P  ADDRESS.            /*ユーザIFAエリアポインタ      */
  02 データ名Q  PIC 9(9) COMP.     /*ユーザSATエリアサイズ         */
  02 FILLER     PIC X(4).           /*予備                          */
  02 データ名R  ADDRESS.           /*ユーザSATエリアポインタ       */
  02 データ名S  PIC X(1).          /*応答要否                       */
  02 データ名T  PIC X(1).          /*メッセージ状態                 */
  02 データ名U  PIC X(1).          /*プロセス起動要因               */
  02 データ名V  PIC X(1).          /*前回プロセス終了要因           */
  02 データ名W  PIC X(1).          /*プロセス終了要因               */
  02 データ名X  PIC X(1).          /*スレッドダウン種別             */
  02 データ名Y  PIC X(1).          /*異常発生トランザクション種別   */
  02データ名Z  PIC X(1).           /*拡張トランザクション種別      */
  02 データ名AA  PIC 9(9) COMP.    /*リソースマネジャ数             */
  02 データ名AB  PIC S9(9) COMP.   /*リソースマネジャ状態           */
  02 データ名AC  PIC 9(9) COMP.    /*送信サービスグループ名長       */
  02 データ名AD  PIC X(32).        /*送信サービスグループ名         */
  02 データ名AE  PIC 9(9) COMP.    /*送信サービス名長               */
  02 データ名AF  PIC X(32).        /*送信サービス名                 */
  02 データ名AG  PIC 9(9) COMP.    /*異常発生処理スレッド通番       */
  02データ名AS  PIC 9(9) COMP.     /*トランザクションレベル名長    */
  02データ名AH  ADDRESS.           /*拡張トランザクション情報      */
  02データ名AI  ADDRESS.          /*TP1/XTC拡張トランザクション情報*/
  02データ名AJ  ADDRESS.          /*TP1/MCP拡張トランザクション情報*/
  02データ名AK  PIC X(1).          /*メッセージ種別                */
  02データ名AL  PIC X(1).          /* エラートラン要因             */
  02データ名AO  PIC X(1).          /* トランザクション起動要因     */
  02 データ名AU  PIC X(1).          /* リソースマネジャ連携有無     */
  02データ名AP  PIC 9(9) COMP.     /* サーバ再起動回数             */
  02 データ名AM  PIC 9(18) COMP.   /*ユーザIFAエリアサイズ(拡張)   */
  02 データ名AN  PIC 9(18) COMP.   /*ユーザSATエリアサイズ(拡張)   */
  02データ名AQ  PIC X(14).         /* トランザクション起動時刻     */
  02 データ名AR  PIC X(5).         /* 送信元のノード識別子         */
  02 データ名AX  PIC X(1).         /*リトライ回数                  */
  02 データ名AT  PIC X(32).        /*トランザクションレベル名      */
  02 FILLER      PIC X(4).         /*予備                          */
  02 データ名AY  PIC X(32).        /*トランザクション引き継ぎ情報  */
ページの先頭へ
1.3.1 形式

1.3.1　形式
