BPX1GPP (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 64 callers use BPX4GPP (getppid) example.
                                              
         CALL  BPX1GPP,              Get PID of the parent process     +
               (RETVAL),             Returns value, parent's process ID+
               VL,MF=(E,PLIST)       ----------------------------------