ILE aus Feld rechts Blanks abschneiden und mit move übertragen

[Pikachu]

Hallo!

Probier's mal hiermit:

D FELDA           S             10A   INZ('abc def')  
D FELDB           S             10A   INZ(*ALL'_')    
D LENB            S              5S 0 INZ(%LEN(FELDB))
D LEN             S              5S 0 INZ             
D*****************************************************
C     ' '           CHECKR    FELDA         LEN       
C                   SUB       LEN           LENB      
C     LENB          SUBST(P)  FELDB         FELDB     
C                   CAT       FELDA:0       FELDB

[Fuerchau]

Wenn du den vorherigen Inhalt parziell retten willst, dann gehts auch mit:

eval feld = %subst(feld:1:%size(feld) - %len(%trim(feldb))) + feldb;