24 lines
519 B
Plaintext
24 lines
519 B
Plaintext
\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
|