この COBOL プログラムは、欠如している中間親名がある XML ドキュメントを COBOL データ形式に変換し、COBOL データ項目に格納する方法を示します(欠如している中間親名に対処するこの機能は、Web サービスなどのフラット化されたデータ項目を扱うプログラムの複雑さを軽減するために用意されています)。COBOL プログラムおよび XML ドキュメント ファイルは、同じ基本項目を含んでいる場合がありますが、同一の構造ではないこともあります。XML 拡張は、COBOL データ項目と XML ドキュメント構造との間に 1 対 1 の対応関係が存在しないような場合に対処する方法を提供します。欠如している中間親名がある定義済み XML ドキュメントを COBOL プログラムでインポートする場合において、次の状況を考えてみましょう。
01 MY-ADDRESS. 02 ADDRESS-1 PIC X(64) VALUE "101 Main St.". 02 ADDRESS-2 PIC X(64) VALUE "Apt 2B". 02 ADDRESS-3. 03 CITY PIC X(32) VALUE "Smallville". 03 STATE PIC X(2) VALUE "KS".
<my-address> <address-1>101 Main St.</address-1>
<address-2>Apt 2B</address-2>
<address-3><city>Smallville</city>
<state>KS</state> </address-3>
</my-address>
あいまいさを解決するために中間親名が必要でない場合には、入力時に XML 拡張によってドキュメント構造が再構築されます。例えば、入力 XML ドキュメントに次の情報が含まれている場合、上記のドキュメントと互換性のある XML ドキュメントを生成するためにaddress-3 およびmy-address の中間親名が追加されます。
<root> <address-1>101 Main St.</address-1> <address-2>Apt 2B</address-2>
<city>Smallville</city> <state>KS</state>
</root>
例 11 では、この状況をより詳しく示します。
この例では、次の XML 文を使用します。