X"AF" function 82

Enables IME input in ADIS when executing an ACCEPT on a PIC N or PIC X field.

Syntax:

call x"AF" using function-code
                 parameter

Parameters:

function-code: Call prototype: cblt-x2-compx; Picture: pic 99 comp-x.
parameter: Call prototype: cblt-x2-compx; Picture: pic 99 comp-x.

On Entry:

function-code

Value 82

parameter

Action to perform:

0	Disable IME mode
1	Enable IME mode for both PIC N and PIC X
2	Enable IME for PIC N
3	Enable IME for PIC X

On Exit:

None

Comments:

To use this function, you must add the following code to your program.

In the Working Storage section:

78 Enable-IME value 82.
01 adis-function  pic 99 comp-x.
01  adis-flag-off        pic 99 comp-x value 0. *>disables IME   
01  adis-flag-on         pic 99 comp-x value 1. *>enables for both 
01  adis-flag-pic-n      pic 99 comp-x value 2. *>enables on PIC-N 
01  adis-flag-pic-x      pic 99 comp-x value 3. *>enables on PIC-X

In the Procedure division:

MOVE Enable-IME TO adis-function
CALL X"AF" USING adis-function adis-flag-[on|off|n|x]

If you disable the IME using the x"af" call, manually enabling it using the conversion key will result in the conversion window appearing in the top left corner.