How to get PID in Quick Screen /OpenVMS

[Kevin Wong]

Sorry Chris,

I belive the repeated email is coursed by some unknown problem in my email
server, I'd send the email twice because when I sent it the first time,
nothing had shown up in my Sent Box so I sent it a second time.

By the way, I did found a QKDRIVER image installation in my server's startup
command :-
$!--------------- QKDRIVER.COM ----------------------

$! QKDRIVER INSTALLATION

$!

$ SET DEF SYS$MANAGER

$ @SETPOWERHOUSE

$ INSTALL == "$INSTALL/COMMAND"

$ BUILDEXTERNAL -

LIB$DAY,-

LIB$DO_COMMAND,-

LIB$SPAWN,-

LIB$SET_SYMBOL,-

LIB$GET_SYMBOL,-

LIB$FIND_FILE,-

SYS$BRKTHRU,-

STR$POSITION SYS$LIBRARY:STARLET/LIB

$ COPY QKDRIVER.EXE SYS$SHARE:/LO

$ SET FILE SYS$SHARE:QKDRIVER.EXE/PROT=(S:RWED,O:RWED,G:RWED,W:RWED)

$ INSTALL DELETE SYS$SHARE:QKDRIVER

$ INSTALL ADD/SHARE/WRITE SYS$SHARE:QKDRIVER

$ PU/LO SYS$SHARE:QKDRIVER.EXE

I'll tried to put LIB$GETJPI into this command and test again without the
define/exec ... .

> 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.
> = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> 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.
>