BPX4GEP (getpgid) example

The following code returns the process group ID for the process identified by the input process ID. The process ID value is set to 1. For the callable service, see getpgid (BPX1GEP, BPX4GEP) — Get the process group ID. AMODE 31 callers use BPX1GEP (getpgid) example.

                                              
         MVC   PROCID,=XL4'00000001'  Value of process ID               
         SPACE ,                                                        
         CALL  BPX4GEP,              Get process group ID              +
               (PROCID,              Input: Process ID                 +
               RETVAL,               Return value: process group ID    +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ---------------------------------- 
         L     R15,RETVAL            Load return value                  
         C     R15,=F'-1'            Test for -1 return                 
         BE    PSEUDO                Branch on error