G.11 COBOL集団項目の要素が1つの場合

COBOL集団項目の要素が1つでも、Javaプログラム側からはクラスとして参照されます。このため、以下の例に示すような場合は、Javaプログラム側からはクラスの配列として参照されます。

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

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

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

パラメタと復帰値情報

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

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

 01    INT-TABLE.
    02  TABLE-ITEM      OCCURS 10.
      03  ITEM-VAL      PIC S9(9) COMP-5.
 01    RESULT-CODE         PIC S9(9) COMP-5.

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

出力ファイル

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

// TABLE_ITEM.java
final public class TABLE_ITEM
{
    public int item_val;
    public TABLE_ITEM () {}
    public TABLE_ITEM (
        int item_val) {
        this.item_val = item_val;
    }
}
// INT_TABLE.java
final public class INT_TABLE {
    public  TABLE_ITEM [] table_item;
    public INT_TABLE() {}
    public INT_TABLE(TABLE_ITEM [] table_item) {
        this.table_item = table_item;
    }
}

生成するbean

public class SAMPLE11Bean
    implements com.fujitsu.interstage.apfw.bean.ApfwBean
{
    private int apfw_result;
    private INT_TABLE int_table;
    private int result_code;
    public SAMPLE11Bean() {}
    public void setApfw_result(int apfw_result)
    {
        this.apfw_result = apfw_result;
    }
    public int getApfw_result()
    {
        return this.apfw_result;
    }
    public void setInt_table(INT_TABLE int_table)
    {
        this.int_table = int_table;
    }
    public INT_TABLE getInt_table()
    {
        return this.int_table;
    }
    public void setResult_code(int result_code)
    {
        this.result_code = result_code;
    }
    public int getResult_code()
    {
        return this.result_code;
    }
}

繰り返し項目がCOBOLの集団項目である場合の例を以下に示します。

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

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

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

パラメタと復帰値情報

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

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

 01    WORK-TIME.
    02  WORK-OF-DAY      OCCURS 365.
      03  START-TIME     PIC X(8).
      03  END-TIME       PIC X(8).
 01    RESULT-CODE          PIC S9(9) COMP-5.

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

出力ファイル

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

// WORK_OF_DAY.java
final public class WORK_OF_DAY
{
    public java.lang.String start_time;
    public java.lang.String end_time;
    public WORK_OF_DAY() {}
    public WORK_OF_DAY(
        java.lang.String start_time,
        java.lang.String end_time) {
        this.start_time = start_time;
        this.end_time = end_time;
    }
}

// WORK_TIME.java
final public class WORK_TIME
{
    public WORK_OF_DAY[] work_of_day;
    public WORK_TIME() {}
    public WORK_TIME(
        WORK_OF_DAY[] work_of_day) {
        this.work_of_day = work_of_day;
    }
}

生成するbean

// SAMPLE11Bean.java
public class SAMPLE11Bean
    implements com.fujitsu.interstage.apfw.bean.ApfwBean
{
    private int apfw_result;
    private WORK_TIME work_time;
    private int result_code;
    public SAMPLE11Bean() {}
    public void setApfw_result(int apfw_result)
    {
        this.apfw_result = apfw_result;
    }
    public int getApfw_result()
    {
        return this.apfw_result;
    }
    public void setWork_time(WORK_TIME work_time)
    {
        this.work_time = work_time;
    }
    public WORK_TIME getWork_time()
    {
        return this.work_time;
    }
    public void setResult_code(int result_code)
    {
        this.result_code = result_code;
    }
    public int getResult_code()
    {
        return this.result_code;
    }
}