update rwlex998/wkf098p a set a.dlintbel =
(coalesce(select b.rhdrgnr from
testfgn/stgl006_98 b where
a.dldokid = b.dldokid and a.dlstatus = 'ARCHIV'
and a.dlintbel = 0 and b.rhdrgnr <> 0), 0)

so sollte es gehen

Gruß
Ronald