画面・帳票サポートシステム XMAP3 プログラミングガイド


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生成時に設定するパッケージ名やクラス名は,ユーザプログラムの設計に従って指定してください。