Subject: | |
From: | |
Reply To: | |
Date: | Wed, 25 Jun 2008 13:52:25 -0400 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
<<Do return codes have the same meaning on MPE as they do on
Linux/Windows/Solaris?>>
I think you mean do the Linux/Windows/Solaris return codes have the same
meaning as they do with MPE?
As you progress on the HP3000, you will learn that MPEiX totally transcends
anything in a pc environment, especially Windows....
The CREATEPROCESS intrinsic gives you a 4 byte status return field which
should be checked immediately after the call.
I have already set up a working storage area for this status return field,
defined thus:
01 WS-CREATE-PROCESS-ERRORS-TABLE.
05 FILLER PIC X(64) VALUE
"Successful ".
05 FILLER PIC X(64) VALUE
"Process Handling Caps (PH) Required ".
05 FILLER PIC X(64) VALUE
"Pin or Formaldesignator missing ".
05 FILLER PIC X(64) VALUE
"Parameter Address Out Of Bounds ".
05 FILLER PIC X(64) VALUE
"Out Of System Resources".
05 FILLER PIC X(64) VALUE
"Process Not Created; Invalid Itemnum Specified".
05 FILLER PIC X(64) VALUE
"Process Not Created; Formaldesig Does Not Exist ".
05 FILLER PIC X(64) VALUE
"Process Not Created; Formaldesig Invalid ".
05 FILLER PIC X(64) VALUE
"Entry Name Invalid Or Does Not Exist ".
05 FILLER PIC X(64) VALUE
"Process Created; LIBSEARCH Bits Ignored ".
05 FILLER PIC X(64) VALUE
"Process Created; Itemnum=19 Ignored ".
05 WS-CPET-RESERVED-TABLE PIC X(256) VALUE SPACES.
05 WS-CPET-RESERVED-TABELL REDEFINES
WS-CPET-RESERVED-TABLE.
10 WS-CPET-RESERVED-ARRAY OCCURS 4.
15 WS-CPET-RA PIC X(64).
05 FILLER PIC X(64) VALUE
"Process Not Created; Reserved Item Was Specified ".
05 FILLER PIC X(64) VALUE
"Process Not Created; Hard Load Error Occurred ".
05 FILLER PIC X(64) VALUE
"Process Not Created; Illegal Value Specified For Itemnum=7 "
.
05 FILLER PIC X(64) VALUE
"Process Not Created; Specified $STDIN Could Not Be Opened".
05 FILLER PIC X(64) VALUE
"Process Not Created; Specified $STDLIST Could Not Be Opened"
.
05 FILLER.
10 FILLER PIC X(32) VALUE
"Process Not Created; String To B".
10 FILLER PIC X(32) VALUE
"e Passed To New Process Invalid ".
01 WS-CREATE-PROCESS-ERRORS-TABEL REDEFINES
WS-CREATE-PROCESS-ERRORS-TABLE.
05 FILLER OCCURS 21.
10 WS-CPET-ERROR PIC X(64).
01 WS-CREATE-STATUS PIC S9(09) COMP VALUE ZEROES.
PROCEDURE DIVISION.
....
....
CALL INTRINSIC "CREATEPROCESS" USING WS-CREATE-STATUS,
<<other parms down
here>>
IF WS-CREATE-STATUS <> ZEROES THEN
<<error routine here>>
END-IF
HTH,
Brian Donaldson.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
|
|