G.4 集団項目の要素のCOBOLの型がJavaの型と対応している場合

データ交換に使用される集団項目の要素が基本項目であり、そのCOBOLの型がJavaの型に直接対応する型である場合の例を示します。

アプリケーション情報の設定値

基本情報
項目名
設定値
サーバアプリケーション名
任意の値
プログラム名
SAMPLE04
実行基盤インタフェースの出力情報
[実行基盤インタフェースの出力情報]画面の設定値には、すべて任意の値を指定してください。

項目名	設定値
サーバアプリケーション名	任意の値
プログラム名	SAMPLE04

パラメタと復帰値情報

項目名	設定値
COBOLプログラムに渡すパラメタ	パラメタ名	DATA1
	パラメタタイプ	IN
	COBOL登録集名	任意の値
	先頭のレベル番号	01 or 77
COBOLプログラムに渡すパラメタ	パラメタ名	RESULT-CODE
	パラメタタイプ	OUT
	COBOL登録集名	任意の値
	先頭のレベル番号	01 or 77
PROGRAM-STATUSの値を返却する	任意

サーバアプリケーションのパラメタとして参照するCOBOL登録集

 01    DATA1.
    02  DATA1-1  PIC X(5).
    02  DATA1-2  PIC X(6).
    02  DATA1-3  PIC X(7).
 01    RESULT-CODE  PIC S9(9) COMP-5.

オプション情報
[オプション情報]画面の設定値には、すべて任意の値を指定してください。

出力ファイル

クラスに対応するJavaソース

// DATA1.java
final public class DATA1
{
    public java.lang.String data1_1;
    public java.lang.String data1_2;
    public java.lang.String data1_3;
    public DATA1() {}
    public DATA1(
        java.lang.String data1_1,
        java.lang.String data1_2,
        java.lang.String data1_3) {
        this.data1_1 = data1_1;
        this.data1_2 = data1_2;
        this.data1_3 = data1_3;
    }
}

生成されるbean

// SAMPLE04Bean.java
public class SAMPLE04Bean
    implements com.fujitsu.interstage.apfw.bean.ApfwBean
{
    private int apfw_result;
    private DATA1 data1;
    private int result_code;
    public SAMPLE04Bean() {}
    public void setApfw_result(int apfw_result)
    {
        this.apfw_result = apfw_result;
    }
    public int getApfw_result()
    {
        return this.apfw_result;
    }
    public void setData1(DATA1 data1)
    {
        this.data1 = data1;
    }
    public DATA1 getData1()
    {
        return this.data1;
    }
    public void setResult_code(int result_code)
    {
        this.result_code = result_code;
    }
    public int getResult_code()
    {
        return this.result_code;
    }
}