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-37
Monitoring Descendants’ Completion
WORKING-STORAGE SECTION.
01 MESSAGE-SOURCE-REC.
05 SYSTEM-FLAG PIC S9 COMP.
05 ENTRY-NUMBER PIC 999 COMP.
05 FILLER PIC X(4).
05 PROCESS-HANDLE
10 CPU-PIN.
15 CPU PIC S9(2) COMP.
15 PIN NATIVE-2.
05 FILLER PIC X(16).
01 CPU-PIN-REDEF.
05 ALPHA-CPU.
10 CPU-HIGH-BYTE PIC X.
10 CPU-LOW-BYTE PIC X.
05 NUMERIC-CPU REDEFINES ALPHA-CPU
PIC S9999 COMP.
05 ALPHA-PIN.
10 PIN-HIGH-BYTE PIC X.
10 PIN-LOW-BYTE PIC X.
05 NUMERIC-PIN REDEFINES ALPHA-PIN
PIC S9999 COMP.
01 FILE-DATA.
05 RECEIVE-FILE-STATUS.
10 STAT-1 PIC 9.
88 CLOSE-FROM-REQUESTOR VALUE 1 THRU 3.
10 STAT-2 PIC 9.
01 SAVE-MESSAGE-STUFF.
05 FUP PIC X(21) VALUE "$SYSTEM.SYSTEM.FUP".
05 SU-ERROR PIC S9(4) VALUE ZERO COMP.
05 NEWPROCESS-ERR-LEFT PIC 9(4).
05 NEWPROCESS-ERR-RIGHT PIC 9(4).
05 FUP-FAILED PIC X(19) VALUE "Failed to start FUP".
05 STRING-PORTION PIC X(6) VALUE "STRING".
05 INFO-COMMAND PIC X(6) VALUE "INFO *".
05 STARTUP-RESULT PIC S9(4) VALUE ZERO COMP.
05 NULL-CPLIST PIC S9(9) VALUE ZERO COMP.
PROCEDURE DIVISION.
DECLARATIVES.
HANDLE-INFILE-ERRORS SECTION.
USE AFTER STANDARD ERROR PROCEDURE ON MESSAGE-IN-FILE.
INFILE-ERROR.
IF STAT-1 = 1
DISPLAY "EOF on $RECEIVE"
ELSE
DISPLAY "RECEIVE FILE ERROR STATUS = "
RECEIVE-FILE-STATUS
...
END DECLARATIVES.
AA SECTION.
AA-1.
OPEN INPUT MESSAGE-IN-FILE.
MOVE ZERO TO SU-ERROR
SYS-MSG-CODE.
* Inject INFO command into startup message to pass to FUP
ENTER "PUTSTARTUPTEXT"
USING STRING-PORTION,
INFO-COMMAND,
NULL-CPLIST
GIVING STARTUP-RESULT.
Example 31-16. Monitoring Completion of Descendant Processes (page2of3)