From 1ff0368464069dd534ebc6a3d6c8ea010f04e5fc Mon Sep 17 00:00:00 2001
From: Oliver Lehmann <lehmann@ans-netz.de>
Date: Mon, 10 Jul 1989 12:26:03 +0000
Subject: [PATCH] ING_DB

---
 WEGA/contrib/ingres/dbs/demo/amx/16.x | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 WEGA/contrib/ingres/dbs/demo/amx/16.x

diff --git a/WEGA/contrib/ingres/dbs/demo/amx/16.x b/WEGA/contrib/ingres/dbs/demo/amx/16.x
new file mode 100644
index 0000000..84ee31b
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/demo/amx/16.x
@@ -0,0 +1,23 @@
+##	shared	Dt
+##	char	*name;
+##	i2	gehalt;
+amx(argc, argv)
+int	argc;
+char	**argv;
+{
+	name = (argc == 1)? "Unfug, Ulli": argv[1];
+	gehalt = (argc < 3)? 1000: atoi(argv[2]);
+/*
+**	Hier wird die Ausfuehrungsberechtigung des Programms
+**	durch den aufrufenden Nutzer i.b.a. seine Zugehoerigkeit
+**	zu der BS-Gruppe des Uebersetzers des AMX-Programms.
+*/
+##	permit group
+##	open Personal
+##	use (exclusive Personal)
+##	append Personal ($Name = name, $Gehalt = gehalt)
+##	commit
+##	close Personal
+	printf("Neuzugang: \"%s\" Gehalt %d,-M\n", name, gehalt);
+	fflush(stdout);
+}