次の呼び出しを使用します。
call x"AF" using set-map-byte adis-key-mapping
set-map-byte および adis-key-mapping は、プログラムの作業場所節で次のように定義します。
01 set-map-byte pic 9(2) comp-x value 3. 01 adis-key-mapping. 03 adis-map-byte pic 9(2) comp-x. 03 adis-key-number pic 9(2) comp-x.
詳細は次のとおりです。
次のコードでは、Back Space キー (キー番号 14) の動作をカーソルを左に移動する (機能 3) に変更し、Tab キー (キー番号 8) で Tab 機能 (機能 8) を実行するように変更します。
* Change mapping of Backspace key move 14 to adis-key-number move 3 to adis-mapping-byte call x"AF" using set-map-byte adis-key-mapping * Change mapping of the tab key move 8 to adis-key-number move 8 to adis-mapping-byte call x"AF" using set-map-byte adis-key-mapping