Hi Fuerchau,

ich danke dir für deine Antwort, hat zwar mein Problem nicht gelöst aber hat mir eine Idee gezeigt, wie ich es lösen soll.

Ich habe es in CLLE gemacht, weil in CL mit Pointers besser arbeiten kann:

Code:
CALLPRC PRC('strstr') PARM((&strstr_st1 *BYVAL)  +      
                           (&strstr_st2 *BYVAL)) +      
        RTNVAL(&strstr_fnd)                             
IF COND(&strstr_fnd *EQ *NULL) THEN(DO)                 
   CALLSUBR doENDPGM                                    
ENDDO                                                   
                                                        
CHGVAR &strstr_off (%OFS(&strstr_fnd)-%OFS(&strstr_st1))
Nochmals danke.