GTPPN

Return information about the current process

USupported on Unix

VSupported on OpenVMS

xcall GTPPN(project, programmer, privilege)

Arguments

project

The number of the project. (n)

programmer

The number of the programmer. (n)

privilege

Returned with one of the following values: (n)

1 = The current process has system privileges.

0 = The current process does not have system privileges.

Discussion

The GTPPN subroutine checks whether the current process has system privileges and returns the project and programmer number of the current process.

On Unix, project is the group ID and programmer is the user ID. Privilege is set to 1 if you have root privileges.

On OpenVMS, project is the group ID and programmer is the member ID from the current user’s UIC. Privilege is set to 1 if the current process has the SYSPRV privilege.

On Windows, GTPPN returns 0.

Examples

The following program displays the user identification code and either a 1 if the current process has system privileges or a 0 if the current process does not have system privileges.

.define TTCHN           ,1
record output
                        ,a*, "UIC = ["
    project             ,d5
                        ,a*, ","
    programmer          ,d5
                        ,a*, "], priv = "
    privilege           ,d3

proc
    xcall flags(7004020, 1)
    open(TTCHN, o, "tt:")
    xcall gtppn(project, programmer, privilege)
    writes(TTCHN, output)
    close TTCHN
    stop
end