以下の表は、XML 拡張文の実行に関連する COBOL 文を示しています。一部の COBOL 文 (ほとんどは DISPLAY 文) は省略されています。この例のソースは example11.cbl ファイルに含まれています。
初期化
COBOL 文 |
説明 |
XML INITIALIZE.
|
XML INITIALIZE 文 (パラメーターなし) を実行します。 |
If Not XML-OK Go To Z.
|
文が正常に終了しなかった場合は終了ロジックに移動します。 |
COBOL 文 |
説明 |
Move … To Time-Stamp.
|
Populate theTime-Stamp フィールドを設定します。 |
XML EXPORT FILE
Address-Struct
"address11"
"Address-Struct".
|
データ項目のアドレス、XML ドキュメントのファイル名、および ModelFileName#DataFileName パラメーターの値を指定して XML EXPORT FILE 文を実行します。 |
If Not
XML-OK Go To Z.
|
文が正常に終了しなかった場合は終了ロジックに移動します。 |
COBOL 文 |
説明 |
Initialize Address-Struct.
|
アドレス項目が初期化されていることを確認します。 |
XML IMPORT FILE
Address-Struct
"address11"
"Address-Struct".
|
データ項目のアドレス、XML ドキュメントのファイル名、および ModelFileName#DataFileName パラメーターの値を指定して XML IMPORT FILE 文を実行します。 |
If Not XML-OK Go To Z.
|
文が正常に終了しなかった場合は終了ロジックに移動します。 |
COBOL 文 |
説明 |
Initialize Address-Struct.
|
アドレス項目が初期化されていることを確認します。 |
XML IMPORT FILE
Address-Struct
"x-address11"
"Address-Struct".
|
データ項目のアドレス、XML ドキュメントのファイル名、および ModelFileName#DataFileName パラメーターの値を指定して XML IMPORT FILE 文を実行します。 |
If Not XML-OK Go To Z.
|
文が正常に終了しなかった場合は終了ロジックに移動します。 |