BPX4GES (getsid) example

The following code returns the process group ID for the session leader of the process identified by the input process ID. The process ID value is set to 1. For the callable service, see getsid (BPX1GES, BPX4GES) — Get the process group ID of the session leader. AMODE 31 callers use BPX1GES (getsid) example.

                                              
         MVC   PROCID,=XL4'00000000'  Value of process ID               
         SPACE ,                                                        
         CALL  BPX4GES,              Get group ID of session leader    +
               (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