From b4fa1794dffd2a26b90c5bd5f68bc03484ac814b Mon Sep 17 00:00:00 2001
From: Oliver Lehmann <lehmann@ans-netz.de>
Date: Wed, 4 Apr 1990 13:48:47 +0000
Subject: [PATCH] ING_DB

---
 WEGA/contrib/ingres/dbs/demo/form/v_erfind.x | 141 +++++++++++++++++++
 1 file changed, 141 insertions(+)
 create mode 100644 WEGA/contrib/ingres/dbs/demo/form/v_erfind.x

diff --git a/WEGA/contrib/ingres/dbs/demo/form/v_erfind.x b/WEGA/contrib/ingres/dbs/demo/form/v_erfind.x
new file mode 100644
index 0000000..558167d
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/demo/form/v_erfind.x
@@ -0,0 +1,141 @@
+## shared dt
+
+# define	NF		((int (*)()) 0)		/* null function */
+# define	N		 8
+
+# define	SATZ		 4
+   int		satz;
+
+/* vars of relation erfind */
+# define	ERFINDUNG	36
+## char		erfindung[37];
+
+# define	ERFINDER	20
+## char		erfinder[21];
+
+# define	JAHR		 9
+## char		jahr[10];
+
+# define	LAND		12
+## char		land[13];
+
+
+f_retrieve(frame)
+register char		*frame;
+{
+	register int		cnt;
+
+   MMerror(" RECHERCHE LAEUFT ");
+## use (shared erfind)
+   satz = cnt = 0;
+## retrieve erfind
+## (
+## 	erfindung = $erfindung,
+## 	erfinder = $erfinder,
+## 	jahr = $jahr,
+## 	land = $land
+## )
+## {
+	if (cnt == N)
+	{
+		if (MMnext())
+##			endretrieve
+		cnt = 0;
+	}
+	satz++;
+	MMset_value(frame, &satz, cnt);
+	MMset_value(frame, erfindung, cnt);
+	MMset_value(frame, erfinder, cnt);
+	MMset_value(frame, jahr, cnt);
+	MMset_value(frame, land, cnt);
+	if (++cnt == N)
+	{
+		MMvalue(frame);
+		MMclr_value(frame);
+	}
+## }
+## commit
+
+   MMerror(" RECHERCHE BEENDET ");
+   if (cnt < N)
+   {
+	MMvalue(frame);
+	MMclr_value(frame);
+   }
+}
+
+amx(argc, argv)
+int	argc;
+char	*argv[];
+{
+	register int		i;
+	register char		*form;
+	char			*frame;
+	extern char		*MMalloc();
+
+   MMinit_form(1);
+
+   frame = (char *) 0;
+   form = MMalloc(&frame, 2, 1, 71, (char *) 0);
+   MMout_field(form, "----------------------------------------------------------- E R F I N D");
+
+   form = MMalloc(&frame, 4, 1, 4, (char *) 0);
+   MMout_field(form, "SATZ");
+
+   form = MMalloc(&frame, 4, 7, 9, (char *) 0);
+   MMout_field(form, "ERFINDUNG");
+
+   form = MMalloc(&frame, 4, 19, 8, (char *) 0);
+   MMout_field(form, "ERFINDER");
+
+   form = MMalloc(&frame, 4, 54, 4, (char *) 0);
+   MMout_field(form, "JAHR");
+
+   form = MMalloc(&frame, 4, 68, 4, (char *) 0);
+   MMout_field(form, "LAND");
+
+   form = MMalloc(&frame, 5, 7, 65, (char *) 0);
+   MMout_field(form, "-----------------------------------------------------------------");
+
+   for (i = 6; i < 6 + (2 * N); i += 2)
+   {
+	form = MMalloc(&frame, i, 1, SATZ, (char *) 0);
+	MMval_field(form, NF);
+	MMvari2(form, &satz, "%4d");
+
+	form = MMalloc(&frame, i, 7, ERFINDUNG, (char *) 0);
+	MMval_field(form, NF);
+	MMvarc(form, erfindung, (char *) 0);
+
+	form = MMalloc(&frame, i + 1, 27, ERFINDER, (char *) 0);
+	MMval_field(form, NF);
+	MMvarc(form, erfinder, "%20s");
+
+	form = MMalloc(&frame, i + 1, 49, JAHR, (char *) 0);
+	MMval_field(form, NF);
+	MMvarc(form, jahr, "%9s");
+
+	form = MMalloc(&frame, i + 1, 60, LAND, (char *) 0);
+	MMval_field(form, NF);
+	MMvarc(form, land, "%12s");
+   }
+
+   form = MMalloc(&frame, i, 7, 65, (char *) 0);
+   MMout_field(form, "-----------------------------------------------------------------");
+
+   form = MMalloc(&frame, 24, 2, 6, (char *) 0);
+   MMout_field(form, "SAETZE");
+
+   form = MMalloc(&frame, 24, 13, 10, (char *) 0);
+   MMmen_field(form, f_retrieve, NF, " ANZEIGEN ");
+
+## open erfind
+
+   MMform(frame);
+
+## close erfind
+
+   MMfree(&frame);
+   MMexit_form(1);
+   return (0);
+}