BPX4GPP (getppid) example
The following code gets the process ID of the caller's
parent. For the callable service, see getppid (BPX1GPP, BPX4GPP) — Get the parent process ID.
AMODE 31 callers use BPX1GPP (getppid) example.
CALL BPX4GPP, Get PID of the parent process +
(RETVAL), Returns value, parent's process ID+
MF=(E,PLIST) ----------------------------------