How to get PID in QUICK /OpenVMS

[Kevin Wong]

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