BPX1GEP (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 64 callers use BPX4GEP (getpgid) example.

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