By default, all of the lock keys are disabled during an ACCEPT operation, or the x"AF" call used to obtain a key. However, this routine enables you to enable or disable the lock keys dynamically.
Use the following call to enable or disable lock keys:
call x"AF" using adis-function adis-parameter
where adis-function and adis-parameter are defined in the Working-Storage Section of your program as follows:
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.