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

INSTALLATION. TRANSACTIONS ANONYMOUS.
DATE-WRITTEN. 29 FEBRUARY 1988.
DATE-COMPILED.
**************************************************************************
* This program sends one message to $BOSS on system \HQ. If that *
* process cannot be opened, the program tries again every five minutes. *
**************************************************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. HP TXP.
OBJECT-COMPUTER. HP TXP.
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.
Managing a Process 943