COBOL2002 XML連携機能ガイド


3.2.4 繰り返し入出力数

繰り返し入出力数には,Array要素に対応づけた繰り返し要素を実際に入力した繰り返し回数が格納されます。繰り返し入出力数は9けたの2進形式の数字項目として,cblxmlコマンドが生成するXMLアクセス用データ定義に生成されます。

繰り返し入出力数のCOBOLデータ項目名称

Array要素のnameOfCountVar属性に指定した名称が,繰り返し入出力数のCOBOLデータ項目名称になります。

nameOfCountVar属性の指定がない場合は,cobName属性(省略時はelemName属性)の名称に"-COUNT"を追加した名称が,繰り返し入出力数のCOBOLデータ項目名称になります。

〈この項の構成〉

(1) nameOfTotalVar属性とnameOfCountVar属性の指定例

入出力データ情報定義機能を使用した場合のnameOfTotalVar属性とnameOfCountVar属性の指定例を次に示します。

指定例
(DTDの例)
<?xml version="1.0" encoding="Shift_JIS"?>
<!DOCTYPE root [
  <!ELEMENT root (group01*)>
  <!ELEMENT group01 (item01, item02)>
  <!ELEMENT item01  (#PCDATA)>
  <!ELEMENT item02  (#PCDATA)>
]>
<root/>
(DDFの例)
<?xml version="1.0" encoding="Shift_JIS"?>
<Interface interfaceName="EXAMPLE">
  <BaseElement elemName="root" accessInfo="yes">
    <Group cobName="root">
      <Array max="10" nameOfCountVar="ARY-CNT"
             nameOfTotalVar="ARY-TOL">
        <Group cobName="group1">
          <Item elemName="item01" type="alphanumeric"
                size="10" />
          <Item elemName="item02" type="alphanumeric"
                size="10" />
        </Group>
      </Array>
    </Group>
  </BaseElement>
</Interface>
(生成されるCOBOLデータ項目)
 01 root-BASE.
  02 root.
   03 group01 OCCURS 10.
    04 item01 PIC X(10).
    04 item02 PIC X(10).
* Access Information
  02 root-GROUP.
   03 ARY-TOL PIC 9(9) USAGE COMP.
   03 ARY-CNT PIC 9(9) USAGE COMP.
   03 group01-GROUP OCCURS 10.
    04 item01-FLG PIC 1(32) USAGE BIT.
    04 item01-LEN PIC 9(9) USAGE COMP.
    04 item02-FLG PIC 1(32) USAGE BIT.
    04 item02-LEN PIC 9(9) USAGE COMP.