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

Data Division
HP NonStop Pathway/iTS SCREEN COBOL Reference Manual—426750-003
5-102
RESTART-COUNTER Special Register
In this example, the REDISPLAY register is set to YES before the DISPLAY BASE
statement runs to enable REDISPLAY for the screen. After the DISPLAY BASE
statement runs, the REDISPLAY register can be reset as desired for subsequent
execution of the DISPLAY screen statement.
RESTART-COUNTER Special Register
The RESTART-COUNTER special register contains the number of times a
transaction has been restarted during transaction mode. The first time the
BEGIN-TRANSACTION statement runs, the register is set to zero. This number is
incremented immediately following each execution of the BEGIN-TRANSACTION
statement.
The register has the following implicit declaration:
STOP-MODE Special Register
The STOP-MODE special register can prevent interruption of multiple step
transactions. A single copy of this register is global to the program units.
The register is set to zero when the terminal is first started, and the value is
subsequently under program control. Most programs will continue with a value of zero.
When the value is nonzero, several PATHCOM commands are affected. The effect of
the STOP TERM, SUSPEND TERM, and FREEZE SERVER commands is delayed
until the register value returns to zero. The SUSPEND and FREEZE commands can
be issued in a form that causes the STOP-MODE value to be disregarded.
The register has the following implicit declaration:
TELL-ALLOWED Special Register
The TELL-ALLOWED special register can be set by the program to control the issuing
of tell messages to a terminal during ACCEPT statement processing. It has no
meaning for programs communicating with intelligent devices.
A copy of this register is available to each program unit. The register is initialized to
YES each time the program unit is called. The program can move NO into the register
to prevent tell messages from being displayed during succeeding accept operations.
When this register is set to YES and a tell message is waiting, the following occurs:
•
When the TCP is about to complete an accept operation, it displays the tell
message (prefixed by the word MESSAGE:) in the ADVISORY field.
01 RESTART-COUNTER PIC 9999 COMP.
01 STOP-MODE PIC 9999 COMP.