The following code places the invoking process in its
own process group (zeros indicate that the process group
ID is to be set to the process ID).
For the callable service, see
setpgid (BPX1SPG, BPX4SPG) — Set a process group ID for job control. AMODE 31 callers use
BPX1SPG (setpgid) example.
MVC PROCID,=A(0) Process ID - current to leader
MVC GROUP,=A(0) Group ID - current to leader
SPACE ,
CALL BPX4SPG, Set process group ID for Job Ctl +
(PROCID, Input: Process to be placed in grp+
GROUP, Input: Target group +
RETVAL, Return value: 0 or -1 +
RETCODE, Return code +
RSNCODE), Reason code +
MF=(E,PLIST) ----------------------------------