x"AF" Function 63 - Return Status of Panels Used by Adis

Returns the status of Panels' use by Adis.

The x"AF" function 63 allows you to obtain details of how Adis is using Panels for ACCEPT and DISPLAY statements.

Syntax:

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

Parameters:

`get-status-fn`	pic x comp-x value 63.
`get-status-param`	A group item with the following definition: `usage-flag` Defined as pic x comp-x value, specifying whether Adis has been initialized to use Panels. 0 indicates that Adis is not using Panels. `status-flag` Defined as pic x comp-x value, specifying whether Panels working is currently enabled on Adis. `current-id` Defined as pic xx comp-x, specifying the handle of the panel being used by Adis.

Example:

 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.