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

Procedure Division
HP NonStop Pathway/iTS SCREEN COBOL Reference Manual—426750-003
6-94
RESTART-TRANSACTION Statement
The DEPENDING ON clause for the RESET statement is analogous to the
DEPENDING ON clause for the PERFORM ONE statement. The following example
illustrates this.
WORKING-STORAGE SECTION.
:
77 ws-screen-status PIC 9(4) COMP VALUE 1.
01 ws-table.
05 ws-table-item PIC X(10)
OCCURS 4 TIMES.
SCREEN SECTION.
:
01 MENU1 SIZE 24, 80.
05 screen-table at 3, 4
PIC X(10)
OCCURS ON 4 LINES SKIPPING 1
VALUE "0000000000"
USING ws-table-item.
PROCEDURE DIVISION.
:
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.
RESTART-TRANSACTION