付録F.5 アドレスデータを使用した例
JavaBean版とEJB対応版で共通なアドレスデータ指定時の例を,該当部分だけ抜き出して記載します。
(1) COBOL引数の登録集原文とCOBOLプログラム例
COBOL引数の登録集原文例 01 XML-POINTER USAGE ADDRESS. COBOLプログラム例 : WORKING-STORAGE SECTION. 01 XML-DATA ADDRESSED BY XML-DATA-ADDR. 05 XML-LEN PIC S9(9) USAGE COMP. [可変長データの長さ部分] 05 XML-ITEM PIC X(10000000). [可変長データ自身] : PROCEDURE DIVISION USING BY VALUE XML-POINTER. : COMPUTE XML-DATA-ADDR=XML-POINTER. [受け取ったアドレスを設定] IF XML-LEN > ZERO THEN MOVE XML-ITEM(1:XML-LEN) TO WK : END-IF
(2) Java UAP(Servlet)例
: byte[] sdata=new byte[20000000]; : (sdataにバイト配列データを設定) [50バイトのデータを設定] bean.setXml_pointer(sdata, 50); [JavaBean版] remoteobj.setXml_pointer(sdata, 50); [EJB対応版] } : [データを取得する] byte[] rdata=bean.getXml_pointer(); [JavaBean版] byte[] rdata=remoteobj.getXml_pointer(); [EJB対応版] :