デフォルトでは、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 shift-key-setting pic 9(2) comp-x. 03 filler pic x value "4". 03 first-shift-key pic 9(2) comp-x. 03 number-of-shift-keys pic 9(2) comp-x.
次のコードは Ctrl を有効にして、ACCEPT 操作を終了してから ACCEPT 操作が Ctrl によって終了したかどうかを確認できるようにします。
* Enable Ctrl move 1 to shift-key-setting move 2 to first-shift-key move 1 to number-of-shift-keys move 1 to adis-function call x"AF" using adis-function adis-parameter accept data-item at 0101 if key-type = "5" evaluate key-code-1 when 2 display "Ctrl pressed" when other display "Other shift key pressed" end-evaluate end-if.