コピーブック 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 ドキュメント内の時刻要素は、例が実行されるたびに変化し、現在の時刻を格納します。