*******************************************************************************
*
*	New System Admin - This subroutine is passed a user id number, and then
*		checks to see if the user currently running this program has
*		the same UID. It returns a 1 if a match else it returns a 0.
*
*	Module	%M%	Version	%I% 	Date	%H%
*
*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*	This is unpublished proprietary source code of Ardent Software Inc.
*	The copyright notice above does not evidence any actual or intended
*	publication of such source code.
*
*******************************************************************************
*
*	Maintenence log - insert most recent change descriptions at top
*
*	Date.... GTAR# WHO Description.........................................
*	10/14/98 23801 SAP Change copyrights. 
*	02/12/91 7804  DTM added SYSTEM(27) to allow easier access
*	11/30/90 7798  DTM fixed the way id was called
*	11/05/90 7393  DPB Routine first created and admin'd.
*******************************************************************************
SUBROUTINE ISUSER.B(id, rtn.var)
	rtn.var=SYSTEM(27) 
	IF id = rtn.var THEN rtn.var = 1 ELSE rtn.var = 0
	RETURN
END