How to get PID in Quick Screen /OpenVMS

[Kevin Wong]

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