How to get PID in QUICK /OpenVMS

[Kevin Wong]

> > Do ext lib$getjpi(reference(jpi$_pid), &
> >     VALUE(IZERO), &
> >     descriptor(process-name), &
> >     VALUE(IZERO), &
> >     descriptor(pid))
>
> process-name is input to lib$getjpi, not output - you don't mention
> initialising it to the process you're looking for. If you're wanting info
on
> your own process then this too should be specified as value(izero).
> You should also be aware that only processes in your UIC group can be
found
> by process name.
>
Dear Chris,
I've already tried putting value(izero) to all unwanted arguments, the
screen compile OK but the PID fail to show up with run time error -
%LIB-F-KEYNOTFOU, key not found in tree LIB$GETJPI

do ext lib$getjpi(reference(jpi$_pid), &

    VALUE(IZERO), &

    VALUE(IZERO), &

    VALUE(IZERO), &

    descriptor(pid), &

    value(izero) )