COBOL2002 XML連携機能ガイド
入出力データ情報定義機能を使用すると,入力した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.
:All Rights Reserved. Copyright (C) 2017, 2019, Hitachi, Ltd.