ING_DB

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