Pathway/iTS SCREEN COBOL Reference Manual (G06.24+, H06.03+, Pathway/iTS 1.0+)

Data Division
Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001
5-98
PW-USE-NEW-CURSOR Special Register
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.
For redisplay processing to apply to a DISPLAY statement, these requirements must be
met:
•
The REDISPLAY register must be set to YES at the time the DISPLAY BASE
statement for the current base screen executes. This enables redisplay processing
for the screen.
•
The REDISPLAY register must be set to YES at the time the affected DISPLAY
statement executes.
01 PW-USE-NEW-CURSOR PIC A(3) VALUE "YES".