From d3767a54ce3b5bc84925cf5d6868838b053fb27c Mon Sep 17 00:00:00 2001
From: Oliver Lehmann <lehmann@ans-netz.de>
Date: Thu, 6 Jul 1989 16:42:51 +0000
Subject: [PATCH] ING_DB

---
 WEGA/contrib/ingres/dbs/demo/amx/09.x | 17 +++++++++++++++++
 WEGA/contrib/ingres/dbs/demo/amx/10.x | 12 ++++++++++++
 2 files changed, 29 insertions(+)
 create mode 100644 WEGA/contrib/ingres/dbs/demo/amx/09.x
 create mode 100644 WEGA/contrib/ingres/dbs/demo/amx/10.x

diff --git a/WEGA/contrib/ingres/dbs/demo/amx/09.x b/WEGA/contrib/ingres/dbs/demo/amx/09.x
new file mode 100644
index 0000000..de17064
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/demo/amx/09.x
@@ -0,0 +1,17 @@
+##	shared	Dt
+##	i2	tnum;
+##	i2	tnum_arg;
+amx(argc, argv)
+int	argc;
+char	**argv;
+{
+	tnum_arg = (argc == 1)? 10: atoi(argv[1]);
+##	open Teile
+##	retrieve Teile $Tnum <= tnum_arg and $Tnum >= 2 (tnum = $Tnum)
+##	{
+		if (tnum == 2 || tnum == tnum_arg)
+##			print ($Tname, $Tnum)
+##	}
+##	close Teile
+	fflush(stdout);
+}
diff --git a/WEGA/contrib/ingres/dbs/demo/amx/10.x b/WEGA/contrib/ingres/dbs/demo/amx/10.x
new file mode 100644
index 0000000..7a762fb
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/demo/amx/10.x
@@ -0,0 +1,12 @@
+##	shared	Dt
+##	i2	tnum;
+amx(argc, argv)
+int	argc;
+char	**argv;
+{
+	tnum = (argc == 1)? 10: atoi(argv[1]);
+##	open Teile
+##	retrieve Teile $Tnum <= tnum and $Tnum > 5 { print ($Tname, $Tnum) }
+##	close Teile
+	fflush(stdout);
+}