11705Smckusick /* Copyright (c) 1979 Regents of the University of California */
21705Smckusick 
3*9136Smckusick static char sccsid[] = "@(#)SUBSCZ.c 1.4 11/12/82";
41705Smckusick 
5*9136Smckusick extern char ESUBSC[];	/* ESUBSC is defined in SUBSCZ.c */
61705Smckusick 
73032Smckusic long
8*9136Smckusick SUBSCZ(value, upper)
9*9136Smckusick 	long		value;
10*9136Smckusick 	unsigned long	upper;
111705Smckusick {
12*9136Smckusick 	if (value > upper) {
13*9136Smckusick 		ERROR(ESUBSC, value);
143869Smckusic 		return;
151705Smckusick 	}
16*9136Smckusick 	return value;
171705Smckusick }
18