chrissy
/
P8000
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ING_DB

This commit is contained in:
Oliver Lehmann 1989-05-11 10:18:45 +00:00
parent a8eb78ee5c
commit 034c368a66
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
WEGA/contrib/ingres/dbs/data/base/adr/revision Normal file
View File

@ -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