Guardian Procedure Calls Reference Manual (G06.25+)

Guardian Procedure Calls (F)
Guardian Procedure Calls Reference Manual—522629-013
5-234
FNAMECOMPARE Procedure
(Superseded by FILENAME_COMPARE_
-13 An illegal file name specification for either file name is made.
-14 The device does not exist. Only one of the file names is passed in logical
device number format (requiring a check of the device table), and the file
name represents a device connected to a remote node.
-18 No such system is defined in this network. Only one of the file names is
passed in logical device number format (requiring a check of the device
table), and the file name represents a device connected to a remote node.
-22 A parameter or buffer is out of bounds.
-250 All paths to the system are down. Only one of the file names is passed in
logical device number format (requiring a check of the device table), and
the file name represents a device connected to a remote node.
Examples
FNAME1 ':=' [ "$TERM1" , 9 * [ " "] ];
FNAME2 ':=' [ %56006 , "TERM1 " , 8 * [ " "] ];
! "\ , "TERM1";
STATUS := FNAMECOMPARE ( FNAME1 , FNAME2 );
Execution of this example on system number 6 returns a 0 in STATUS.
On other systems, execution of the example returns a status of -1.
Whether a system is a network node or not, execution of
FNAME1 ':=' [ "$SERVR #START UPDATING" ];
FNAME2 ':=' [ "$SERVR #FINISH UPDATING" ];
STATUS := FNAMECOMPARE ( FNAME1 , FNAME2 );
returns a status of +1.
In any system, execution of
FNAME1 ':=' [ "$0013 ", 9 * [ " "] ];
FNAME2 ':=' [ "$DATAX", 9 * [ " "] ];
STATUS := FNAMECOMPARE ( FNAME1 , FNAME2 );
returns a status of 0 if the device name $DATAX is defined as logical device number 13
at SYSGEN time; in all other cases, it returns a status of -1.