付録F.4　可変長データを使用した例

JavaBean版とEJB対応版で共通なOCCURS句指定時の例を該当部分だけ抜き出して記載します。

〈この項の構成〉

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

• (2)　Servlet(Java UAP)例

COBOL引数の登録集原文例
       01 XML-DATA     PIC X(10000004).
       01 XML-DATA-R   REDEFINES XML-DATA.
         05 XML-LEN    PIC S9(9) USAGE COMP.     [可変長データの長さ部分]
         05 XML-ITEM   PIC X(10000000).     [可変長データ自身]
 
COBOLプログラム例
        ：
       PROCEDURE DIVISION USING ...
 
      *> 検索処理
           IF XML-LEN > ZERO THEN
             MOVE XML-ITEM(1:XML-LEN) TO WK
             ：
           END-IF

：
byte[] sdata=new byte[10000000];
：  (sdataにバイト配列データを設定)       [50バイトのデータを設定]
bean.setXml_data(sdata, 50);              [JavaBean版]
remoteobj.setXml_data(sdata, 50);         [EJB対応版]
}
：                                        [データを取得する]
byte[] rdata=bean.getXml_data();        [JavaBean版]
byte[] rdata=remoteobj.getXml_data();   [EJB対応版]
：