COBOL Manual for TNS/E Programs (H06.03+)

Fault-Tolerant Processes
HP COBOL Manual for TNS/E Programs—520347-003
32-12
Using the Fault-Tolerant Facility
Example 32-1. Key Parts of Fault-Tolerant HP COBOL Program (page 1 of 2)
?NONSTOP
?SAVE PARAM
* Compiler directive specifies that the program is to be
* compiled for execution as a process pair.
FILE SECTION.
FD TEST-FILE
LABEL RECORD IS OMITTED
RECORD CONTAINS 100 CHARACTERS
DATA RECORD IS TEST-REC.
01 TEST-REC.
05 REC-NUM PIC 9(4).
05 ALTKEY-1 PIC X(5).
05 ALTKEY-2 PIC X(5).
...
WORKING-STORAGE SECTION.
01 CKPT-DATA.
* This defines pertinent control information that is
* checkpointed to the backup process
05 KEYNUM PIC 9 VALUE 0.
05 CURR-REC PIC 9(4).
05 CR REDEFINES CURR-REC.
10 FILLER PIC XX.
10 CR-1 PIC 9.
10 CR-2 PIC 9.
05 OLD-BASE PIC 9(4).
05 NEW-BASE PIC 9(4) VALUE 0.
77 BCPU PIC S9(2) COMP VALUE -1.
77 PARAM PIC X(9) VALUE SPACES.
77 PARAM-RET PIC X VALUE SPACES.
77 ERROR-CODE PIC S9(4) COMP VALUE 0.
PROCEDURE DIVISION.
CENTRAL SECTION.
...
OPEN I-O TEST-FILE SHARED SYNCDEPTH 1.
PERFORM GET-CPUNUM.
STARTBACKUP BCPU, 1.
IF PROGRAM-STATUS NOT = "0000"
DISPLAY "STARTBACKUP UNSUCCESSFUL, STATUS = ",
PROGRAM-STATUS.
STOP RUN.
PERFORM UPDATE-RECS
UNTIL UPDATES-DONE.
...