コピーファイルは,メッセージキューイング機能を定義し,COBOL言語で記述されたアプリケーションプログラムでメッセージキューイング機能を使用できるようにします。コピーファイルには定数を含む二つのファイルおよび各構造体に二つのファイルがあります。
各構造体には,二つの形式があります。初期値がある形式と初期値がない形式です。
表E-2にコピーファイルの一覧を示します。
表E-2 コピーファイルの一覧
ファイル名 | 内容 | |
---|---|---|
初期値がある形式 | 初期値がない形式 | |
CMQCFHV | CMQCFHL | PCFヘッダの構造体 |
CMQCFILV | CMQCFILL | PCF整数リスト引数の構造体 |
CMQCFINV | CMQCFINL | PCF整数引数の構造体 |
CMQCFSLV | CMQCFSLL | PCF文字列リスト引数の構造体 |
CMQCFSTV | CMQCFSTL | PCFストリング引数の構造体 |
CMQCFV | - | PCFの定数 |
CMQDHV | CMQDHL | 配布ヘッダの構造体 |
CMQDLHV | CMQDLHL | デッドレターヘッダの構造体 |
CMQGMOV | CMQGMOL | 取り出し動作オプションの構造体 |
CMQMD1V | CMQMD1L | バージョン1のメッセージ記述子の構造体 |
CMQMDEV | CMQMDEL | メッセージ記述子拡張の構造体 |
CMQMDV | CMQMDL | メッセージ記述子の構造体 |
CMQODV | CMQODL | オブジェクト記述子の構造体 |
CMQORV | CMQORL | オブジェクトレコードの構造体 |
CMQPMOV | CMQPMOL | 登録動作オプションの構造体 |
CMQRMHV | CMQRMHL | メッセージ参照ヘッダの構造体 |
CMQRRV | CMQRRL | 応答レコードの構造体 |
CMQTMV | CMQTML | トリガメッセージの構造体 |
CMQXQHV | CMQXQHL | 転送キューヘッダの構造体 |
CMQV | - | MQIの定数 |
各構造の宣言をレベル番号10の項目で始めます。このようにすることで,データ項目をレベル番号01の宣言でコーディングしたあと,残りのデータ項目をコピー文で複写して,幾つかのインスタンスを宣言できます。インスタンスを参照するときは,INを指定できます。
* Declare two instances of MQMD
01 MY_MQMD.
COPY CMQMDV.
01 MY_OTHER_MQMD.
COPY CMQMDV.
*
* Set MSGTYPE field in MY_OTHER_MQMD
MOVE MQMT_REQUEST TO MQMD_MSGTYPE IN MY_OTHER_MQMD.
4バイト単位でバウンダリ調整してください。レベル番号01でない項目に続く構造体にコピー文を使用している場合,レベル番号01の項目の始まりから,4バイトの倍数に位置するように構造体を宣言してください。
「1. データタイプ」の「データタイプの概要」で示す,構造体のフィールド名には接頭語がありません。COBOL言語では,フィールド名は構造体の名称にハイフンが付けられた形式で表現されます。MSGTYPEという名称をCOBOL言語で表記すると,MQMD-MSGTYPEになります。
Vが最後に付く名称の構造体では,初期値が設定されています。そのため,初期値と異なる値を使用したい場合はフィールドを初期化してください。
*構造体を大域データとして定義します
01 MY_MQ_CONSTANTS.
COPY CMQV.
* 定数を大域データとして宣言します
01 MY_MQ_CONSTANTS GLOBAL.
COPY CMQV.
HP-UX,Windows,およびLinuxの場合,リンケージのコマンドに引数(-lmqacb)を指定してください。
AIXの場合,リンケージのコマンドに引数(-lmqacb2)を指定してください。
一つのロードモジュールにC言語およびCOBOL言語を混在できません。
CALL 'MQCLOSE' USING HCONN,HOBJ,OPTIONS,COMPCODE,REASON.
** コネクションハンドル
01 HCONN PIC S9(9) BINARY.
** オブジェクトハンドル
01 HOBJ PIC S9(9) BINARY.
** クローズオプション
01 OPTIONS PIC S9(9) BINARY.
** 完了コード
01 COMPCODE PIC S9(9) BINARY.
** 理由コード
01 REASON PIC S9(9) BINARY.
CALL 'MQCONN' USING NAME,HCONN,COMPCODE,REASON.
** キューマネジャ名
01 NAME PIC X(48).
** コネクションハンドル
01 HCONN PIC S9(9) BINARY.
** 完了コード
01 COMPCODE PIC S9(9) BINARY.
** 理由コード
01 REASON PIC S9(9) BINARY.
CALL 'MQDISC' USING HCONN,COMPCODE,REASON.
** コネクションハンドル
01 HCONN PIC S9(9) BINARY.
** 完了コード
01 COMPCODE PIC S9(9) BINARY.
** 理由コード
01 REASON PIC S9(9) BINARY.
CALL 'MQGET' USING
HCONN,HOBJ,MSGDESC,GETMSGOPTS,BUFFERLENGTH,
BUFFER,DATALENGTH,COMPCODE,REASON.
** コネクションハンドル
01 HCONN PIC S9(9) BINARY.
** オブジェクトハンドル
01 HOBJ PIC S9(9) BINARY.
** メッセージ記述子
01 MSGDESC.
COPY CMQMDV.
** メッセージ取り出しオプション
01 GETMSGOPTS.
COPY CMQGMOV.
** バッファ長
01 BUFFERLENGTH PIC S9(9) BINARY.
** バッファ
01 BUFFER PIC X(n).
** データ長
01 DATALENGTH PIC S9(9) BINARY.
** 完了コード
01 COMPCODE PIC S9(9) BINARY.
** 理由コード
01 REASON PIC S9(9) BINARY.
CALL 'MQINQ' USING
HCONN,HOBJ,SELECTORCOUNT,SELECTORS,INTATTRCOUNT,
INTATTRS,CHARATTRLENGTH,CHARATTRS,COMPCODE,
REASON.
** コネクションハンドル
01 HCONN PIC S9(9) BINARY.
** オブジェクトハンドル
01 HOBJ PIC S9(9) BINARY.
** セレクタ数
01 SELECTORCOUNT PIC S9(9) BINARY.
** セレクタ
01 SELECTORS.
02 SELECTORS PIC S9(9) BINARY OCCURS n TIMES.
** 整数型属性数
01 INTATTRCOUNT PIC S9(9) BINARY.
** 整数型属性値
01 INTATTRS.
02 INTATTRS PIC S9(9) BINARY OCCURS n TIMES.
** 文字型属性長
01 CHARATTRLENGTH PIC S9(9) BINARY.
** 文字型属性値
01 CHARATTRS PIC X(n).
** 完了コード
01 COMPCODE PIC S9(9) BINARY.
** 理由コード
01 REASON PIC S9(9) BINARY.
CALL 'MQOPEN' USING
HCONN,OBJDESC,OPTIONS,HOBJ,COMPCODE,REASON.
** コネクションハンドル
01 HCONN PIC S9(9) BINARY.
** オブジェクト記述子
01 OBJDESC.
COPY CMQODV.
** オープンオプション
01 OPTIONS PIC S9(9) BINARY.
** オブジェクトハンドル
01 HOBJ PIC S9(9) BINARY.
** 完了コード
01 COMPCODE PIC S9(9) BINARY.
** 理由コード
01 REASON PIC S9(9) BINARY.
CALL 'MQPUT' USING
HCONN,HOBJ,MSGDESC,PUTMSGOPTS,BUFFERLENGTH,
BUFFER,COMPCODE,REASON.
** コネクションハンドル
01 HCONN PIC S9(9) BINARY.
** オブジェクトハンドル
01 HOBJ PIC S9(9) BINARY.
** メッセージ記述子
01 MSGDESC.
COPY CMQMDV.
** メッセージ登録オプション
01 PUTMSGOPTS.
COPY CMQPMOV.
** バッファ長
01 BUFFERLENGTH PIC S9(9) BINARY.
** バッファ
01 BUFFER PIC X(n).
** 完了コード
01 COMPCODE PIC S9(9) BINARY.
** 理由コード
01 REASON PIC S9(9) BINARY.
CALL 'MQPUT1' USING
HCONN,OBJDESC,MSGDESC,PUTMSGOPTS,BUFFERLENGTH,
BUFFER,COMPCODE,REASON.
** コネクションハンドル
01 HCONN PIC S9(9) BINARY.
** オブジェクト記述子
01 OBJDESC.
COPY CMQODV.
** メッセージ記述子
01 MSGDESC.
COPY CMQMDV.
** メッセージ登録オプション
01 PUTMSGOPTS.
COPY CMQPMOV.
** バッファ長
01 BUFFERLENGTH PIC S9(9) BINARY.
** バッファ
01 BUFFER PIC X(n).
** 完了コード
01 COMPCODE PIC S9(9) BINARY.
** 理由コード
01 REASON PIC S9(9) BINARY.
CALL 'MQSET' USING
HCONN,HOBJ,SELECTORCOUNT,SELECTORS,INTATTRCOUNT,
INTATTRS,CHARATTRLENGTH,CHARATTRS,COMPCODE,REASON.
** コネクションハンドル
01 HCONN PIC S9(9) BINARY.
** オブジェクトハンドル
01 HOBJ PIC S9(9) BINARY.
** セレクタ数
01 SELECTORCOUNT PIC S9(9) BINARY.
** セレクタ
01 SELECTORS.
02 SELECTORS PIC S9(9) BINARY OCCURS n TIMES.
** 整数型属性数
01 INTATTRCOUNT PIC S9(9) BINARY.
** 整数型属性値
01 INTATTRS.
02 INTATTRS PIC S9(9) BINARY OCCURS n TIMES.
** 文字型属性長
01 CHARATTRLENGTH PIC S9(9) BINARY.
** 文字型属性値
01 CHARATTRS PIC X(n).
** 完了コード
01 COMPCODE PIC S9(9) BINARY.
** 理由コード
01 REASON PIC S9(9) BINARY.
基本データタイプの宣言を次の表に示します。
表E-3 基本データタイプの宣言(COBOL言語)
データタイプ | 表記 |
---|---|
MQBYTE型 | PIC X |
MQBYTE8型 | PIC X(8) |
MQBYTE16型 | PIC X(16) |
MQBYTE24型 | PIC X(24) |
MQBYTE32型 | PIC X(32) |
MQBYTE40型 | PIC X(40) |
MQCHAR型 | PIC X |
MQCHAR4型 | PIC X(4) |
MQCHAR8型 | PIC X(8) |
MQCHAR12型 | PIC X(12) |
MQCHAR20型 | PIC X(20) |
MQCHAR28型 | PIC X(28) |
MQCHAR32型 | PIC X(32) |
MQCHAR48型 | PIC X(48) |
MQCHAR64型 | PIC X(64) |
MQCHAR128型 | PIC X(128) |
MQCHAR256型 | PIC X(256) |
MQHCONN型 | PIC S9(9) BINARY |
MQHOBJ型 | PIC S9(9) BINARY |
MQLONG型 | PIC S9(9) BINARY |
MQPTR | POINTER |
** MQCFH構造体
10 MQCFH.
** 構造体タイプ
15 MQCFH-TYPE PIC S9(9) BINARY.
** 構造体長
15 MQCFH-STRUCLENGTH PIC S9(9) BINARY.
** 構造体バージョン番号
15 MQCFH-VERSION PIC S9(9) BINARY.
** 命令識別子
15 MQCFH-COMMAND PIC S9(9) BINARY.
** メッセージシーケンス番号
15 MQCFH-MSGSEQNUMBER PIC S9(9) BINARY.
** 制御オプション
15 MQCFH-CONTROL PIC S9(9) BINARY.
** 完了コード
15 MQCFH-COMPCODE PIC S9(9) BINARY.
** 理由コード
15 MQCFH-REASON PIC S9(9) BINARY.
** 引数構造体の数
15 MQCFH-PARAMETERCOUNT PIC S9(9) BINARY.
** MQCFIL構造体
10 MQCFIL.
** 構造体タイプ
15 MQCFIL-TYPE PIC S9(9) BINARY.
** 構造体長
15 MQCFIL-STRUCLENGTH PIC S9(9) BINARY.
** 引数識別子
15 MQCFIL-PARAMETER PIC S9(9) BINARY.
** 引数の値の数
15 MQCFIL-COUNT PIC S9(9) BINARY.
** MQCFIN構造体
10 MQCFIN.
** 構造体タイプ
15 MQCFIN-TYPE PIC S9(9) BINARY.
** 構造体長
15 MQCFIN-STRUCLENGTH PIC S9(9) BINARY.
** 引数識別子
15 MQCFIN-PARAMETER PIC S9(9) BINARY.
** 引数の値
15 MQCFIN-VALUE PIC S9(9) BINARY.
** MQCFSL構造体
10 MQCFSL.
** 構造体タイプ
15 MQCFSL-TYPE PIC S9(9) BINARY.
** 構造体長
15 MQCFSL-STRUCLENGTH PIC S9(9) BINARY.
** 引数識別子
15 MQCFSL-PARAMETER PIC S9(9) BINARY.
** 文字セット識別子
15 MQCFSL-CODEDCHARSETID PIC S9(9) BINARY.
** 引数の値の数
15 MQCFSL-COUNT PIC S9(9) BINARY.
** 文字列長
15 MQCFSL-STRINGLENGTH PIC S9(9) BINARY.
** MQCFST構造体
10 MQCFST.
** 構造体タイプ
15 MQCFST-TYPE PIC S9(9) BINARY.
** 構造体長
15 MQCFST-STRUCLENGTH PIC S9(9) BINARY.
** 引数識別子
15 MQCFST-PARAMETER PIC S9(9) BINARY.
** 文字コード識別子
15 MQCFST-CODEDCHARSETID PIC S9(9) BINARY.
** 文字列長
15 MQCFST-STRINGLENGTH PIC S9(9) BINARY.
** MQDH構造体
10 MQDH.
** 構造体識別子
15 MQDH-STRUCID PIC X(4).
** 構造体バージョン番号
15 MQDH-VERSION PIC S9(9) BINARY.
** MQDH構造体とそれに続くMQOR構造体とMQPMR構造体を足した長さ
15 MQDH-STRUCLENGTH PIC S9(9) BINARY.
** MQOR構造体およびMQPMR構造体に続くデータのマシンコード形式
15 MQDH-ENCODING PIC S9(9) BINARY.
** MQOR構造体およびMQPMR構造体に続くデータの文字セット識別子
15 MQDH-CODEDCHARSETID PIC S9(9) BINARY.
** MQOR構造体およびMQPMR構造体に続くデータのフォーマット名
15 MQDH-FORMAT PIC X(8).
** フラグ
15 MQDH-FLAGS PIC S9(9) BINARY.
** MQPMR構造体フィールドの存在
15 MQDH-PUTMSGRECFIELDS PIC S9(9) BINARY.
** MQOR構造体の数
15 MQDH-RECSPRESENT PIC S9(9) BINARY.
** 最初のMQOR構造体までのオフセット
15 MQDH-OBJECTRECOFFSET PIC S9(9) BINARY.
** 最初のMQPMR構造体までのオフセット
15 MQDH-PUTMSGRECOFFSET PIC S9(9) BINARY.
** MQDLH構造体
10 MQDLH.
** 構造体識別子
15 MQDLH-STRUCID PIC X(4).
** 構造体バージョン番号
15 MQDLH-VERSION PIC S9(9) BINARY.
** メッセージ通知理由
15 MQDLH-REASON PIC S9(9) BINARY.
** あて先キュー名
15 MQDLH-DESTQNAME PIC X(48).
** あて先キューマネジャ名
15 MQDLH-DESTQMGRNAME PIC X(48).
** MQDLH構造体に続くデータのマシンコード形式
15 MQDLH-ENCODING PIC S9(9) BINARY.
** MQDLH構造体に続くデータの文字セット識別子
15 MQDLH-CODEDCHARSETID PIC S9(9) BINARY.
** MQDLH構造体に続くデータのフォーマット名
15 MQDLH-FORMAT PIC X(8).
** 登録アプリケーションタイプ
15 MQDLH-PUTAPPLTYPE PIC S9(9) BINARY.
** 登録アプリケーション名
15 MQDLH-PUTAPPLNAME PIC X(28).
** 登録日付
15 MQDLH-PUTDATE PIC X(8).
** 登録時刻
15 MQDLH-PUTTIME PIC X(8).
** MQGMO構造体
10 MQGMO.
** 構造体識別子
15 MQGMO-STRUCID PIC X(4).
** 構造体バージョン番号
15 MQGMO-VERSION PIC S9(9) BINARY.
** 取り出しオプション
15 MQGMO-OPTIONS PIC S9(9) BINARY.
** 待ち合わせ最大時間
15 MQGMO-WAITINTERVAL PIC S9(9) BINARY.
** シグナル
15 MQGMO-SIGNAL1 PIC S9(9) BINARY.
** 予備
15 MQGMO-SIGNAL2 PIC S9(9) BINARY.
** 受信キュー名
15 MQGMO-RESOLVEDQNAME PIC X(48).
** 一致オプション
15 MQGMO-MATCHOPTIONS PIC S9(9) BINARY.
** メッセージグループフラグ
15 MQGMO-GROUPSTATUS PIC X.
** 論理メッセージフラグ
15 MQGMO-SEGMENTSTATUS PIC X.
** セグメント分割フラグ
15 MQGMO-SEGMENTATION PIC X.
** 予備
15 MQGMO-RESERVED1 PIC X.
** MQMD構造体
10 MQMD.
** 構造体識別子
15 MQMD-STRUCID PIC X(4).
** 構造体バージョン番号
15 MQMD-VERSION PIC S9(9) BINARY.
** 報告メッセージオプション
15 MQMD-REPORT PIC S9(9) BINARY.
** メッセージタイプ
15 MQMD-MSGTYPE PIC S9(9) BINARY.
** メッセージ保持時間
15 MQMD-EXPIRY PIC S9(9) BINARY.
** 報告メッセージ返答コード
15 MQMD-FEEDBACK PIC S9(9) BINARY.
** メッセージデータのマシンコード形式
15 MQMD-ENCODING PIC S9(9) BINARY.
** メッセージデータの文字セット識別子
15 MQMD-CODEDCHARSETID PIC S9(9) BINARY.
** メッセージデータのフォーマット名
15 MQMD-FORMAT PIC X(8).
** メッセージ優先度
15 MQMD-PRIORITY PIC S9(9) BINARY.
** メッセージ永続性
15 MQMD-PERSISTENCE PIC S9(9) BINARY.
** メッセージ識別子
15 MQMD-MSGID PIC X(24).
** 相関識別子
15 MQMD-CORRELID PIC X(24).
** ロールバック回数
15 MQMD-BACKOUTCOUNT PIC S9(9) BINARY.
** 応答キュー名
15 MQMD-REPLYTOQ PIC X(48).
** 応答キューマネジャ名
15 MQMD-REPLYTOQMGR PIC X(48).
** ユーザ識別子
15 MQMD-USERIDENTIFIER PIC X(12).
** 課金トークン
15 MQMD-ACCOUNTINGTOKEN PIC X(32).
** アプリケーション識別データ
15 MQMD-APPLIDENTITYDATA PIC X(32).
** 登録アプリケーションタイプ
15 MQMD-PUTAPPLTYPE PIC S9(9) BINARY.
** 登録アプリケーション名
15 MQMD-PUTAPPLNAME PIC X(28).
** 登録日付
15 MQMD-PUTDATE PIC X(8).
** 登録時刻
15 MQMD-PUTTIME PIC X(8).
** 登録元データ
15 MQMD-APPLORIGINDATA PIC X(4).
** グループ識別子
15 MQMD-GROUPID PIC X(24).
** メッセージシーケンス番号
15 MQMD-MSGSEQNUMBER PIC S9(9) BINARY.
** オフセット
15 MQMD-OFFSET PIC S9(9) BINARY.
** メッセージフラグ
15 MQMD-MSGFLAGS PIC S9(9) BINARY.
** 登録元メッセージ長
15 MQMD-ORIGINALLENGTH PIC S9(9) BINARY.
** MQMDE構造体
10 MQMDE.
** 構造体識別子
15 MQMDE-STRUCID PIC X(4).
** 構造体バージョン番号
15 MQMDE-VERSION PIC S9(9) BINARY.
** 構造体長
15 MQMDE-STRUCLENGTH PIC S9(9) BINARY.
** MQMDE構造体に続くデータのマシンコード形式
15 MQMDE-ENCODING PIC S9(9) BINARY.
** MQMDE構造体に続くデータの文字セット識別子
15 MQMDE-CODEDCHARSETID PIC S9(9) BINARY.
** MQMDE構造体に続くデータのフォーマット名
15 MQMDE-FORMAT PIC X(8).
** フラグ
15 MQMDE-FLAGS PIC S9(9) BINARY.
** グループ識別子
15 MQMDE-GROUPID PIC X(24).
** メッセージシーケンス番号
15 MQMDE-MSGSEQNUMBER PIC S9(9) BINARY.
** オフセット
15 MQMDE-OFFSET PIC S9(9) BINARY.
** メッセージフラグ
15 MQMDE-MSGFLAGS PIC S9(9) BINARY.
** 登録元メッセージ長
15 MQMDE-ORIGINALLENGTH PIC S9(9) BINARY.
** MQOD構造体
10 MQOD.
** 構造体識別子
15 MQOD-STRUCID PIC X(4).
** 構造体バージョン番号
15 MQOD-VERSION PIC S9(9) BINARY.
** オブジェクトタイプ
15 MQOD-OBJECTTYPE PIC S9(9) BINARY.
** オブジェクト名
15 MQOD-OBJECTNAME PIC X(48).
** オブジェクトキューマネジャ名
15 MQOD-OBJECTQMGRNAME PIC X(48).
** 動的キュー名
15 MQOD-DYNAMICQNAME PIC X(48).
** 代替ユーザ識別子
15 MQOD-ALTERNATEUSERID PIC X(12).
** オブジェクトレコード数
15 MQOD-RECSPRESENT PIC S9(9) BINARY.
** ローカルキューの数
15 MQOD-KNOWNDESTCOUNT PIC S9(9) BINARY.
** リモートキューの数
15 MQOD-UNKNOWNDESTCOUNT PIC S9(9) BINARY.
** オープンに失敗したキューの数
15 MQOD-INVALIDDESTCOUNT PIC S9(9) BINARY.
** 最初のオブジェクトレコードまでのオフセット
15 MQOD-OBJECTRECOFFSET PIC S9(9) BINARY.
** 最初の応答レコードまでのオフセット
15 MQOD-RESPONSERECOFFSET PIC S9(9) BINARY.
** 最初のオブジェクトレコードのアドレス
15 MQOD-OBJECTRECPTR POINTER.
** 最初の応答レコードのアドレス
15 MQOD-RESPONSERECPTR POINTER.
** 代替セキュリティ識別子
15 MQOD-ALTERNATESECURITYID PIC X(40).
** 解決したキュー名称
15 MQOD-RESOLVEDQNAME PIC X(48).
** 解決したキューマネジャ名称
15 MQOD-RESOLVEDQMGRNAME PIC X(48).
** MQOR構造体
10 MQOR.
** オブジェクト名
15 MQOR-OBJECTNAME PIC X(48).
** オブジェクトキューマネジャ名
15 MQOR-OBJECTQMGRNAME PIC X(48).
** MQPMO構造体
10 MQPMO.
** 構造体識別子
15 MQPMO-STRUCID PIC X(4).
** 構造体バージョン番号
15 MQPMO-VERSION PIC S9(9) BINARY.
** 登録オプション
15 MQPMO-OPTIONS PIC S9(9) BINARY.
** 予備
15 MQPMO-TIMEOUT PIC S9(9) BINARY.
** コンテキスト
15 MQPMO-CONTEXT PIC S9(9) BINARY.
** ローカルキューの数
15 MQPMO-KNOWNDESTCOUNT PIC S9(9) BINARY.
** リモートキューの数
15 MQPMO-UNKNOWNDESTCOUNT PIC S9(9) BINARY.
** 送信に失敗したキューの数
15 MQPMO-INVALIDDESTCOUNT PIC S9(9) BINARY.
** 受信キュー名
15 MQPMO-RESOLVEDQNAME PIC X(48).
** 受信キューマネジャ名
15 MQPMO-RESOLVEDQMGRNAME PIC X(48).
** 登録メッセージレコード数または応答レコード数
15 MQPMO-RECSPRESENT PIC S9(9) BINARY.
** MQPMR構造体フィールドの存在
15 MQPMO-PUTMSGRECFIELDS PIC S9(9) BINARY.
** 最初の登録メッセージレコードまでのオフセット
15 MQPMO-PUTMSGRECOFFSET PIC S9(9) BINARY.
** 最初の応答レコードまでのオフセット
15 MQPMO-RESPONSERECOFFSET PIC S9(9) BINARY.
** 最初の登録メッセージレコードのアドレス
15 MQPMO-PUTMSGRECPTR POINTER.
** 最初の応答レコードのアドレス
15 MQPMO-RESPONSERECPTR POINTER.
** MQPMR構造体
10 MQPMR.
** メッセージ識別子
15 MQPMR-MSGID PIC X(24).
** 相関識別子
15 MQPMR-CORRELID PIC X(24).
** グループ識別子
15 MQPMR-GROUPID PIC X(24).
** 報告メッセージ返答コード
15 MQPMR-FEEDBACK PIC S(9) BINARY.
** 課金トークン
15 MQPMR-ACCOUNTINGTOKEN PIC X(32).
** MQRMH構造体
10 MQRMH.
** 構造体識別子
15 MQRMH-STRUCID PIC X(4).
** 構造体バージョン番号
15 MQRMH-VERSION PIC S9(9) BINARY.
** 構造体長
15 MQRMH-STRUCLENGTH PIC S9(9) BINARY.
** 長大データのマシンコード形式
15 MQRMH-ENCODING PIC S9(9) BINARY.
** 長大データの文字セット識別子
15 MQRMH-CODEDCHARSETID PIC S9(9) BINARY.
** 長大データのフォーマット名
15 MQRMH-FORMAT PIC X(8).
** フラグ
15 MQRMH-FLAGS PIC S9(9) BINARY.
** オブジェクトタイプ
15 MQRMH-OBJECTTYPE PIC X(8).
** オブジェクトインスタンス識別子
15 MQRMH-OBJECTINSTANCEID PIC X(24).
** 送信元環境データ長
15 MQRMH-SRCENVLENGTH PIC S9(9) BINARY.
** 送信元環境データオフセット
15 MQRMH-SRCENVOFFSET PIC S9(9) BINARY.
** 送信元オブジェクト名長
15 MQRMH-SRCNAMELENGTH PIC S9(9) BINARY.
** 送信元オブジェクトのオフセット
15 MQRMH-SRCNAMEOFFSET PIC S9(9) BINARY.
** あて先環境データ長
15 MQRMH-DESTENVLENGTH PIC S9(9) BINARY.
** あて先環境データオフセット
15 MQRMH-DESTENVOFFSET PIC S9(9) BINARY.
** あて先オブジェクト名長
15 MQRMH-DESTNAMELENGTH PIC S9(9) BINARY.
** あて先オブジェクトのオフセット
15 MQRMH-DESTNAMEOFFSET PIC S9(9) BINARY.
** 長大データ長
15 MQRMH-DATALOGICALLENGTH PIC S9(9) BINARY.
** 長大データ低位オフセット
15 MQRMH-DATALOGICALOFFSET PIC S9(9) BINARY.
** 長大データ高位オフセット
15 MQRMH-DATALOGICALOFFSET2 PIC S9(9) BINARY.
** MQRR構造体
10 MQRR.
** 完了コード
15 MQRR-COMPCODE PIC S9(9) BINARY.
** 理由コード
15 MQRR-REASON PIC S9(9) BINARY.
** MQTM構造体
10 MQTM.
** 構造体識別子
15 MQTM-STRUCID PIC X(4).
** 構造体バージョン番号
15 MQTM-VERSION PIC S9(9) BINARY.
** イベント発生キュー名
15 MQTM-QNAME PIC X(48).
** プロセス名
15 MQTM-PROCESSNAME PIC X(48).
** トリガデータ
15 MQTM-TRIGGERDATA PIC X(64).
** アプリケーションタイプ
15 MQTM-APPLTYPE PIC S9(9) BINARY.
** アプリケーション識別子
15 MQTM-APPLID PIC X(256).
** 環境データ
15 MQTM-ENVDATA PIC X(128).
** ユーザデータ
15 MQTM-USERDATA PIC X(128).
** MQXQH構造体
10 MQXQH.
** 構造体識別子
15 MQXQH-STRUCID PIC X(4).
** 構造体バージョン番号
15 MQXQH-VERSION PIC S9(9) BINARY.
** リモートキュー名
15 MQXQH-REMOTEQNAME PIC X(48).
** リモートキューマネジャ名
15 MQXQH-REMOTEQMGRNAME PIC X(48).
** 登録元メッセージ記述子
15 MQXQH-MSGDESC.
** 構造体識別子
20 MQXQH-MSGDESC-STRUCID PIC X(4).
** 構造体バージョン番号
20 MQXQH-MSGDESC-VERSION PIC S9(9) BINARY.
** 報告オプション
20 MQXQH-MSGDESC-REPORT PIC S9(9) BINARY.
** メッセージタイプ
20 MQXQH-MSGDESC-MSGTYPE PIC S9(9) BINARY.
** メッセージ保持時間
20 MQXQH-MSGDESC-EXPIRY PIC S9(9) BINARY.
** 報告メッセージ返答コードまたは理由コード
20 MQXQH-MSGDESC-FEEDBACK PIC S9(9) BINARY.
** メッセージデータのマシンコード形式
20 MQXQH-MSGDESC-ENCODING PIC S9(9) BINARY.
** メッセージデータの文字セット識別子
20 MQXQH-MSGDESC-CODEDCHARSETID PIC S9(9) BINARY.
** メッセージデータのフォーマット名
20 MQXQH-MSGDESC-FORMAT PIC X(8).
** メッセージ優先度
20 MQXQH-MSGDESC-PRIORITY PIC S9(9) BINARY.
** メッセージ永続性
20 MQXQH-MSGDESC-PERSISTENCE PIC S9(9) BINARY.
** メッセージ識別子
20 MQXQH-MSGDESC-MSGID PIC X(24).
** 相関識別子
20 MQXQH-MSGDESC-CORRELID PIC X(24).
** ロールバック回数
20 MQXQH-MSGDESC-BACKOUTCOUNT PIC S9(9) BINARY.
** 応答キュー名
20 MQXQH-MSGDESC-REPLYTOQ PIC X(48).
** 応答キューマネジャ名
20 MQXQH-MSGDESC-REPLYTOQMGR PIC X(48).
** ユーザ識別子
20 MQXQH-MSGDESC-USERIDENTIFIER PIC X(12).
** 課金トークン
20 MQXQH-MSGDESC-ACCOUNTINGTOKEN PIC X(32).
** アプリケーション識別データ
20 MQXQH-MSGDESC-APPLIDENTITYDATA PIC X(32).
** 登録アプリケーションタイプ
20 MQXQH-MSGDESC-PUTAPPLTYPE PIC S9(9) BINARY.
** 登録アプリケーション名
20 MQXQH-MSGDESC-PUTAPPLNAME PIC X(28).
** 登録日付
20 MQXQH-MSGDESC-PUTDATE PIC X(8).
** 登録時刻
20 MQXQH-MSGDESC-PUTTIME PIC X(8).
** 登録元データ
20 MQXQH-MSGDESC-APPLORIGINDATA PIC X(4).