POSIX Subroutine: Gets the process group ID of the calling process.
Module: USE IFPOSIX
Syntax
CALL PXFGETPGRP (ipgrp, ierror)
ipgrp
(Output) INTEGER(4). The returned process group ID.
ierror
(Output) INTEGER(4). The error status.
If successful, ierror is set to zero; otherwise, an error code.
Each process group is a member of a session and each process is a member of the session in which its process group is a member.