DANKE.

Lösung falls jemand mal dasselbe Problem hat

FUPDATEKOTOIP E K DISK PREFIX(UPD)
F RENAME(UPDATEKOTO:UKOTO)
FKOSTTOPF UF F 60 30AIDISK KEYLOC(1)
DKOSTTOPFDS DS
DKOST 1 60
Dbekkost 20 23
IKOSTTOPF KF 01
I 20 23 bekkost
c UPDK00001 chain KOSTTOPF KOSTTOPFDS
c IF %FOUND
c movel 'asdf' bekkost
C update KOSTTOPF KOSTTOPFDS
c end