How to get PID in QUICK /OpenVMS

[Bruin, J.M. de]

Depending on how you start your application, you can set a logical BEFORE
starting Powerhouse and use the getsystemval function within quick to retrieve
that value. Saves you the run command every time you need the PID.

YMHO

Mark


-----Original Message-----
From: Edis, Bob [mailto:BEdis@usbnc.org]
Sent: vrijdag 6 december 2002 03:36
To: PowerHouse List (E-mail)
Subject: RE: How to get PID in QUICK /OpenVMS


G'day Kevin

I would use a RUN COMMAND to create a JOB logical that contains the PID and
then read that logical in Quick syntax.

E.g..

TEMP t_PID CHAR*10 INIT "NO PID"
...
PROC INIT
BEGIN
  RUN COMMAND "<DCL syntax to SET logical JPI$_PID to PID using F$GETJPI("",
"pid") command>"
  LET t_PID = <Quick syntax to retrieve value from DCL logical>
END

I don't have PH with me (on VMS at least) nor the documentation sorry.

Regards,
Blue

-----Original Message-----
From: Kevin Wong [mailto:kevinw@hkpetro.com.hk]
Sent: Thursday, December 05, 2002 2:46 AM
To: powerh-l@lists.swau.edu
Subject: How to get PID in QUICK /OpenVMS


Dear all,

I want to get current process' PID in QUICK screen,  the following is my
trial which fail. Any idea how to simulate DCL function F$GETJPI("","pid")
inside quick screen?

H/W : Alpha server
O/S : OpenVMS 7.1
PH  : PH710g1

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

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