\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