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 64 callers use
BPX4GES (getsid) example.
MVC PROCID,=XL4'00000000' Value of process ID
SPACE ,
CALL BPX1GES, Get group ID of session leader +
(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