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