Es gibt auch in RPT den befehl SUBST
Code:
C      LEN    SUBST    BASIS       ZZTEXT 
C               CHECKR  VARIAB      L1 
C               CAT       VARIAB:0   ZZTEXT
C               SUBST    BASIS:L1   ZZTXT1
C               CAT       ZZTXT1:0   ZZTEXT
So sollte es gehen :-)

I Love The Basics