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-38
Monitoring Descendants’ Completion
* Start FUP
ENTER "CREATEPROCESS"
USING FUP
GIVING SU-ERROR.
* Await termination of FUP, or report it never started
IF SU-ERROR = 0
PERFORM WATCH
UNTIL SYS-MSG-STOP
IF FUNCTION MOD (SYS-MSG-STOP-FLAG, 2) = 0
DISPLAY "FUP terminated normally"
ELSE
DISPLAY "FUP aborted"
END-IF
ELSE
PERFORM DISPLAY-STARTUP-FAILURE.
STOP RUN.
DISPLAY-STARTUP-FAILURE.
EVALUATE SU-ERROR
WHEN 1
DISPLAY FUP-FAILED
" -- REQUIRED PARAMETER MISSING OR ILLEGAL"
WHEN 2
DISPLAY FUP-FAILED
" -- ILLEGAL loadfile NAME ("
FUP ")"
WHEN 3
DISPLAY FUP-FAILED
" -- INFILE, OUTFILE, OR DEFAULT VOLUME"
DISPLAY " NAME CANNOT BE CONVERTED TO NETWORK FORM"
WHEN OTHER
IF SU-ERROR < 256
DISPLAY FUP-FAILED
" -- File management error #"
SU-ERROR
ELSE
* -- Received raw error from NEWPROCESS system procedure.
* -- Decompose it into left byte and right byte values.
DIVIDE SU-ERROR
BY 256
GIVING NEWPROCESS-ERR-LEFT
REMAINDER NEWPROCESS-ERR-RIGHT.
DISPLAY FUP-FAILED
" -- NEWPROCESS error # = ("
NEWPROCESS-ERR-LEFT
","
NEWPROCESS-ERR-RIGHT
")"
END-IF
END-EVALUATE
...
WATCH.
READ MESSAGE-IN-FILE.
Example 31-16. Monitoring Completion of Descendant Processes (page3of3)