Suspends the use of Panels by Adis.
The x"AF" function 62 allows you to suspend the use of Panels by Adis, in order to allow direct screen writes where Panels is not required.
You must have previously initialized Adis to use Panels using x"AF" function 49.
call x"AF" using suspend-function suspend-parameter
suspend-function | pic x comp-x value 62. |
suspend-parameter | A pic x comp-x value field containing one of the following values:
|
01 suspend-function pic x comp-x value 62. 01 suspend-parameter pic x comp-x. ... * (Code to set up Adis to use Panels) ... * Suspend Panels working move 0 TO suspend-parameter. call x"af" using suspend-function suspend-parameter. ... * Reactivate Panels working move 1 TO suspend-parameter. call x"af" using suspend-function suspend-parameter.
Comments:
If Adis has not been initialized to work with Panels, the value 255 is returned in suspend-function.