RESET3270

Description

Using the RESET3270 intrinsic is equivalent to pressing the [RESET] key on an IBM 3278 keyboard. The RESET3270 intrinsic unlocks the physical keyboard so you can issue intrinsics like WRITEFIELD and STREAM3270 that write to the internal screen image.

If input is inhibited, and you try to write to the internal screen image with an intrinsic like WRITEFIELD or STREAM3270, the logical keyboard that exists in memory locks. Then, the only way you can release it is by calling the RESET3270 intrinsic. This intrinsic sets the input inhibit bit to zero, which is equivalent to receiving a keyboard enable command from the host.

The TRAN3270 intrinsic disables input when it executes successfully. It also disables input if it returns error codes 14, 16, or 30. Usually, the RECV3270 intrinsic is the first intrinsic called after a call to TRAN3270, and your program receives a keyboard enable in the transmission from the host. However, if you are not expecting the host to send data in response to your TRAN3270 call, or if your call to TRAN3270 did not execute successfully, you should call RESET3270 to enable input.

Use the RESET3270 intrinsic in non-transparent mode.

{************************** Global Declarations **************************}type   shortint      = -32768..32767;       { global type, two bytes (half word) }...var   terminalid    : shortint;          { value returned by OPEN3270 intrinsic }   result        : shortint;...procedure RESET3270;  intrinsic;...{************************** Intrinsic Call **************************}RESET3270 (terminalid, result);