ILE aus Feld rechts Blanks abschneiden und mit move übertragen

[kuempi von stein]

Japp,

so gehts. Den "EVALR" hatte ich noch nicht verinnerlicht.
Einziges Manko ist, dass der Inhalt von "Feld2" in Deinem Beispiel überklatsch wird, aber so reicht es mir auch.

Merci und Thread kann geschlossen werden.

k.

[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;