From 034c368a66177644cc1aa1965ed9b78185a3afff Mon Sep 17 00:00:00 2001
From: Oliver Lehmann <lehmann@ans-netz.de>
Date: Thu, 11 May 1989 10:18:45 +0000
Subject: [PATCH] ING_DB

---
 .../contrib/ingres/dbs/data/base/adr/revision | 23 +++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 WEGA/contrib/ingres/dbs/data/base/adr/revision

diff --git a/WEGA/contrib/ingres/dbs/data/base/adr/revision b/WEGA/contrib/ingres/dbs/data/base/adr/revision
new file mode 100644
index 0000000..bafa033
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/data/base/adr/revision
@@ -0,0 +1,23 @@
+\r
+{remove;{continuetrap}}\v
+range a = adr
+range d = dis\g
+\k start
+{readdefine;betrieb;BETRIEB> }\v
+retrieve (d.kurz)
+where d.kurz = "betrieb"\g
+\b?{tuplecount}!=1 start
+retrieve (d.vertrag, d.name)
+where d.kurz = "betrieb"\g
+retrieve (a.name)
+where a.kurz="betrieb"\g
+{readdefine;verant;\ \ \ NAME> }\v
+{readdefine;vno;VERTRAG> }\v
+replace d (name = a.name, vertrag="vno")
+where a.name = "verant" and a.kurz=d.kurz and d.kurz="betrieb"\g
+retrieve (d.vertrag, d.name)
+where d.kurz = "betrieb"\g
+\r
+\b start
+\k ende
+\r