COBOL Manual for TNS and TNS/R Programs

Process Initiation, Communication, and
Management
HP COBOL Manual for TNS and TNS/R Programs—522555-006
31-40
Suspending a Process
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT REPORT-OUT
ASSIGN TO "\HQ.$BOSS"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS REPORT-STATUS.
DATA DIVISION.
FILE SECTION.
FD REPORT-OUT
LABEL RECORDS ARE OMITTED.
01 REPORT-LINE PIC X(80).
WORKING-STORAGE SECTION.
01 REPORT-STATUS PIC XX VALUE " ".
01 REPEAT-INTERVAL PIC S9(10) VALUE 30000.
* = 5 min * 60 sec * 100
PROCEDURE DIVISION.
DECLARATIVES.
HANDLE-REPORT-ERRORS SECTION.
USE AFTER STANDARD ERROR PROCEDURE ON REPORT-OUT.
REPORT-ERROR.
* An empty declarative can be used to intercept error conditions
* and set the file status data item.
* Presence of a declarative does not prevent the run-time routine
* from delivering an error 019 to the home terminal of this
* process.
END DECLARATIVES.
PULLMAN SECTION.
ZZZZ.
PERFORM OPEN-IT
UNTIL REPORT-STATUS = "00".
MOVE "Having a wonderful time! Wish you were here."
TO REPORT-LINE.
WRITE REPORT-LINE.
CLOSE REPORT-OUT.
STOP RUN.
OPEN-IT.
OPEN OUTPUT REPORT-OUT.
IF REPORT-STATUS NOT = "00"
* That is, error on file open.
ENTER TAL "DELAY"
USING REPEAT-INTERVAL.
Example 31-17. Suspending a Process (page2of2)