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

Example 314 Monitoring Completion of Descendant Processes
?ENV COMMON
?SAVE ALL
?SEARCH $SYSTEM.SYSTEM.COBOLLIB
IDENTIFICATION DIVISION.
PROGRAM-ID. FUPPERWARE.
AUTHOR. TERRY COBOL.
INSTALLATION. TRANSACTIONS ANONYMOUS.
DATE-WRITTEN. 29 FEBRUARY 1988.
DATE-COMPILED.
*************************************************************************
* This program creates a FUP process and watches for its termination. *
*************************************************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. HP TXP.
OBJECT-COMPUTER. HP TXP.
SPECIAL-NAMES.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT MESSAGE-IN-FILE
ASSIGN TO "$RECEIVE"
FILE STATUS IS RECEIVE-FILE-STATUS.
I-O-CONTROL.
RECEIVE-CONTROL.
TABLE OCCURS 1 TIMES
SYNCDEPTH LIMIT IS 1
MESSAGE SOURCE IS MESSAGE-SOURCE-REC
REPORT SYSTEM MESSAGES.
DATA DIVISION.
FILE SECTION.
FD MESSAGE-IN-FILE
LABEL RECORDS ARE OMITTED.
01 MESSAGE-IN.
05 SYS-MSG-CODE PIC S9(4) COMP.
88 SYS-MSG-STOP VALUE -101.
05 SYS-MSG-PROCNAME PIC X(6).
05 FILLER PIC X(66).
05 SYS-MSG-STOP-FLAG NATIVE-2.
05 FILLER PIC X(948).
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.
940 Process Initiation, Communication, and Management