9.7.1 TP1/COBOLアクセス用Beanの生成(OpenTP1サーバ連携の場合)
TP1/COBOLアクセス用Beanは,ユーザプログラムからの送受信データを通信制御サーブレットを経由してそのままクライアント側に受け渡すための,setterおよびgetterを記述したJavaプログラムです。
(1) TP1/COBOLアクセス用Beanの生成手順
TP1/COBOLアクセス用Beanは,XMAP3/Web for Cosminexusがサンプルプログラムとして提供するデータ送受信用の登録集原文から,TP1/COBOL adapter for CosminexusのTP1/COBOLアクセス用Bean生成ツールを使用して生成します。生成したTP1/COBOLアクセス用Beanをカスタマイズしてください。
XMAP3/Web for Cosminexusでは,次に示すフォルダに登録集原文(CBLIOTBL.cbl)を提供しています。
XMAP3インストールフォルダ\Web for Cosminexus\SAMPLE\COBOL
提供する登録集原文の内容は次のとおりです。
01 XMAP-TRAN-TBL PIC X(32260). 01 XMAP-TRAN-DMY REDEFINES XMAP-TRAN-TBL. 03 XMAP-TRAN-LEN PIC S9(9) USAGE COMP. 03 XMAP-COM. 04 XMAP-COM-ID PIC X(4). 04 XMAP-COM-RTN PIC 9(4) COMP-5. 04 XMAP-COM-RSN PIC 9(4) COMP-5. 04 XMAP-COM-TNAME PIC X(8). 04 XMAP-COM-MSG PIC X(4). 04 XMAP-COM-MAPNAME PIC X(8). 04 XMAP-COM-RSV1 PIC X(4). 04 XMAP-COM-PRTOPT PIC X. 04 XMAP-COM-ENDOPT PIC X. 04 XMAP-COM-RSV2 PIC X(6). 04 XMAP-COM-MAPOPT1 PIC 9(8) COMP-5. 04 XMAP-COM-MAPOPT2 PIC 9(8) COMP-5. 04 XMAP-COM-RSV3 PIC X(16). 04 XMAP-COM-URLLNG PIC 9(4) COMP-5. 04 XMAP-COM-LSGLNG PIC 9(4) COMP-5. 04 XMAP-COM-RSV4 PIC X(60). 04 XMAP-COM-URL PIC X(128). 03 XMAP-LSG PIC X(32000).
XMAP3/Web for Cosminexusでは,TP1/COBOLアクセス用Bean生成ウィザードを利用してTP1/COBOLアクセス用Beanを生成することをお勧めします。
生成したTP1/COBOLアクセス用Beanの例を次に示します。
- TP1/COBOLアクセス用Bean生成の注意事項
-
-
XMAP3 Cosminexus連携機能のデータ送受信用の登録集原文は,カスタマイズしてください。登録集原文は,共通インタフェース領域(256バイト)+論理マップ最大長(32,000バイト)の固定形式です。
-
アプリケーションサーバがUNIXの場合は,「COMP-5」を「COMP」に修正してください。
-
TP1/COBOLアクセス用Beanは,登録集原文の先頭行の「XMAP-TRAN-TBL-IN(入力用)/XMAP-TRAN-TBL-OUT(出力用)」に「PIC X(32256)」の基本項目で生成します。データ属性は「バイト配列データ(byte[])」を指定してください。
-
TP1/COBOLアクセス用Bean生成時に設定するパッケージ名やクラス名は,ユーザプログラムの設計に従って指定してください。
- 注意事項
-
TP1 Connectorを使用する場合は,TP1/COBOLアクセス用Beanウィザード画面で[TP1 Connector経由のアクセスを使用する。]を選んでください。
(2) TP1/COBOLアクセス用Beanのカスタマイズ
COBOL adapter for Cosminexusではインタフェース領域の長さは可変長だったので,長さを入れておくXMAP-TRAN-LENが必要ですが,TP1/COBOL adapter for Cosminexusのインタフェース領域は固定長なので,XMAP-TRAN-LENは必要なくなります。登録集原文の次の個所を修正してください。
-
「XMAP-TRAN-LEN」は削除
-
登録集原文を入力用と出力用で分け,「XMAP-TRAN-DMI」を「XMAP-TRAN-DMI-I(入力用)」と「XMAP-TRAN-DMI-O(出力用)」に修正
自動生成ウィザード画面でも,データ属性は可変長ではなくバイト配列データ(byte[])のままで生成してください。
- TP1/COBOL adapter for Cosminexusの送信用インタフェース領域
01 XMAP-TRAN-TBL-IN PIC X(32256). 01 XMAP-TRAN-DMY-I REDEFINES XMAP-TRAN-TBL. ← XMAP-TRAN-LENは削除 03 XMAP-COM. 04 XMAP-COM-ID PIC X(4). 04 XMAP-COM-RTN PIC 9(4) COMP-5. 04 XMAP-COM-RSN PIC 9(4) COMP-5. 04 XMAP-COM-TNAME PIC X(8). 04 XMAP-COM-MSG PIC X(4). 04 XMAP-COM-MAPNAME PIC X(8). 04 XMAP-COM-RSV1 PIC X(4). 04 XMAP-COM-PRTOPT PIC X. 04 XMAP-COM-ENDOPT PIC X. 04 XMAP-COM-RSV2 PIC X(6). 04 XMAP-COM-MAPOPT1 PIC 9(8) COMP-5. 04 XMAP-COM-MAPOPT2 PIC 9(8) COMP-5. 04 XMAP-COM-RSV3 PIC X(16). 04 XMAP-COM-URLLNG PIC 9(4) COMP-5. 04 XMAP-COM-LSGLNG PIC 9(4) COMP-5. 04 XMAP-COM-RSV4 PIC X(60). 04 XMAP-COM-URL PIC X(128). 03 XMAP-LSG PIC X(32000).
- TP1/COBOL adapter for Cosminexusの受信用インタフェース領域
01 XMAP-TRAN-TBL-OUT PIC X(32256). 01 XMAP-TRAN-DMY-O REDEFINES XMAP-TRAN-TBL. ← XMAP-TRAN-LENは削除 03 XMAP-COM. 04 XMAP-COM-ID PIC X(4). 04 XMAP-COM-RTN PIC 9(4) COMP-5. 04 XMAP-COM-RSN PIC 9(4) COMP-5. 04 XMAP-COM-TNAME PIC X(8). 04 XMAP-COM-MSG PIC X(4). 04 XMAP-COM-MAPNAME PIC X(8). 04 XMAP-COM-RSV1 PIC X(4). 04 XMAP-COM-PRTOPT PIC X. 04 XMAP-COM-ENDOPT PIC X. 04 XMAP-COM-RSV2 PIC X(6). 04 XMAP-COM-MAPOPT1 PIC 9(8) COMP-5. 04 XMAP-COM-MAPOPT2 PIC 9(8) COMP-5. 04 XMAP-COM-RSV3 PIC X(16). 04 XMAP-COM-URLLNG PIC 9(4) COMP-5. 04 XMAP-COM-LSGLNG PIC 9(4) COMP-5. 04 XMAP-COM-RSV4 PIC X(60). 04 XMAP-COM-URL PIC X(128). 03 XMAP-LSG PIC X(32000).