x"AF" function 63 - Adis での Panels の使用状態の返却

Adis での Panels の使用状態を返します。

x"AF" function 63 は、どのように Adis が ACCEPT 文および DISPLAY 文に対して Panels を使用しているのかの詳細を取得します。

構文：

call x"AF" using  get-status-fn
                  get-status-param

パラメーター：

get-status-fn

pic x comp-x value 63。

get-status-param

次の定義をもつグループ項目。

usage-flag: pic x comp-x value で定義され、Adis が Panels を使用するために初期化されたかどうかが示されます。0 は、Adis が Panels を使用していないことを示します。
status-flag: pic x comp-x value で定義され、Panels の処理が Adis 上で現在有効かどうかが示されます。
current-id: pic xx comp-x で定義され、Adis で使用されているパネルのハンドルが示されます。

例：

 01 get-status-fn         pic x comp-x value 63.
 01 get-status-param.
     03 panels-usage-flag     pic x comp-x.
     03 panels-status-flag    pic x comp-x.
     03 current-panel-id      pic xx comp-x.
  ...
     call x"af" using get-status-fn
                      get-status-param.
     if panels-usage-flag = 0
         display "Adis is not using Panels."
     else
         if panels-status = 0 
             display "Use of Panels by Adis is suspended."
         else
             display "Use of Panels by Adis is active."
             display "The ID of the PANEL being used by "
                     "Aids is:"
                     current-panel-id
         end-if
     end-if.