Adis での Panels の使用状態を返します。
x"AF" function 63 は、どのように Adis が ACCEPT 文および DISPLAY 文に対して Panels を使用しているのかの詳細を取得します。
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.