付録F.4 可変長データを使用した例
JavaBean版とEJB対応版で共通なOCCURS句指定時の例を該当部分だけ抜き出して記載します。
(1) COBOL引数の登録集原文とCOBOLプログラム例
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
(2) Servlet(Java UAP)例
: 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対応版] :