このルーチンは、どのロック キーが現在アクティブであるかを判断します。たとえば、Scroll Lock キーはスクロール ロックがオンの場合にアクティブになります。
次の呼び出しで、現在どのロック キーがアクティブであるかを判断します。
call x"AF" using adis-function
adis-parameter
adis-function および adis-parameter は、プログラムの作業場所節で次のように定義します。
01 adis-function pic 9(2) comp-x. 01 adis-parameter pic 9(4) comp-x.
詳細は次のとおりです。