付録F.3 OCCURS句を使用した例
JavaBean版とEJB対応版で共通なOCCURS句指定時の例を該当部分だけ抜き出して記載します。
(1) COBOL引数の登録集原文とCOBOLプログラム例
COBOL引数の登録集原文例 01 G1. 02 G2 OCCURS 10. 03 B1 PIC X(50). COBOLプログラム例 : PROCEDURE DIVISION USING ... *> 検索処理 IF B1(1)=SPACE THEN : END-IF : MOVE 'TEST OK' TO B1(10). :
(2) Servlet(Java UAP)例
: int i=0; for ( i=0; i < 10; i++ ) { [B1(0)〜B1(9)へ"XXXXX"を設定] bean.setB1("XXXXX", i); [JavaBean版] remoteobj.setB1("XXXXX", i); [EJB対応版] } : [B1(5)を取得] String wkstr=bean.getB1(5); [JavaBean版] String wkstr=remoteobj.getB1(5); [EJB対応版] :