付録F.5　アドレスデータを使用した例

JavaBean版とEJB対応版で共通なアドレスデータ指定時の例を，該当部分だけ抜き出して記載します。

〈この項の構成〉

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

• (2)　Java UAP(Servlet)例

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

：
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対応版]
    ：