Adis キーの有効化および無効化

次の呼び出しを使用します。

 call x"AF" using  set-bit-pairs
                     adis-key-control 

set-bit-pairs および adis-key-control は、プログラムの作業場所節で次のように定義します。

01 set-bit-pairs          pic 9(2) comp-x value 1.
01 adis-key-control.
   03 adis-key-setting    pic 9(2) comp-x.
   03                     pic x value "2".
   03 first-adis-key      pic 9(2) comp-x.
   03 number-of-adis-keys pic 9(2) comp-x.

詳細は次のとおりです。

adis-key-setting

影響を受けるキーの動作を、次のとおり定義します。

0

キーは無効です。ACCEPT 操作中にキーを押すと、キーは拒否されます。

1

キーはファンクション キーとして動作します。ACCEPT 操作中にキーを押すと、ACCEPT 操作が終了します。

2

ACCEPT 操作中に、キーは標準の処理を行います。これはデフォルトの設定です。

3

カーソルが現在のフィールドから離れない限り、キーは通常の処理を続けます。カーソルが現在のフィールドから離れると、ファンクション キーのように動作します。

first-adis-key

影響を受ける最初のキー番号です。

number-of-adis-keys

影響を受ける次のキー番号です。