How to get PID in QUICK /OpenVMS

[Peter Bateman]

Dear Kevin:

HP has a discussion on calling lib$getjpi
at http://www.openvms.compaq.com/wizard/wiz_5561.html.
One thing they mention:-
"When the process name and resultant string arguments are not required,
specify them as zero -- and not as the address of a zero-length constant 
string."

To do that in Quick:-

Temporary IZERO integer size 4 initial 0

Do external lib$getjpi( JPI$_PID,
                        InputPid,
                        value(IZERO),
                        OutputPid,
                        value(IZERO),
                        RetLen )
I believe the default is by reference.
I hope this helps.
Regards,
Peter Bateman






>From: "Kevin Wong" <kevinw@hkpetro.com.hk>
>To: <powerh-l@lists.swau.edu>
>Subject: Re: How to get PID in QUICK /OpenVMS
>Date: Tue, 10 Dec 2002 10:02:21 +0800
>
>Dear Chris,
>
>You're right, I want to update the process name to reflect the program 
>name,
>the lib$getjpi function is to get a unique name.
>
>Thanks to all others that suggest run DCL before the quick screen, I 
>already
>use that method with the first screen, but it's just not possible to run
>every subscreen by using a DCL command because lots of parameter needs to 
>be
>pass btw diff screen.
>
>Thanks again
>Kevin Wong
>
>----- Original Message -----
>From: "Chris Sharman" <chris.sharman@ccagroup.co.uk>
>To: <powerh-l@lists.swau.edu>
>Sent: Friday, December 06, 2002 5:06 PM
>Subject: RE: How to get PID in QUICK /OpenVMS
>
>
> >
> > > -----Original Message-----
> > > From: Edis, Bob [mailto:bedis@usbnc.org]
> > > I would use a RUN COMMAND to create a JOB logical that contains
> > > the PID and then read that logical in Quick syntax.
> > >
> > >   RUN COMMAND "<DCL syntax to SET logical JPI$_PID to PID using
> > > F$GETJPI("", "pid") command>"
> >
> > If you want to do it this way, it would have to be f$getjpi("","owner") 
>to
> > take account of the fact that you've spawned a subprocess.
> > I'd be inclined to use do external, as another poster suggested, or 'pid 
>=
> > f$getjpi("","pid")' before invoking quick.
> > But why do you want it ?
> > It's only really useful in external procedures, or run commands, or
>possibly
> > to generate a unique string.
> >
> > 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.
> >
>
>
>= = = = = = = = = = = = = = = = = = = = = = = = = = = =
>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.


_________________________________________________________________
Protect your PC - get McAfee.com VirusScan Online 
http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=3963