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-99
REDISPLAY Special Register
•
The screen field items referred to in the DISPLAY statement must be defined in the
base screen and not in an overlay area.
When the REDISPLAY register is set to NO (the default setting), a DISPLAY statement
results in the TCP moving the contents of the screen fields to terminal memory. The
following events occur:
•
The TCP obtains screen field values from associated Working-Storage items and
moves the values to terminal memory.
•
TCP resets the modified data tags for all screen fields.
When the REDISPLAY register is set to YES and redisplay is enabled for the screen, a
DISPLAY statement usually results in redisplaying the screen field data held in terminal
memory. The following events occur:
•
Data already in terminal memory is used for the display. (The TCP moves no values
from Working-Storage items.)
•
TCP resets the modified data tags for all screen fields.
If the REDISPLAY register is set to YES and the DISPLAY statement is the first
DISPLAY after a DISPLAY BASE statement during which the screen was not in
terminal memory, the TCP moves all screen field data to terminal memory. The
following events occur in this situation:
•
The TCP obtains screen field values from associated Working-Storage items and
moves the values to terminal memory.
•
All modified data tags for screen fields are reset.
The register has the following implicit declaration:
An example of the REDISPLAY register is:
PROCEDURE DIVISION.
:
MOVE "YES" TO REDISPLAY.
DISPLAY BASE EMPLOYEE-REC-SCREEN.
DISPLAY EMPLOYEE-REC-SCREEN.
:
In this example, the REDISPLAY register is set to YES before the DISPLAY BASE
statement executes to enable REDISPLAY for the screen. After the DISPLAY BASE
statement executes, the REDISPLAY register can be reset as desired for subsequent
execution of the DISPLAY screen statement.
01 REDISPLAY PIC AAA.