C$KEYSTROKE

The C$KEYSTROKE routine allows keystroke configuration using the Acucobol-GT syntax.

Syntax:

CALL "C$KEYSTROKE" USING keySetting

Parameters:

keySetting

PIC X(n)

is the KEYSTROKE setting you would use for the Acucobol-GT KEYSTROKE environment variable.   Example: “EDIT=Next TERMINATE=13 ^M”   The last item in this setting is the keycode. The following keycodes are supported: -----------+------------ Key code | Description -----------+------------ ZB | backspace 8 | backspace 9 | tab 13 | enter 27 | escape 127 | delete ^M | enter ^H | backspace ^I | tab ^[ | escape ^A - ^Z | ctrl-A - ctrl-Z k1 - k0 | F1 - F10 kd | down kh | home kl | left kr | right ku | up kA | insert kB | shift-tab kE | ctrl-end kL | ctrl-delete kN | pagedown kP | pageup K1 - K0 | F10 - F20 KB | ctrl-pagedown KC | ctrl-home KE | end KI | insert KT | ctrl-pageup KX | delete Kd | ctrl-down Kl | ctrl-left Kr | ctrl-right Ku | ctrl-up K? | help S1 - S0 | shift-ctrl-F1 - shift-ctrl-F10 U1 - U2 | f11 - f12 U3 - U4 | shift-f11 - shift-f12 U5 - U6 | ctrl-f11 - ctrl-f12 U7 - U8 | alt-f11 - alt-f12 U9 - U0 | ctrl-shift-f11 - ctrl-shift-f12 a1 - a0 | alt-F1 - alt-F10 A0 - A9 | ctrl-0 - ctrl-9 C1 - C0 | ctrl-F1 - ctrl-F10   The following EDIT values are supported: Backspace, Delete, Down, Erase-Field, Erase-To-End, First, Last, Next, Page-Down, Page-Up, Previous, Up.

This routine is implemented for compatibility with Acucobol-GT. isCOBOL offers a native syntax to set keystrokes. See Keyboard Configuration for details.

Examples:

Example - Set the exception of Control-A to 1 und F1 to 101 using ACU keystroke syntax

call "c$keystroke" using "EXCEPTION=1 ^A" call "c$keystroke" using "EXCEPTION=101 k1"