例 3 のデータ項目

コピーブック s-struct3.cpy で定義されている COBOL データ項目の内容は、次のとおりです。

*
* Title: s-struct3.cpy: XML Extensions sample data structure.
*
* Copyright © Micro Focus 2008-2013.
*     All rights reserved.
*
* Version Identification:
*   $Revision$
*   $Date$
*   $URL$
*
01  Address-Struct3.
    02  Time-Stamp    Pic X(23).
    02  Name          Pic X(64)
             Value "Cowboy Hats and More Company".
    02  City          Pic X(32) Value "San Marcos".
    02  State         Pic X(2) Value "TX".
    02  Zip           Pic 9(5) Value 78666.
    02  Country       PIC X(64)
              Value "United States of America".
    02  Address-Lines Pic 9.
    02  Address-Line  Pic X(64)
              Occurs 1 to 5 times Depending on Address-Lines.
01 Struct-Name       Pic X(15) Value "Address-Struct3".
01 Street            PIC X(64) Value
                 "504 Broadway Street".
01 Building          PIC X(64) Value "Building 1".
01 Suite             PIC X(64) Value "Suite 142".

このデータ項目には、会社の住所情報が格納されます。「例 1 ファイルのインポートおよびファイルのエクスポート」の構造体と異なる点として、この構造体には OCCURS DEPENDING 指定が追加されています。Address-1 および Address-2 用に個別のデータ名を記述する代わりに、Address-Line という可変長の配列が定義されています。Address-Line は可変長であるため、構造体の最後のデータ項目にする必要があります。Address-Lines という新しいデータ項目が Address-Line 配列の直前に追加されています。 Address-Lines は、配列 Address-Line が依存する変数です。

構造体の最初のフィールドは、プログラムが実行された時刻を含むタイム スタンプです。このフィールドにより、例の実行を確認する際に結果が最新のものであると確かめることができます。生成される XML ドキュメント内の時刻要素は、例が実行されるたびに変化し、現在の時刻を格納します。