Enabling and Disabling Adis Keys

Use the following call:

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

where set-bit-pairs and adis-key-control are defined in the Working-Storage Section of your program as follows:

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.

where:

adis-key-setting

defines the action of the keys affected, as follows:

0

the keys are disabled. If the key is pressed during an ACCEPT operation, the key is rejected.

1

the key acts like a function key. If pressed during an ACCEPT operation, the ACCEPT operation is terminated.

2

the key performs its normal action during an ACCEPT operation. This is the default.

3

the key performs its normal action unless it causes the cursor to leave the current field. If this happens, it behaves like a function key.

first-adis-key

is the number of the first key to be affected.

number-of-adis-keys

is the number of consecutive keys to be affected.