Hallo!

Probier's mal hiermit:
Code:
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