x"AF" function 57 - 遅延 DISPLAY の有効化または無効化

1 回の呼び出しで複数の DISPLAY 文を使用して画面を更新します。

x"AF" function 57 は、いくつかの DISPLAY 文を、実行するたびに画面を更新しないで実行します。画面を更新する 1 つのみの呼び出しを実行でき、結果的に画面更新処理が高速になることがあります。

画面の更新は、ACCEPT 文を実行するまで、または、画面を更新し、画面更新を再度有効にするこの呼び出しを使用するまで、遅延されます (次を参照)。

構文:

call x"AF" using   control-update-fn
                   control-update-param 

パラメーター:

control-update-fn pic x comp-x value 57。
control-update-param 次のいずれかの値を含む pic x comp-x value フィールド。
  • 1 - 遅延更新方式を使用します。
  • 0 - 遅延更新方式を無効にし、画面を直ちに更新します。

説明:

ACCEPT 文の実行結果は、パラメーターを 0 に設定してこの呼び出しを実行する場合と同じです。そのため、遅延更新方式を使用したい場合は、ACCEPT 文を実行後、パラメーターを 1 に設定してこの呼び出しを別に実行します。

例:

 01 control-update-fn       pic x comp-x value 57.
 01 control-update-param    pic x comp-x.
   ...
     move 1 to control-update-param.
     call x"af" using control-update-fn
                      control-update-param.
            ...
* Any DISPLAY statements here are not reflected on the screen
      ...
     move 0 to control-update-param.
     call x"af" using control-update-fn
                           control-update-param.
* Now all the previous displayed information is visible.