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