How to get PID in QUICK /OpenVMS

[Kevin Wong]

Dear Chris,

Thanks to your suggestion, it still won't work.

> do ext lib$getjpi(reference(jpi$_pid),,,,descriptor(pid))

                                        ^

*E* Expected: REFERENCE DESCRIPTOR VALUE FILE ITEM <item>

Attempting error recovery.

----- Original Message -----
From: "Chris Sharman" <chris.sharman@ccagroup.co.uk>
To: "Kevin Wong" <kevinw@hkpetro.com.hk>; <powerh-l@lists.swau.edu>
Sent: Friday, December 06, 2002 5:17 PM
Subject: RE: How to get PID in QUICK /OpenVMS


>
> > TEMP  PID CHAR*10
> > TEMP  JPI$_PID CHAR*8 INIT "JPI$_PID"
> > TEMP  PROCESS-ID CHAR*8
> > TEMP  PROCESS-NAME CHAR*8
> > TEMP  RESULTANT-VALUE INT*4 INIT 0
> >
> > PROC INIT
> > BEGIN
> >  DO EXT LIB$GETJPI(REFERENCE(JPI$_PID),REFERENCE(PROCESS-ID),   &
> >     DESCRIPTOR(PROCESS-NAME),REFERENCE(RESULTANT-VALUE),DESCRIPTOR(PID))
> > END
>
> Your datatypes are all wrong. See Help rtl_routines lib$ lib$getjpi arg
>
> temp jpi$_pid int*9 init 793 ; from starlet
> temp pid char*8
> ; unused, but if you wanted them, they're these datatypes:
> ;temp process-id int*9 unsigned
> ;temp resultant-value int*9 (or int*16)
> ;temp process-name char*15
> ;temp resultant-length int*4 unsigned
>
> do ext lib$getjpi(reference(jpi$_pid),,,,descriptor(pid))
>
> Chris
>
>
> -----------------------------------------------------------------------
>
> Any views expressed in this message are those of the sender and not
> necessarily those of CCA Group.  The unauthorized use, disclosure,
> copying or alteration of this message is forbidden.  The contents of
> this message may be confidential and/or privileged, copyright CCA Group
> and are intended solely for the use of the individual or entity to whom
> they are addressed.  Whilst this message has been scanned, CCA Group
> cannot guarantee that it is virus free or compatible with your systems
> and accepts no responsibility for any loss or damage arising from its
> use. The recipient is advised to run their own anti-virus software. If
> you receive this message in error please contact
> postmaster@ccagroup.co.uk immediately, destroy any copies and delete it
> from your computer systems.
>
> = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> Mailing list: powerh-l@lists.swau.edu
> Subscribe: "subscribe" in message body to powerh-l-request@lists.swau.edu
> Unsubscribe: "unsubscribe" in message body to
powerh-l-request@lists.swau.edu
> http://lists.swau.edu/mailman/listinfo/powerh-l
> This list is closed, thus to post to the list you must be a subscriber.
>