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

Data Division
HP NonStop Pathway/iTS SCREEN COBOL Reference Manual—426750-003
5-101
REDISPLAY Special Register
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 runs. This enables redisplay processing for
the screen.
•
The REDISPLAY register must be set to YES at the time the affected DISPLAY
statement runs.
•
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.
:
01 REDISPLAY PIC AAA.