付録E.3 ソースイメージの生成例(Cosminexus TP1 Connector)
「Bean生成ツール」で「Cosminexus TP1 Connector経由のアクセスを使用する。」を選択した場合の生成例です。(他のチェックボックスはデフォルト指定です。)
入力用原文指定時はcallメソッドとsetterおよびコンストラクタ中のsetInXXXを,出力用原文指定時はgetterおよびコンストラクタ中のsetOutXXXを生成します。
(1) OCCURS句がない場合
TP1/COBOLの引数にOCCURS句がない場合の例を次に示します。
- <入力用>
01 PERSONAL-DATA-IN. 05 P-NUMBER PIC 9(9) USAGE COMP. 05 P-NAME PIC X(50). 05 P-ADDRESS PIC X(100). 05 P-GIF PIC X(50).
- <出力用>
01 PERSONAL-DATA-OUT. 05 P-NUMBER PIC 9(9) USAGE COMP. 05 P-NAME PIC X(50). 05 P-ADDRESS PIC X(100). 05 P-GIF PIC X(100).
橙色の部分は条件によって生成文字列が異なります。
ウィザード処理で別名を指定した場合,次のファイル中のデータ名は,すべて別名に置き換わります。
package パッケージ名;
import javax.resource.cci.*;
import jp.co.hitachi_sk.j2cb.*;
import jp.co.hitachi_system.tp1connector.*;
public class クラス名 extends TP1CNTR {
/*
*Generated by TP1/COBOL adapter for Cosminexus Version 2 02-10
*DO NOT EDIT THIS FILE
*2007/09/28
*/
private static final long serialVersionUID = 1153786795146L;
private static boolean noload = true;
//入力項目
private static final int inIndex = 0;
protected static GroupAccess myInGroup = null;
//出力項目
private static final int outIndex = 1;
protected static GroupAccess myOutGroup = null;
/**
*コンストラクタ
*/
public クラス名() {
super();
//データアクセスのための情報を設定
setInSize(204);
setInLvl("01,05,05,05,05");
setInName("personal_data_in,p_number,p_name,p_address,p_gif");
setInType("G,UI0900,C(50),C(100),C(50)");
setInAddress("0,0,4,54,154");
setOutSize(204);
setOutLvl("01,05,05,05,05");
setOutName("personal_data_out,p_number,p_name,p_address,p_gif");
setOutType("G,UI0900,C(50),C(100),C(100)");
setOutAddress("0,0,4,54,154");
}
/**
*初期化処理
*/
:
:
/**
*初期化処理2
*/
:
:
/**
*RPC
*/
public void call( ConnectionFactory cxf, Interaction ix, InteractionSpecImpl ixSpec) throws Exception {
init();
super.call(cxf, ix, ixSpec);
}
:
:
}: は「TP1/Client/PまたはW経由のアクセスを使用する。」を選択した場合と同じです。詳細は,「付録E.1 ソースイメージの生成例(TP1/Client/PおよびTP1/Client/W)」の「(1) OCCURS句がない場合」をご覧ください。
(2) OCCURS句がある場合
「TP1/Client/PまたはW経由のアクセスを使用する。」を選択した場合と同じです。詳細は,「付録E.1 ソースイメージの生成例(TP1/Client/PおよびTP1/Client/W)」の「(2) OCCURS句がある場合」をご覧ください。
(3) OCCURS DEPENDING ON指定がある場合
「TP1/Client/PまたはW経由のアクセスを使用する。」を選択した場合と同じです。詳細は,「付録E.1 ソースイメージの生成例(TP1/Client/PおよびTP1/Client/W)」の「(3) OCCURS DEPENDING ON指定がある場合」をご覧ください。