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.
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.