Pathway/iTS SCREEN COBOL Reference Manual (H06.10+, J06.03+)

Data Division
HP NonStop Pathway/iTS SCREEN COBOL Reference Manual—426750-003
5-100
PW-USE-NEW-CURSOR Special Register
The following is an example of how to use this register:
IF PW-UNSOLICITED-MESSAGE-QUEUED EQUALS "YES"
PERFORM process-message
UNTIL PW-UNSOLICITED-MESSAGE-QUEUED EQUALS "NO".
PW-USE-NEW-CURSOR Special Register
The PW-USE-NEW-CURSOR special register preserves the current cursor position
following unsolicited message processing.
When a block-mode ACCEPT operation is interrupted by the arrival of an unsolicited
message, the user might typically be typing data on the current screen. The SCREEN
COBOL program then processes the unsolicited message. The SCREEN COBOL
program reissues the interrupted ACCEPT operation.
Usually reissuing the ACCEPT operation allows the cursor to be repositioned as
specified in the NEW-CURSOR special register. This would take place if PW-USE-
NEW-CURSOR contained the value YES.
If, before reissuing the ACCEPT operation, the SCREEN COBOL program places the
value NO in PW-USE-NEW-CURSOR, the screen cursor will be left where the user has
positioned it. This prevents the loss of cursor position following unsolicited message
processing that involves either no terminal I/O or terminal output only.
The PW-USE-NEW-CURSOR special register is reset to its default value of YES
following completion of an ACCEPT, DISPLAY BASE, or CALL operation.
The register has the following implicit declaration and default value:
REDISPLAY Special Register
The REDISPLAY special register can prevent unnecessary moving of screen field data
to terminal memory. This register indicates to the TCP whether screen field data must
be sent to the terminal during processing of a DISPLAY statement or redisplayed from
data already in terminal memory. The REDISPLAY register affects data transmission
only for the DISPLAY statement and only for areas defined in a base screen but not in
an overlay area.
The REDISPLAY register supports T16-6520, T16-6530, and T16-6540 terminals
operating in block mode. This register does not support other types of terminals or
terminals operating in conversational mode, and it does not support intelligent devices.
A single copy of the REDISPLAY register is global to the SCREEN COBOL program
units. The register is set to NO (disables redisplay) when the terminal is first started.
The SCREEN COBOL program can move YES (requests redisplay) into the register for
specific screens.
01 PW-USE-NEW-CURSOR PIC A(3) VALUE "YES".