diff --git a/WEGA/contrib/ingres/dbs/src/support/modifyr.c b/WEGA/contrib/ingres/dbs/src/support/modifyr.c
new file mode 100644
index 0000000..381db5b
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/support/modifyr.c
@@ -0,0 +1,216 @@
+# include	<stdio.h>
+# include	"gen.h"
+# include	"../h/dbs.h"
+# include	"../h/aux.h"
+# include	"../h/access.h"
+# include	"../h/batch.h"
+# include	"../h/symbol.h"
+# include	"../h/lock.h"
+# include	"../h/bs.h"
+
+# ifdef P8000
+ret_buf		AAjmp_buf;
+# else
+jmp_buf		AAjmp_buf;
+# endif
+
+char	KSORT[]	=	"/sys/bin/dbu___s";
+
+char			*Fileset;
+char			*Ksort;
+char			**Xparams = &Ksort;
+int			Noupdt;
+int			Where;
+char			*Fillflag;
+char			*Fillfactor;
+char			*Minflag;
+char			*Minpages;
+char			*Maxflag;
+char			*Maxpages;
+struct batchbuf		Batchbuf;
+extern char		*Parmvect[];
+extern char		*Flagvect[];
+extern char		*AAdbpath;
+extern char		*AApath;
+extern int		Standalone;
+extern char		*AAproc_name;
+
+main(argc, argv)
+int	argc;
+char 	*argv[];
+{
+	register char		**av;
+	register char		*p;
+	register int		i;
+	char			null;
+	char			ksort[100];
+	char			fileset[6];
+
+	AAproc_name = "MODIFYR";
+
+#	ifdef xSTR1
+	AAtTrace(&argc, argv, 'X');
+#	endif
+
+	switch (i = initucode(argc, argv, TRUE, (char **) 0, M_SHARE))
+	{
+	  case 0:
+	  case 5:
+		break;
+
+	  case 1:
+	  case 6:
+		AAsyserr(0, "Die Datenbank '%s' existiert nicht", Parmvect[0]);
+
+	  case 2:
+		AAsyserr(0, "Sie duerfen auf die Datenbank '%s' nicht zugreifen", Parmvect[0]);
+
+	  case 3:
+		AAsyserr(0, "Sie sind kein eingetragener DBS-Nutzer");
+
+	  case 4:
+		printf("Sie haben keinen Datenbanknamen angegeben\n");
+usage:
+		AAsyserr(0, "HINWEIS: modifyr {flags} db_name rel_name storage_structure [{dom_name}]");
+
+	  default:
+		AAsyserr(22200, AAproc_name, i);
+	}
+
+	for (i = 0, av = Flagvect; p = *av; av++)
+	{
+		if (*p == '-' && where_flag(p + 1))
+			continue;
+
+		printf("Unbekanntes Flag '%s'\n", p);
+		i++;
+	}
+
+	if (i)
+		goto usage;
+
+	for (i = 0; Parmvect[i]; i++)
+		continue;
+
+	if (i == 2)
+		Parmvect[i++] = "same";
+
+	if ((argc = i) < 3 || argc > MAXDOM + 3)
+		goto usage;
+
+	if (chdir(AAdbpath) < 0)
+		AAsyserr(22201, AAproc_name, AAdbpath);
+
+	/* hello eric */
+	Standalone = 0;
+
+	/* initialize access methods (and AAdmin struct) for user_ovrd test */
+	AAam_start();
+	opencatalog(AA_REL, 2);
+
+	/* do function */
+	AA_itoa(getpid(), Fileset = fileset);
+	AAconcat(AApath, KSORT, ksort);
+	Ksort = ksort;
+	Parmvect[0] = Parmvect[1];
+	Parmvect[1] = Parmvect[2];
+	if (argc != 3)
+	{
+		argc++;
+		Parmvect[2] = "name";
+	}
+	if (Where)
+	{
+		i = argc - 1;
+		null = 0;
+		Parmvect[i++] = &null;
+		if (Fillflag)
+		{
+			Parmvect[i++] = Fillflag;
+			Parmvect[i++] = Fillfactor;
+		}
+		if (Minflag)
+		{
+			Parmvect[i++] = Minflag;
+			Parmvect[i++] = Minpages;
+		}
+		if (Maxflag)
+		{
+			Parmvect[i++] = Maxflag;
+			Parmvect[i++] = Maxpages;
+		}
+		argc = ++i;
+	}
+	Parmvect[argc - 1] = (char *) -1;
+	Parmvect[argc] = (char *) 0;
+	modify(argc, Parmvect);
+
+	/* logout database */
+	closecatalog(TRUE);
+	AAunldb();
+	AAam_exit();
+	fflush(stdout);
+	exit(0);
+}
+
+
+where_flag(flag)
+register char	*flag;
+{
+	register char	*f;
+	long		i;
+
+	for (f = flag; *f && *f != ':'; f++)
+		continue;
+
+	if (!*f)
+		return (0);
+
+	*f++ = 0;
+
+	if ((AAsequal(flag, "fillfactor")
+# ifdef ESER
+		|| AAsequal(flag, "FILLFACTOR")
+# endif
+		) && !AA_atol(f, &i))
+	{
+		Fillflag = flag;
+		Fillfactor = f;
+		goto flag_ok;
+	}
+
+	if ((AAsequal(flag, "minpages")
+# ifdef ESER
+		|| AAsequal(flag, "MINPAGES")
+# endif
+		) && !AA_atol(f, &i))
+	{
+		Minflag = flag;
+		Minpages = f;
+		goto flag_ok;
+	}
+
+	if ((AAsequal(flag, "maxpages")
+# ifdef ESER
+		|| AAsequal(flag, "MAXPAGES")
+# endif
+		) && !AA_atol(f, &i))
+	{
+		Maxflag = flag;
+		Maxpages = f;
+flag_ok:
+		Where++;
+		return (1);
+	}
+
+	*--f = ':';
+	return (0);
+}
+
+
+rubproc()
+{
+	AAunlall();
+	fflush(stdout);
+	exit(1);
+}