Hi,

Eine Alternative:

Code:
FDTLOHNP   UF   E             DISK    RENAME(DTLOHNP: DTLOHNDAT) 
DDS1              DS                  LIKEREC(DTLOHNDAT)         
 
   chain (myKey) DTLOHNP DS1;                                    
 
   Pos1 = %scan(DS1.DTLOHNP :'+');                               
   update dtlohndat ds1;
V7R1M0

Vielleicht hilfts.