次の呼び出しを使用します。
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.
詳細は次のとおりです。