[LEFT]if opsys = "WIN32"
then
run GetCurrentProcessId (output piPID).
else if opsys = "UNIX"
then do:
input through"echo $PPID"no-echono-convert.[/LEFT]
import piPID.
input close.
[LEFT]end.[/LEFT]
procedure GetCurrentProcessId external "kernel32.dll":
[LEFT]define return parameter PID as long.[/LEFT]
[LEFT]end procedure.[/LEFT]