例 2 のプログラムの構造

XML INITIALIZE.

XML INITIALIZE 文 (パラメーターなし) を実行します。

If Not XML -OK Go To Z.

文が正常に終了しなかった場合は終了ロジックに移動します。

Move … To Time-Stamp.

Populate theTime-Stamp フィールドを設定します。

XML EXPORT FILE Address-Struct "address02.xml" 
                      "Address-Struct" "toext". 
				  

データ項目のアドレス、XML ドキュメントのファイル名、ModelFileName#DataFileName パラメーターの値、および外部 XSLT スタイルシートの名前を指定して XML EXPORT FILE 文を実行します。

If Not XML-OK Go To Z.

文が正常に終了しなかった場合は終了ロジックに移動します。

Initialize Address-Struct.

Address-Struct 構造体にデータが含まれていないことを確認します。

XML IMPORT FILE Address-Struct "address02.xml"
                      "Address-Struct" "toint".

データ項目のアドレス、XML ドキュメントのファイル名、ModelFileName#DataFileName パラメーターの値、および外部 XSLT スタイルシートの名前を指定して XML IMPORT FILE 文を実行します。

If Not XML-OK Go To Z.

文が正常に終了しなかった場合は終了ロジックに移動します。

Z.

エラー状態の GO TO 文のターゲットとなる段落名です。

Copy "lixmltrm.cpy".

Stop Run.  

COBOL プログラムを終了します。

Copy "lixmldsp.cpy".