3.2.1　アクセス情報フラグ

開始タグと終了タグ間の内容が空白文字（スペース，タブおよび改行）だけの場合でも空要素とみなしません。空要素とみなすのは，空タグ，および開始タグと終了タグ間の内容がない（<Item></Item>）場合だけです。

無効な文字と判定される条件を次に示します。

• type属性に"national"を指定して，COBOLデータ項目に1バイト文字を入力した場合

  （不当な1バイト文字は，「」（げた記号）に置き換えられます。「」（げた記号）は2バイト文字であるため，size属性で指定した長さを超えてCBLXML-FLAG-OVERFLOWが同時に設定される場合があります）

  不当文字については「9.2 入出力時に不当な文字をチェックする機能」の「表9-3 入力時にチェックする文字」を参照してください。

• type属性に"numeric"，"packed"，"binary"，"float"，または"double"を指定して，COBOLデータ項目に数値以外の値を入力した場合

• sign属性に"unsigned"を指定して，負値を入力した場合

  （ただし，-0は+0が仮定されるため，このフラグは設定されません）

要素，属性の値の長さとItem要素のsize属性に指定した値を比較する場合の条件を次に示します。

• 数字項目（"numeric"，"packed"，"binary"）については，数値の左側の0を削除したけた数とsize属性のけた数を比較して大小を判定します。ただし，符号はけた数に含みません。

• 浮動小数点数（"float"，"double"）については，システムで定義した浮動小数点数の絶対値を超えた場合にsize属性の値を超えたと判定されます。システムで定義した浮動小数点数の絶対値については，ご使用のシステムのマニュアルを参照してください。

対応づけた要素が省略できる場合，またはArray要素の直下にItem要素を対応づけた場合は，要素を出力しません。ただし，次の場合は要素，属性，または空要素を出力します。

• 対応づけた要素が省略できない要素である場合，または対応づけた属性に#REQUIREDを指定した場合

  （CBLXML-FLAG-OKが仮定されて，要素を出力します）

• CBLXML-FLAG-MISSINGとCBLXML-FLAG-EMPTYが同時に指定されている場合

  （CBLXML-FLAG-EMPTYが仮定されて，空要素を出力します）

（DTDの例）

<?xml version="1.0" encoding="Shift_JIS"?>
<!DOCTYPE root [
  <!ELEMENT root (group01)>
  <!ELEMENT group01 (item01)>
  <!ELEMENT item01  (#PCDATA)>
]>
<root/>

（DDFの例）

<?xml version="1.0" encoding="Shift_JIS"?>
<Interface interfaceName="EXAMPLE" accessInfo="yes">
  <BaseElement elemName="group01">
    <Group elemName="group01"
           nameOfFlagVar="G01-FLAG">
      <Item elemName="item01"
            nameOfFlagVar="I01-FLAG"
            type="alphanumeric" size="10"/>
    </Group>
  </BaseElement>
</Interface>

（生成されるCOBOLデータ項目）

 01 group01-BASE.
  02 group01.
   03 item01 PIC X(10).
* Access Information.
  02 G01-FLAG PIC 1(32) USAGE BIT.
  02 group01-GROUP.
   03 I01-FLAG PIC 1(32) USAGE BIT.
   03 item01-LEN PIC 9(9) USAGE COMP.

（COBOL原始プログラムでのアクセス情報フラグの判定例）

         :
01 CHECK-FLAG PIC 1(32) BIT.
         :    
    COMPUTE CHECK-FLAG = I01-FLAG AND CBLXML-FLAG-MISSING.
    IF CHECK-FLAG = CBLXML-FLAG-MISSING  THEN
       DISPLAY 'CBLXML-FLAG-MISSING'
    END-IF.
    COMPUTE CHECK-FLAG = I01-FLAG AND CBLXML-FLAG-EMPTY.
    IF CHECK-FLAG = CBLXML-FLAG-EMPTY  THEN
       DISPLAY 'CBLXML-FLAG-EMPTY'
    END-IF.
    COMPUTE CHECK-FLAG = I01-FLAG AND CBLXML-FLAG-INVAL-CHAR.
    IF CHECK-FLAG = CBLXML-FLAG-INVAL-CHAR  THEN
       DISPLAY 'CBLXML-FLAG-INVAL-CHAR'
    END-IF.
    COMPUTE CHECK-FLAG = I01-FLAG AND CBLXML-FLAG-OVERFLOW.
    IF CHECK-FLAG = CBLXML-FLAG-OVERFLOW  THEN
       DISPLAY 'CBLXML-FLAG-OVERFLOW'
    END-IF.
         :