付録H.5　OCCURS句を使用した例

TP1/Client/PまたはTP1/Client/W版，TP1/Client/J版およびCosminexus TP1 Connector版で共通なOCCURS句指定時の例を，該当部分だけ抜き出して記載します。

〈この項の構成〉

• (1)　COBOL引数の登録集原文とCOBOLプログラム例

• (2)　Java UAP(Servlet)例

入力COBOL引数の登録集原文例
       01 G1.
        02 G2  OCCURS 10.
         03 B1         PIC X(50).
出力COBOL引数の登録集原文例
       01 F1.
        02 F2  OCCURS 10.
         03 E1         PIC X(50).
COBOLプログラム例
        ：
       PROCEDURE DIVISION USING ...
 
      *>  検索処理
           IF B1(1) = SPACE THEN
             ：
           END-IF
             ：
           MOVE 'TEST OK' TO E1(10).
             ：

：
int i = 0;
for ( i = 0; i < 10; i++ ) {
      bean.setB1I("XXXXX", i);      …　B1(0)〜B1(9)へ"XXXXX"を設定
    }
    ：
    String wkstr = bean.getE1O(5);   … B1(5)を取得
    ：