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

Procedure Division
Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001
6-67
RESTART-TRANSACTION Statement
BODY-PARAGRAPH.
:
DISPLAY BASE MENU1.
TURN REVERSE IN MENU1.
DISPLAY MENU1.
:
RESET SCREEN-TABLE(1),
SCREEN-TABLE(2),
SCREEN-TABLE(3),
SCREEN-TABLE(4),
DEPENDING ON WS-SCREEN-STATUS.
If WS-SCREEN-STATUS equals 1, the displayed value and video attribute for
SCREEN-TABLE(1) are reset to the states declared in the screen definition. If
WS-SCREEN-STATUS equals 2, the displayed value and video attribute for SCREEN-
TABLE(2) are reset to the states declared in the screen definition, and so on. It is not
considered erroneous if WS-SCREEN-STATUS < 1 or WS-SCREEN-STATUS > 3.
Control just falls through (execution continues with the next statement) and no screen
field is reset.
RESTART-TRANSACTION Statement
The RESTART-TRANSACTION statement restarts the transaction of a terminal
operating in transaction mode. Transaction mode is an operating mode in which
Pathway servers that are configured to run under the Transaction Management Facility
(TMF) can lock and update audited files.
Execution of this statement indicates the current attempt to perform the transaction
failed because a transient problem occurred.
The statement requests TMF to back out any updates made on a database during this
transaction; terminal execution resumes at the BEGIN-TRANSACTION statement.
TMF assigns a new transaction-ID to the transaction; the TCP marks the screen for
screen recovery and increments by 1 the special register RESTART-COUNTER. The
special register TERMINATION-STATUS remains at 1 (which indicates that the
transaction is started or restarted). Working-storage items are restored to the values they
had at execution of BEGIN-TRANSACTION. If the BEGIN-TRANSACTION
statement includes the ON ERROR phrase, the ON ERROR branch is executed.
The execution of this statement can cause suspension of a terminal for a pending abort
for two reasons:
•
The terminal is not in transaction mode when this statement executes.
•
A fatal error occurs while attempting to back out the updates made on the database.
RESTART-TRANSACTION