diff --git a/WEGA/contrib/ingres/dbs/src/dbu/save.c b/WEGA/contrib/ingres/dbs/src/dbu/save.c
new file mode 100644
index 0000000..d760dec
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/dbu/save.c
@@ -0,0 +1,214 @@
+# include	"gen.h"
+# include	"../h/dbs.h"
+# include	"../h/aux.h"
+# include	"../h/bs.h"
+# include	<sys/timeb.h>
+
+# ifdef ESER_PSU
+# define	PRIME_DATE	1980
+# else
+# define	PRIME_DATE	1970
+# endif
+
+# ifdef DYSIZE
+# define	dysize(y)	((!(y%4) && y%100 || !(y%400))? 366: 365)
+# endif
+
+static int	Dmsize[12] = {31,28,31,30,31,30,31,31,30,31,30,31};
+
+struct monthtab
+{
+	char	*code;
+	int	month;
+};
+
+static struct monthtab	Monthtab[] =
+{
+	"jan",		1,
+	"feb",		2,
+	"mar",		3,
+	"apr",		4,
+	"may",		5,
+	"jun",		6,
+	"jul",		7,
+	"aug",		8,
+	"sep",		9,
+	"oct",		10,
+	"nov",		11,
+	"dec",		12,
+	"january",	1,
+	"february",	2,
+	"march",	3,
+	"april",	4,
+	"june",		6,
+	"july",		7,
+	"august",	8,
+	"september",	9,
+	"october",	10,
+	"november",	11,
+	"december",	12,
+	(char *) 0
+};
+
+/*
+**  SAVE RELATION UNTIL DATE
+**
+**	This function arranges to save a named relation until a
+**	specified date.
+**
+**	Parameters:
+**		0 -- relation name
+**		1 -- month (1 -> 12 or "jan" -> "dec" or a variety
+**			of other codes)
+**		2 -- day (1 -> 31)
+**		3 -- year (PRIME_DATE -> ?)
+**
+**	Returns:
+**		zero on success
+**		nonzero otherwise.
+**
+**	Side Effects:
+**		Change expiration date for some relation in
+**		relation relation.
+*/
+save(parmc, parmv)
+int	parmc;
+char	**parmv;
+{
+	long				date;
+	register int			i;
+	extern DESC			Reldes;
+	struct tup_id			tid;
+	struct relation			relk;
+	struct relation			relt;
+	short				day;
+	short				month;
+	short				year;
+	struct timeb			timeb;
+	extern char			*AAusercode;
+	extern char			*ctime();
+# ifndef DYSIZE
+	extern int			dysize();	/* defined in ctime(3) */
+# endif
+
+	/* validate parameters */
+	if (AA_atoi(parmv[3], &year) || year < PRIME_DATE)
+		return (error(5603, parmv[3], (char *) 0));	/* bad year */
+	if (monthcheck(parmv[1], &month))
+		return (error(5601, parmv[1], (char *) 0));	/* bad month */
+	if (AA_atoi(parmv[2], &day) || day < 1 || day > monthsize(--month, year))
+		return (error(5602, parmv[2], (char *) 0));	/* bad day */
+
+	/* convert date */
+	/* "date" will be # of days from PRIME_DATE for a while */
+	date = 0;
+
+	/* do year conversion */
+	for (i = PRIME_DATE; i < year; i++)
+	{
+		date += dysize(i);
+	}
+
+	/* do month conversion */
+	for (i = 0; i < month; i++)
+		date += Dmsize[i];
+	/* once again, allow for leapyears */
+	if (month >= 2 && dysize(year) == 366)
+		date += 1;
+
+	/* do day conversion */
+	date += day - 1;
+
+	/* we now convert date to be the # of hours since PRIME_DATE */
+	date *= 24;
+
+	/* do daylight savings computations */
+	/*  <<<<< none now >>>>> */
+
+	/* convert to seconds */
+	date *= 60 * 60;
+
+	/* adjust to local time */
+	ftime(&timeb);
+	date += ((long) timeb.timezone) * 60;
+
+#	ifdef xZTR1
+# ifdef ESER_VMX
+	AAtTfp(4, 1, "%s", ctime(date));
+# else
+	AAtTfp(4, 1, "%s", ctime(&date));
+# endif
+#	endif
+
+	/* let's check and see if the relation exists */
+	opencatalog(AA_REL, 2);
+	AAam_clearkeys(&Reldes);
+	AAam_setkey(&Reldes, &relk, parmv[0], RELID);
+	AAam_setkey(&Reldes, &relk, AAusercode, RELOWNER);
+	if (AAgetequal(&Reldes, &relk, &relt, &tid))
+		return (error(5604, parmv[0], (char *) 0));	/* relation not found */
+
+	/* check that it is not a system catalog */
+	if (relt.relstat & S_CATALOG)
+		return (error(5600, parmv[0], (char *) 0));	/* cannot save sys rel */
+	/* got it; lets change the date */
+	relt.relsave = date;
+
+#	ifdef xZTR2
+	if (AAtTf(4, 2))
+		AAprtup(&Reldes, &relt);
+#	endif
+
+	if ((i = AAam_replace(&Reldes, &tid, &relt, 0)) < 0)
+		AAsyserr(11158, i);
+
+	/* that's all folks.... */
+	return (0);
+}
+
+
+monthcheck(input, output)
+char	*input;
+short	*output;
+{
+	register struct monthtab	*p;
+	short				month;
+
+	/* month can be an integer, or an alphanumeric code */
+	if (!AA_atoi(input, &month))
+	{
+		*output = month;
+		return (month < 1 || month > 12);
+	}
+	for (p = Monthtab; p->code; p++)
+	{
+		if (AAsequal(input, p->code))
+		{
+			*output = p->month;
+			return (0);
+		}
+	}
+	return (1);
+}
+
+
+/*
+**  MONTHSIZE -- determine size of a particular month
+*/
+monthsize(month, year)
+int	month;
+int	year;
+{
+	register int	size;
+	extern int	Dmsize[12];
+# ifndef DYSIZE
+	extern int	dysize();	/* defined in ctime(3) */
+# endif
+
+	size = Dmsize[month];
+	if (month == 1 && dysize(year) == 366)
+		/* This is February of a leap year */
+		size++;
+
+	return (size);
+}