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


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は必要なくなります。登録集原文の次の個所を修正してください。

自動生成ウィザード画面でも,データ属性は可変長ではなくバイト配列データ(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).