HP3000-L Archives

June 2008, Week 4

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Brian Donaldson <[log in to unmask]>
Reply To:
Brian Donaldson <[log in to unmask]>
Date:
Wed, 25 Jun 2008 13:52:25 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (88 lines)
<<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 *

ATOM RSS1 RSS2