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-5
Initiating a Process From an HP COBOL Program
ENTER "CREATEPROCESS"
USING COB-PROC-2
PROC-NAME
* Copy my IN, OUT, & default VOL/SUBVOL
SEND-STD-STARTUP-MSG
* Default--same priority as me
OMITTED
* Default--same processor as me
OMITTED
* Default--use regular memory allocation
OMITTED
* Report process ID of $QUEEN
PROC-ID
GIVING SU-ERROR.
* Report any startup problem.
IF SU-ERROR NOT = 0
MOVE COB-PROC-2 TO P
PERFORM DISPLAY-STARTUP-FAILURE.
DISPLAY "$QUEEN'S PROC ID IS " PROC-ID.
* Start $ALICE process
MOVE "$ALICE" TO PROC-NAME.
ENTER "CREATEPROCESS"
USING COB-PROC-1
PROC-NAME
* Default--send all creation messages
OMITTED
* Set explicit priority
43
* Default--use same processor as me
OMITTED
* Default--use regular memory allocation
OMITTED
* Don't report process ID of $ALICE
OMITTED
GIVING SU-ERROR.
* Report any startup problem.
IF SU-ERROR NOT = 0
MOVE COB-PROC-1 TO P
PERFORM DISPLAY-STARTUP-FAILURE.
STOP RUN.
DISPLAY-STARTUP-FAILURE.
IF SU-ERROR = 1
DISPLAY PROC-FAILED
" -- REQUIRED PARAMETER MISSING OR ILLEGAL"
ELSE IF SU-ERROR = 2
DISPLAY PROC-FAILED
" -- ILLEGAL loadfile NAME ("
P ")"
ELSE IF SU-ERROR = 3
DISPLAY PROC-FAILED
" -- INFILE, OUTFILE, OR DEFAULT VOLUME"
DISPLAY " NAME CANNOT BE CONVERTED TO NETWORK FORM"
ELSE IF SU-ERROR < 256
DISPLAY PROC-FAILED
" -- File management error #"
SU-ERROR
Example 31-1. CREATEPROCESS Routine (page 2 of 3)