入出力データ情報定義機能を使用した場合,入出力データ情報項目の名称としてGroup要素に対応した集団項目が生成されます。
集団項目名は,Group要素のcobName属性に指定した名称(省略時はelemName属性)に"-GROUP"を追加した名称になります。
Group要素にelemName属性を使って要素を対応づけている場合は,Group要素に対してアクセス情報フラグが生成されます。Group要素にcobName属性だけを指定している場合は,アクセス情報フラグが生成されません。
"-GROUP"を追加した名称は,一意である必要があります。一意でない名称を指定した場合,COBOL原始プログラムの生成時にエラーとなります。
<?xml version="1.0" encoding="Shift_JIS"?>
<!DOCTYPE root [
<!ELEMENT root (group01, group02)>
<!ELEMENT group01 (item01)>
<!ELEMENT item01 (#PCDATA)>
<!ELEMENT group02 (item02)>
<!ELEMENT item02 (#PCDATA)>
]>
<root/>
<?xml version="1.0" encoding="Shift_JIS"?>
<Interface interfaceName="EXAMPLE">
<BaseElement elemName="group01" accessInfo="yes">
<Group elemName="group01">
<Item elemName="item01" type="alphanumeric"
size="10" />
</Group>
</BaseElement>
<BaseElement elemName ="group02" accessInfo="yes">
<Group cobName="group02">
<Item elemName="item02" type="alphanumeric"
size="10" />
</Group>
</BaseElement>
</Interface>
01 group01-BASE.
02 group01.
03 item01 PIC X(10).
* Access Information
02 group01-FLG PIC 1(32) USAGE BIT. …1.
02 group01-GROUP.
03 item01-FLG PIC 1(32) USAGE BIT.
03 item01-LEN PIC 9(9) USAGE COMP.
01 group02-BASE.
02 group02.
03 item02 PIC X(10).
* Access Information
02 group02-GROUP.
03 item02-FLG PIC 1(32) USAGE BIT.
03 item02-LEN PIC 9(9) USAGE COMP.