Use the following call:
call x"AF" using adis-function
adis-parameter
where:
01 adis-function pic x comp-x value 1.
01 adis-parameter
03 bitpair-setting pic x comp-x value 1.
03 bitpair-section pic x value "2".
03 bitpair-index pic x comp-x value 85.
03 bitpair-count pic x comp-x value 1.
To restore Adis so that characters are accepted in the case in which they are typed, set bitpair-setting to 0.