付録H.5 OCCURS句を使用した例
TP1/Client/PまたはTP1/Client/W版,TP1/Client/J版およびCosminexus TP1 Connector版で共通なOCCURS句指定時の例を,該当部分だけ抜き出して記載します。
(1) COBOL引数の登録集原文とCOBOLプログラム例
入力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). :
(2) Java UAP(Servlet)例
: 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)を取得 :