Thanks, Ken. It worked great!!!
Ron Horner
Legacy Systems Supervisor
[log in to unmask]
Lady Remington Jewelry
(630) 860-3323
-----Original Message-----
From: Ken Hirsch [mailto:[log in to unmask]]
Sent: Wednesday, June 30, 2004 2:06 PM
To: Ron Horner
Subject: Re: [HP3000-L] Createprocess Question
Item 12 should be passed by value, so it would be
move pi-item-info-size to il-item (2)
or you could do away with pi-item-info-size and just say
call intrinsic ".LEN." using pi-item-info giving il-item (2)
> 5.1 CALL INTRINSIC ".LOC." USING @PI-ITEM-INFO
> 5.2 GIVING IL-ITEM(1).
> 5.21 MOVE 12 TO IC-ITEM(2).
> 5.3 CALL INTRINSIC ".LOC." USING @PI-ITEM-INFO-SIZE
> 5.4 GIVING IL-ITEM(2).
----- Original Message -----
From: "Ron Horner" <[log in to unmask]>
To: "'Ken Hirsch'" <[log in to unmask]>
Sent: Wednesday, June 30, 2004 1:59 PM
Subject: RE: [HP3000-L] Createprocess Question
> Here is what I have:
>
> 2.4 01 CREATE-STATUS PIC S9(9) COMP VALUE 0.
> 2.5 01 PROCESS-ID PIC S9(4) COMP VALUE 0.
> 2.6 01 PROCESS-PROGNAME PIC X(27) VALUE "MAILNM.PUB.SYS%".
> 2.9
> 3.6 01 PI-ITEM-INFO PIC X(80) VALUE
> 3.8 "This is a test message".
> 4 01 PI-ITEM-INFO-SIZE PIC S9(9) COMP VALUE 80.
> 4.1
> 4.11 01 ITEMS-CODES.
> 4.12 05 IC-ITEM PIC S9(9) COMP OCCURS 3 TIMES.
> 4.2 01 ITEMS-LIST.
> 4.3 05 IL-ITEM PIC S9(9) COMP OCCURS 3 TIMES.
> 4.5
> 4.6 01 EDIT-STATUS PIC S9(6).
> 4.7
> 4.8 PROCEDURE DIVISION.
> 4.9 0000-MAIN-RTN.
> 5 INITIALIZE ITEMS-LIST.
> 5.01 INITIALIZE ITEMS-CODES.
> 5.02 MOVE 11 TO IC-ITEM(1).
> 5.1 CALL INTRINSIC ".LOC." USING @PI-ITEM-INFO
> 5.2 GIVING IL-ITEM(1).
> 5.21 MOVE 12 TO IC-ITEM(2).
> 5.3 CALL INTRINSIC ".LOC." USING @PI-ITEM-INFO-SIZE
> 5.4 GIVING IL-ITEM(2).
> 5.41 MOVE 0 TO IC-ITEM(3).
> 5.5 CALL INTRINSIC "CREATEPROCESS" USING CREATE-STATUS
> 5.6 PROCESS-ID
> 5.7 PROCESS-PROGNAME
> 5.8 ITEMS-CODES
> 5.9 ITEMS-LIST.
> 6 IF CREATE-STATUS <> 0
> 6.1 MOVE CREATE-STATUS TO EDIT-STATUS
> 6.2 DISPLAY "CREATEPROCESS FAILED = " EDIT-STATUS.
>
>
> Thank you for your help,
> Ron Horner
> Legacy Systems Supervisor
> [log in to unmask]
> Lady Remington Jewelry
> (630) 860-3323
>
>
> -----Original Message-----
> From: Ken Hirsch [mailto:[log in to unmask]]
> Sent: Wednesday, June 30, 2004 12:55 PM
> To: Ron Horner; [log in to unmask]
> Subject: Re: [HP3000-L] Createprocess Question
>
> 20 Process not created; string to be passed to new process invalid
(pointer
> without length, length without pointer, or length exceeds stack size of
> calling process)
>
> Check parameters with item numbers 11 and 12:
>
> 11 The address must be a byte address (type-coerced) containing
information
> to be passed to the new process. The length of the string must be
specified
> in
> itemnum=12 (equivalent to the INFO= parameter of the RUN command),
> accessible
> through the GETINFO intrinsic.
>
> 12 The length (in bytes) of the string referenced by itemnum=11. The
> maximum
> allowable value of the INFO string length is 1024 bytes. Accessible
through
> the GETINFO intrinsic.
>
> ----- Original Message -----
> From: "Ron Horner" <[log in to unmask]>
> To: <[log in to unmask]>
> Sent: Wednesday, June 30, 2004 1:48 PM
> Subject: [HP3000-L] Createprocess Question
>
>
> > I am writing a COBOL program that uses the CREATEPROCESS intrinsic. I
> keep
> > getting a createstatus of 20. What does that mean and how can I correct
> it?
> >
> > Thanks,
> >
> > Ron Horner
> > Legacy Systems Supervisor
> > [log in to unmask]
> > Lady Remington Jewelry
> > (630) 860-3323
> >
> > * To join/leave the list, search archives, change list settings, *
> > * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
>
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|