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) 2003, 2016, Hitachi, Ltd.