入出力データ情報定義機能を使用すると,入力したXML要素や属性の入力状態を取得できます。また,XML要素の出力状態を設定することもできます。
<?xml version="1.0" encoding="Shift_JIS"?>
<!DOCTYPE root [
<!ELEMENT root (item01, group01)>
<!ELEMENT item01 (#PCDATA)>
<!ELEMENT group01 (item02, item03)*>
<!ELEMENT item02 (#PCDATA)>
<!ELEMENT item03 (#PCDATA)>
]>
<root/>
<?xml version="1.0" encoding="Shift_JIS"?>
<Interface interfaceName="EXAMPLE"
accessInfo="yes">
<BaseElement elemName="root">
<Group cobName="root">
<Item elemName="item01"
type="alphanumeric" size="10" />
<Array max="10">
<Group cobName="group01">
<Item elemName="item02"
type="alphanumeric" size="10" />
<Item elemName="item03"
type="alphanumeric" size="10" />
</Group>
</Array>
</Group>
</BaseElement>
</Interface>
01 root-BASE. …1.
02 root. …2.
03 item01 PIC X(10).
03 group01 OCCURS 10.
04 item02 PIC X(10).
04 item03 PIC X(10).
* Access Information …3.
02 root-FLG PIC 1(32) USAGE BIT.
02 root-GROUP.
03 item01-FLG PIC 1(32) USAGE BIT.
03 item01-LEN PIC 9(9) COMP.
03 group01-TOTAL PIC 9(9) COMP.
03 group01-COUNT PIC 9(9) COMP.
03 group01-GROUP OCCURS 10.
04 item02-FLG PIC 1(32) USAGE BIT.
04 item02-LEN PIC 9(9) COMP.
04 item03-FLG PIC 1(32) USAGE BIT.
04 item03-LEN PIC 9(9) COMP.
:
CALL 'CBLXML-WR-EXAMPLE-root'
USING XML-POINTER root-BASE …4.
RETURNING CBLXML-RETURN-CODE.
: