diff --git a/WEGA/contrib/ingres/dbs/src/dbu/help.c b/WEGA/contrib/ingres/dbs/src/dbu/help.c
new file mode 100644
index 0000000..b6a68ef
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/dbu/help.c
@@ -0,0 +1,393 @@
+# include	<stdio.h>
+# include	"gen.h"
+# include	"../h/dbs.h"
+# include	"../h/aux.h"
+# include	"../h/catalog.h"
+# include	"../h/access.h"
+
+static char	MAN[] = "/sys/man/";
+static char	TOC[] = "toc";
+static int	DBA_flag;
+
+/*
+**  HELP - Provide Information to User
+**
+**	Arguments:
+**		pv[i] - code
+**			0 - print relation information
+**			1 - print manual section
+**			2 - print short relation list
+**			3 - print long relation list
+**		pv[i+1] - name of entity for modes 0 or 1
+**
+*/
+help(parmc, parmv)
+int	parmc;
+char	**parmv;
+{
+	register char			**pv;
+	register int			ret;
+	short				mode;
+	DESC				des;
+
+	ret = 0;
+	pv = parmv;
+	getuser((char *) -1);	/* init getuser for modes 1 & 2 */
+	DBA_flag = AAbequal(AAdmin.adhdr.adowner, AAusercode, 2);
+
+	while (*pv != (char *) -1)
+	{
+		if (AA_atoi(*pv++, &mode))
+			goto badmode;
+
+#		ifdef xZTR1
+		if (AAtTf(10, -1) || AAtTf(0, 10))
+		{
+			printf("HELP: %d", mode);
+			if (mode != 2)
+				printf(" %s", *pv);
+			putchar('\n');
+		}
+#		endif
+
+		switch (mode)
+		{
+		  case 0:	/* help relation */
+			if (!AArelopen(&des, -1, *pv) && rel_fmt(&des))
+				*pv = (char *) 0;
+			goto next;
+
+		  case 1:	/* help manual section */
+			if (!man_fmt(*pv))
+				*pv = (char *) 0;
+next:
+			pv++;
+			break;
+
+		  case 2:
+		  case 3:
+			relpr(mode);
+			break;
+
+		  default:
+badmode:
+			AAsyserr(11033, *--pv);
+		}
+	}
+	getuser((char *) 0);	/* close getuser in case mode 1 or 2 */
+
+	/* now rescan for error messages */
+	pv = parmv;
+	while (*pv != (char *) -1)
+	{
+		AA_atoi(*pv++, &mode);
+		switch (mode)
+		{
+		  case 0:
+		  case 1:
+			if (*pv)
+				ret = error(5401 + mode, *pv, (char *) 0);
+			break;
+
+		  case 2:
+		  case 3:
+			continue;
+		}
+		pv++;
+	}
+
+	return (ret);
+}
+
+
+/*
+**  Nroff Manual Section
+**
+**	The manual section given by 'name' is runoff'ed.  Returns one
+**	on success, zero if the manual section is not found.
+*/
+man_fmt(name)
+register char	*name;
+{
+	extern char	*AAztack();
+
+	/* a null manual name gives table of contents */
+	if (!*name)
+		name = TOC;
+	else if (AAlength(name) > MAXNAME)
+		return (TRUE);
+
+	return (AAcat(AAztack(AAztack(AApath, MAN), name)));
+}
+
+
+/*
+**  PRINT DATABASE INFORMATION
+**
+**	Prints a list of all the relations in the database, together
+**	with their owner.
+*/
+relpr(mode)
+int	mode;
+{
+	register DESC			*d;
+	register int			i;
+	struct tup_id			limtid;
+	struct tup_id			tid;
+	struct relation			rel;
+	char				buf[MAXLINE + 1];
+	char				lastuser[2];
+	extern DESC			Reldes;
+	extern char			*AAdatabase;
+	extern char			*AAbmove();
+	extern char			*AAcustomer();
+
+	opencatalog(AA_REL, 0);
+	d = &Reldes;
+	if (i = AAam_find(d, NOKEY, &tid, &limtid))
+		AAsyserr(11036, i);
+
+	lastuser[0] = '\0';
+
+	if (mode == 2)
+	{
+		i = AAdmin.adhdr.adflags;
+		rel_owner(buf, AAdmin.adhdr.adowner);
+		printf("\n%s / DBA %s\n\n", AAcustomer(), buf);
+		printf("DB %s %sparallel verwendbar\n",
+			AAdatabase, (i & A_DBCONCUR)? "": "nicht ");
+		printf("%sQRYMOD-Unterstuetzung\n", (i & A_QRYMOD)? "": "keine ");
+		printf("Seitengroesse %d Bytes\n\n", AApgsize);
+		printf(" Relation          Besitzer          Typ\n");
+		printf("----------------------------------------------------\n");
+	}
+
+	while (!(i = AAam_get(d, &tid, &limtid, &rel, 1)))
+	{
+		if (mode == 2)
+		{
+			if (!DBA_flag && !AAbequal(AAusercode, rel.relowner, 2))
+				continue;
+
+			if (!AAbequal(lastuser, rel.relowner, 2))
+			{
+				rel_owner(buf, rel.relowner);
+				AAbmove(rel.relowner, lastuser, 2);
+			}
+			printf(" %.12s      %-18s", rel.relid, buf);
+			if (rel.relstat & S_CATALOG)
+				printf("Systemkatalog\n");
+			else if (rel.relstat & S_VIEW)
+				printf("Sicht\n");
+			else if (ctoi(rel.relindxd) == SECINDEX)
+				printf("Index\n");
+			else
+			{
+				if (rel.relstat & S_DISTRIBUTED)
+					printf("entfernte ");
+				printf("Nutzerrelation\n");
+			}
+		}
+		else if (AAbequal(AAusercode, rel.relowner, 2) && !(rel.relstat & S_CATALOG))
+			rel_fmt(&rel);
+	}
+
+	if (i < 0)
+		AAsyserr(11037, i);
+	if (mode == 2)
+		printf("----------------------------------------------------\n");
+}
+
+
+rel_owner(buf, own)
+register char	*buf;
+register char	*own;
+{
+	register char			*cp;
+	extern char			*AAbmove();
+
+	if (getuser(own, buf))
+	{
+		/* cant find user code */
+		cp = AAbmove("  ", buf, 2);
+		cp = AAbmove(own, cp, 2);
+	}
+	else
+		for (cp = buf; *cp != ':'; cp++)
+			continue;
+	*cp = '\0';
+}
+
+
+/*
+**  Print Relation Information
+**
+**	Prints detailed information regarding the relation.
+*/
+rel_fmt(r)
+register struct relation	*r;
+{
+	register int			i;
+	register int			j;
+	struct tup_id			limtid;
+	struct tup_id			tid;
+	struct attribute		att;
+	struct index			indkey;
+	struct index			ind;
+	char				buf[MAXLINE + 1];
+	char				tempname[MAXNAME + 3];
+	long				mainpg;
+	long				ovflopg;
+	extern DESC			Attdes;
+	extern DESC			Inddes;
+	extern char			*AAdbpath;
+	extern long			lseek();
+	extern char			*trim_relname();
+	extern char			*ctime();
+
+	if (AAbequal(r->relid, SYSNAME, s_SYSNAME))
+		return (FALSE);
+
+	if (!AAbequal(AAusercode, r->relowner, 2)
+	   && (r->relstat & S_PROTRET) && (r->relstat & S_PROTALL))
+			return (FALSE);
+
+	printf("\nRelation:\t\t%s\n", trim_relname(r->relid));
+	printf("---------\t\t%s\n", AAcustomer());
+	if (i = getuser(r->relowner, buf))
+	{
+		AAsmove("(xx)", buf);
+		AAbmove(r->relowner, &buf[1], 2);
+	}
+	else
+	{
+		for (i = 0; buf[i] != ':'; i++)
+			continue;
+		buf[i] = 0;
+	}
+	printf("Besitzer:\t\t%s\n", buf);
+	if (AAdbpath)
+		printf("Lokalisation:\t\t%s\n", AAdbpath);
+	printf("Domaenanzahl:\t\t%d\n", r->relatts);
+	printf("Tupellaenge:\t\t%d\n", r->relwid);
+	if (r->relsave)
+# ifdef ESER_VMX
+		printf("Verfallsdatum:\t\t%s", ctime(r->relsave));
+# else
+		printf("Verfallsdatum:\t\t%s", ctime(&r->relsave));
+# endif
+	if (!(r->relstat & S_VIEW))
+	{
+		printf("Tupelanzahl:\t\t%ld\n", r->reltups);
+		printf("Speicherstruktur:\t");
+		if ((i = ctoi(r->relspec)) < 0)
+		{
+			printf("compressed ");
+			i = -i;
+		}
+
+		switch (i)
+		{
+		  case M_HEAP:
+			printf("HEAP\n");
+			break;
+
+		  case M_ISAM:
+			printf("ISAM\n");
+			break;
+
+		  case M_HASH:
+			printf("HASH\n");
+			break;
+
+		  default:
+			printf("unbekannt %d\n", i);
+			break;
+		}
+
+		AAdbname(r->relid, r->relowner, tempname);
+		if ((j = open(tempname, 0)) >= 0)
+		{
+			if ((ovflopg = lseek(j, 0L, 2)) >= 0L)
+			{
+				mainpg = r->relprim;
+				if (i == M_ISAM)
+					mainpg++;
+				ovflopg /= AApgsize;
+				ovflopg -= mainpg;
+				printf("Pages:\t\t\t%ld + %ld\n", mainpg, ovflopg);
+			}
+			close(j);
+		}
+	}
+
+	printf("Relationentyp:\t\t");
+	if (r->relstat & S_CATALOG)
+		printf("Systemkatalog\n");
+	else if (r->relstat & S_VIEW)
+		printf("Sicht\n");
+	else if (ctoi(r->relindxd) == SECINDEX)
+	{
+		printf("Index auf ");
+		opencatalog(AA_INDEX, 0);
+		AAam_setkey(&Inddes, &indkey, r->relowner, IOWNERP);
+		AAam_setkey(&Inddes, &indkey, r->relid, IRELIDI);
+		if (!AAgetequal(&Inddes, &indkey, &ind, &tid))
+			printf("%s\n", trim_relname(ind.irelidp));
+		else
+			printf("unbekannte Relation\n");
+	}
+	else
+	{
+		if (r->relstat & S_DISTRIBUTED)
+			printf("entfernte ");
+		printf("Nutzerrelation\n");
+	}
+	printf("Zugriffsrechte:\t\t%s\n", (r->relstat & S_PROTUPS)? "definiert": "keine");
+	if (!(r->relstat & S_PROTRET))
+		printf("\t\t\tRETRIEVE TO ALL\n");
+	if (!(r->relstat & S_PROTALL))
+		printf("\t\t\tALL TO ALL\n");
+	printf("Integritaeten:\t\t%s\n", (r->relstat & S_INTEG)? "definiert": "keine");
+	if (ctoi(r->relindxd) == SECBASE)
+	{
+		printf("Indexrelationen:\t");
+		opencatalog(AA_INDEX, 0);
+		AAam_setkey(&Inddes, &indkey, r->relid, IRELIDP);
+		AAam_setkey(&Inddes, &indkey, r->relowner, IOWNERP);
+		if (i = AAam_find(&Inddes, EXACTKEY, &tid, &limtid, &indkey))
+			AAsyserr(11038, i);
+		j = FALSE;
+		while (!(i = AAam_get(&Inddes, &tid, &limtid, &ind, 1)))
+		{
+			if (!AAbequal(&indkey, &ind, MAXNAME + 2))
+				continue;
+			if (j)
+				printf("\t\t\t");
+			j =TRUE;
+			printf("%s\n", trim_relname(ind.irelidi));
+		}
+		if (i < 0)
+			AAsyserr(11039, i);
+		if (!j)
+			printf("unbekannt\n");
+	}
+
+	opencatalog(AA_ATT, 0);
+	printf("\n Nummer Domaenname        Typ   Laenge  Schluessel\n");
+	printf("---------------------------------------------------\n");
+	fflush(stdout);
+	seq_init(&Attdes, r);
+	while (seq_attributes(&Attdes, r, &att))
+	{
+		printf("  %3d   %.12s	    %c%8d", att.attid, att.attname,
+			typeunconv(att.attfrmt), ctou(att.attfrml));
+		if (att.attxtra)
+			printf("%7d", att.attxtra);
+		putchar('\n');
+	}
+
+	printf("---------------------------------------------------\n");
+	fflush(stdout);
+	return (TRUE);
+}