X"AF" function 26

Gets a character from the keyboard.

Syntax:

call x"AF" using function-code
                 key-status

Parameters:

function-code

Call prototype: cblt-x1-compx

Picture: pic x comp-x.

key-status

Group containing:

01 key-status
  03 key-type    pic x.         *> pic x. 
  03 key-code-1  cblt-x1-compx  *> pic x comp-x. 
  03 key-code-2  cblt-x1-compx  *> pic x comp-x.

On Entry:

function-code: Value 26.

On Exit:

key-type

The type of key read, as follows:

1	User-defined function key
2	Adis function key
3	Data key
9	Error

key-code-1

When key-type is 1 or 2, contains the number of the key; 0-127 for user-defined and 0-39 for Adis. See the chapter Adis Configuration Utility (AdisCF) in your Programmer's Guide to Creating User Interfaces for more details on function keys.

When key-type is 3, contains the ASCII code of the key pressed.

When key-type is 9, contains an error code:

8	A disabled character has been keyed, and `key-code-2` contains the character.
9	An invalid keystroke (more than one byte) has occurred.

Comments:

This routine also causes the COBOL screen handling system to be invoked.