How to get PID in QUICK /OpenVMS

[Chris Sharman]

> -----Original Message-----
> From: Kevin Wong [mailto:kevinw@hkpetro.com.hk]
> Sent: 17 December 2002 09:51
> To: powerh-l@lists.swau.edu
> Subject: TNX: How to get PID in QUICK /OpenVMS
>
>
> Thanks Chris,
> It works when I build the screen and run it as qkc with the
> qkdriver logical
> defined.
> (I test the prg in qdesign by using 'go' command, it fails)

That's correct, because the 'go' command starts a subprocess, which won't
have the logical correctly defined. To have it work for normal users, I'd
suggest a system-wide logical, defined at startup.
You can use a qkgo file to use a name other than qkdriver (eg
qkdriver_librtl, or even just librtl).
"$ def/job/exec" might make the 'go' command work - not sure - but you
wouldn't normally use 'go', or SYSNAM privilege, would you ?

Chris

> > 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),descript
> or(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.
> > = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> > 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.
> >
>
> = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> 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: Tue, 17 Dec 2002 14:34:22 +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.