Interstage Business Application ServerV11.0.0 アプリケーション開発ガイド

G.9 基本項目または集団項目にOCCURS句を指定している場合

基本項目または集団項目にOCCURS句を指定している場合、配列はクラスのメンバとしてJavaから参照します。

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

• 基本情報

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

• 実行基盤インタフェースの出力情報
  [実行基盤インタフェースの出力情報]画面の設定値には、すべて任意の値を指定してください。

• パラメタと復帰値情報

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

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

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

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

出力ファイル

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

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

• 生成されるbean

  // SAMPLE08Bean.java
  public class SAMPLE09Bean
      implements com.fujitsu.interstage.apfw.bean.ApfwBean
  {
      private int apfw_result;
      private INT_TABLE int_table;
      private int result_code;
      public SAMPLE09Bean() {}
      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;
      }
  }