9.8.1 TP1/COBOLアクセス用Beanの生成(DCCM3連携の場合)
TP1/COBOLアクセス用Beanは,ユーザプログラムからの送受信データを通信制御サーブレットを経由してそのままクライアント側に受け渡すための,setterおよびgetterを記述したJavaプログラムです。
TP1/COBOLアクセス用Beanは,XMAP3/Web for Cosminexusがサンプルプログラムとして提供するデータ送受信用の登録集原文から,TP1/COBOL adapter for CosminexusのTP1/COBOLアクセス用Bean生成ツールを使用して生成します。
XMAP3/Web for Cosminexusでは,次に示すフォルダに登録集原文(CBLIOTBL_IN_BEAN.cbl,CBLIOTBL_OUT_BEAN.cbl)とひな形サンプル(CBLBEAN_KEIS.java)を提供しています。
XMAP3インストールフォルダ\Web for Cosminexus\SAMPLE\COBOL_KEIS
また,提供する登録集原文の内容は次のとおりです。
- 入力データ用登録集原文(CBLIOTBL_IN_BEAN.cbl)
01 XMAP-TRAN-AREA-IN PIC X(30264). 01 XMAP-TRAN-IN REDEFINES XMAP-TRAN-AREA-IN. 02 XMAP-TRAN-CODE PIC X(8). 02 XMAP-TRAN-TBL-IN PIC X(30256). 02 XMAP-TRAN-DMY-I REDEFINES XMAP-TRAN-TBL-IN. 03 XMAP-COM. 04 XMAP-COM-ID PIC X(4). 04 XMAP-COM-RTN PIC 9(4) COMP. 04 XMAP-COM-RSN PIC 9(4) COMP. 04 XMAP-COM-TNAME PIC X(8). 04 XMAP-COM-MSG PIC X(4). 04 XMAP-COM-MAPNAME PIC X(8). 04 XMAP-COM-COMCODE PIC S9(8) BINARY. 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. 04 XMAP-COM-MAPOPT2 PIC 9(8) COMP. 04 XMAP-COM-RSV3 PIC X(16). 04 XMAP-COM-URLLNG PIC 9(4) COMP. 04 XMAP-COM-LSGLNG PIC 9(4) COMP. 04 XMAP-COM-RSV4 PIC X(60). 04 XMAP-COM-URL PIC X(128). 03 XMAP-LSG PIC X(30000).
- 出力データ用登録集原文(CBLIOTBL_OUT_BEAN.cbl)
01 XMAP-TRAN-AREA-OUT PIC X(30264). 01 XMAP-TRAN-OUT REDEFINES XMAP-TRAN-AREA-OUT. 02 XMAP-TRAN-CODE PIC X(8). 02 XMAP-TRAN-TBL-OUT PIC X(30256). 02 XMAP-TRAN-DMY-O REDEFINES XMAP-TRAN-TBL-OUT. 03 XMAP-COM. 04 XMAP-COM-ID PIC X(4). 04 XMAP-COM-RTN PIC 9(4) COMP. 04 XMAP-COM-RSN PIC 9(4) COMP. 04 XMAP-COM-TNAME PIC X(8). 04 XMAP-COM-MSG PIC X(4). 04 XMAP-COM-MAPNAME PIC X(8). 04 XMAP-COM-COMCODE PIC S9(8) BINARY. 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. 04 XMAP-COM-MAPOPT2 PIC 9(8) COMP. 04 XMAP-COM-RSV3 PIC X(16). 04 XMAP-COM-URLLNG PIC 9(4) COMP. 04 XMAP-COM-LSGLNG PIC 9(4) COMP. 04 XMAP-COM-RSV4 PIC X(60). 04 XMAP-COM-URL PIC X(128). 03 XMAP-LSG PIC X(30000).
XMAP3/Web for Cosminexusでは,TP1/COBOLアクセス用Bean生成ウィザードを利用してTP1/COBOLアクセス用Beanを生成することをお勧めします。
生成したTP1/COBOLアクセス用Beanの例(通信制御サーブレットが参照する部分だけ)を次に示します。
- TP1/COBOLアクセス用Bean生成の注意事項
-
-
TP1/COBOLアクセス用Beanを生成する際は,サンプルをカスタマイズしないで,そのまま使用してください。
-
通信制御サーブレットはTP1/Client/P経由で業務MPPを呼び出すため,TP1/COBOLアクセス用Bean生成ツールでは「TP1/Client/PまたはW経由のアクセスを使用する。」を選択してください。
-
TP1/COBOLアクセス用Beanは,登録集原文の先頭行「XMAP-TRAN-AREA-IN PIC X(30264)(入力の場合)」「XMAP-TRAN-AREA-OUT PIC X(30264)(出力の場合)」の基本項目で生成し,データ属性は「バイト配列データ(byte[])」を指定してください。
-
TP1/COBOLアクセス用Bean生成時に設定するパッケージ名やクラス名は,ユーザプログラムの設計に従って指定してください。