デフォルトでは、ACCEPT 操作中はすべてのロック キーが無効になっているか、x"AF" 呼び出しでキーを取得します。ただし、このルーチンにより動的にロック キーを有効化または無効化できます。
次の呼び出しで、ロック キーを有効化または無効化します。
call x"AF" using adis-function adis-parameter
adis-function および adis-parameter は、プログラムの作業場所節で次のように定義します。
01 adis-function pic 9(2) comp-x. 01 adis-parameter. 03 lock-key-setting pic 9(2) comp-x. 03 filler pic x value "5". 03 first-lock-key pic 9(2) comp-x. 03 number-of-lock-keys pic 9(2) comp-x.
詳細は次のとおりです。