BPX1GPG (getpgrp) example

The following code gets the process group ID of the caller. For the callable service, see getpgrp (BPX1GPG, BPX4GPG) — Get the process group ID. AMODE 64 callers use BPX4GPG (getpgrp) example.
                                              
         CALL  BPX1GPG,              Get the process group ID          +
               (RETVAL),             Return value: group ID            +
               VL,MF=(E,PLIST)       ----------------------------------