How to get PID in QUICK /OpenVMS

[Chris Sharman]

Peter Bateman is correct: you need to ensure that lib$getjpi is defined as a
universal symbol in QKDRIVER.
You could use librtl as your qkdriver, if you only need lib$ routines, or if
you've got other routines, you may have to write your own 'jacket' routine,
probably with a different name to avoid naming clashes.

The code below works, provided you have SYSNAM privilege (unlikely unless
you have close to system management authority).

$ qdesign
screen mypid menu
temp jpi$_pid int*9 init 793 reset at startup
temp z int*9 reset at startup
temp mypid char*14 reset at startup
field mypid display predisplay
procedure initialize
 do external
lib$getjpi(reference(jpi$_pid),value(z),value(z),value(z),descriptor(mypid))
build
exit
$ set proc/priv=sysnam
$ def/exec qkdriver sys$share:librtl ! requires SYSNAM priv
$ quick auto=mypid.qkc

Chris

> -----Original Message-----
> From: Kevin Wong [mailto:kevinw@hkpetro.com.hk]
> Sent: 12 December 2002 02:27
> To: powerh-l@lists.swau.edu
> Subject: Re: How to get PID in QUICK /OpenVMS
>
>
> > > Do ext lib$getjpi(reference(jpi$_pid), &
> > >     VALUE(IZERO), &
> > >     descriptor(process-name), &
> > >     VALUE(IZERO), &
> > >     descriptor(pid))
> >
> > process-name is input to lib$getjpi, not output - you don't mention
> > initialising it to the process you're looking for. If you're
> wanting info
> on
> > your own process then this too should be specified as value(izero).
> > You should also be aware that only processes in your UIC group can be
> found
> > by process name.
> >
> Dear Chris,
> I've already tried putting value(izero) to all unwanted arguments, the
> screen compile OK but the PID fail to show up with run time error -
> %LIB-F-KEYNOTFOU, key not found in tree LIB$GETJPI
>
> do ext lib$getjpi(reference(jpi$_pid), &
>
>     VALUE(IZERO), &
>
>     VALUE(IZERO), &
>
>     VALUE(IZERO), &
>
>     descriptor(pid), &
>
>     value(izero) )
>
>
> = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> 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.
> ------------------------------------------------------------------
> --------------
> Date: Thu, 12 Dec 2002 10:23:21 +0800
>



-----------------------------------------------------------------------

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.