How to get PID in Quick Screen /OpenVMS

[Chris Sharman]

This was answered last week - I'll be charitable and assume you mislaid your
mail.
You need a QKDRIVER image with lib$getjpi (or your own jacket routine) as a
universal symbol.
If this is the only routine you need:

$ set proc/priv=sysnam
$ def/exec qkdriver sys$share:librtl
$ quick auto=myquick.qkc

To make your own qkdriver image you need to either read up on the powerhouse
BUILDEXTERNAL procedure, or the VMS shareable image mechanisms. If you don't
know either, I'd suspect BUILDEXTERNAL is the easier for the uninitiated,
although I don't know.

Chris

> -----Original Message-----
> From: Kevin Wong [mailto:kevinw@hkpetro.com.hk]
> Sent: 17 December 2002 07:32
> To: powerh-l@lists.swau.edu
> Subject: How to get PID in Quick Screen /OpenVMS
>
>
> Dear all,
>
> I want to retrive the current PID in Quick Screen by using "Do External
> Lib$GetJpi..." but fail with error msg "%LIB-F-KEYNOTFOU, key not found in
> tree LIB$GETJPI". Any idea?
>
> Thanks
> Kevin Wong
>
>
> Machine : Alpha Server
> O/S	  : OpenVMS 7.1
> PH	  : PH710g1
>
>
>
> ------------------------------ Trial Quick Screen
> code --------------------------
> Screen A
> File ...
>
> 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
>
> = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> 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: Fri, 6 Dec 2002 10:22:35 +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.