Guardian Procedure Calls Reference Manual (G06.25+)

Guardian Procedure Calls (M)
Guardian Procedure Calls Reference Manual—522629-013
9-75
MYSYSTEMNUMBER Procedure (Superseded by
NODENAME_TO_NODENUMBER_ Procedure or
Consideration
•
Part of network or local system
The following IF (skeleton) statement determines if you are running on a network
system.
IF NOT ( SYS^NUM := MYSYSTEMNUMBER ) THEN
! not on network system
If the caller is running in a local nonnamed system, MYSYSTEMNUMBER returns
0. Since 0 is a legal system number, a process wishing to determine the name of
the system on which it is running can use the following call.
CALL GETSYSTEMNAME( MYSYSTEMNUMBER, NAME );
A return of all blanks in a name indicates that the system is not part of a network,
or that it is a local system which is not named.