COBOL2002 Cosminexus連携機能ガイド
JavaBean版とEJB対応版で共通なアドレスデータ指定時の例を,該当部分だけ抜き出して記載します。
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対応版] :
All Rights Reserved. Copyright (C) 2003, 2016, Hitachi, Ltd.