QCMDEXC on v5r1

 * 
D Qcmdexc         pr                  Extpgm('QCMDEXC') 
D  Cmd                                Like(Qcmd) Options(*Varsize) Const
D  Len                          15p 5 
D  Opt                           3    Options(*NoPass) Const 
 
D Qcmd            s           3000 


Later in code

 * 
C                   Eval      Qcmd = 'CPYTOIMPF FROMFILE(FXC'+ 
C                             ')TOSTMF(''qdls/forcastx/fxc.t'+ 
C                             'xt'') MBROPT(*REPLACE) STMFCO'+ 
C                             'DPAG(*PCASCII) CDDLM(*OPT(*RE'+ 
C                             'PLACE) STMFCODPAG(*PCASCII) C'+ 
C                             'DDLM(*CR) DTAFMT(*DLM) STRDLM'+ 
C                             '(*NONE) FLDDLM(X''05'')' 
 * 
C                   CallP     Qcmdexc(Qcmd:%Len(%Trim(Qcmd))) 


*RNF7542 30      1 Parameter cannot be passed by reference when it can be
                   changed during the call. 



Thought I had seen something like this on list a few times, did I miss 
something, or is this v5r2.
I'm at v5r1.

Thanks 
Bill Hopkins