例 5 のプログラムの構造

XML INITIALIZE.

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

If Not XML-OK Go To Z.

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

Move … Time-Stamp.

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

XML EXPORT TEXT Address-Struct 
    Document-Pointer Document-Length "Address-Struct".

データ項目のアドレス、XML ドキュメントのテキスト ポインター、XML ドキュメントのテキストの長さ、および ModelFileName#DataFileName パラメーターの値を指定して XML EXPORT TEXT 文を実行します。

If Not XML-OK Go To Z.

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

Initialize Address-Struct.

アドレス構造体にデータが含まれていないことを確認します。

XML IMPORT TEXT Address-Struct 
    Document-Pointer Document-Length "Address-Struct".

データ項目のアドレス、XML ドキュメントのテキスト ポインター、XML ドキュメントのテキストの長さ、および ModelFileName#DataFileName パラメーターの値を指定して XML IMPORT TEXT 文を実行します。

If Not XML-OK Go To Z.

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

XML PUT TEXT Document-Pointer Document-Length "address05".

XML ドキュメントのテキスト ポインター、XML ドキュメントのテキストの長さ、および XML ドキュメントのファイル名を指定して XML PUT TEXT 文を実行します。

If Not XML-OK Go To Z.

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

XML FREE TEXT Document-Pointer.

XML ドキュメントのテキスト ポインターを指定して XML FREE TEXT 文を実行します。

If Not XML-OK Go To Z.

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