Re: Junk Passed 32 on 3000A parm

["Bill Hopkins" <BHopkins@xxxxxxxxxxxxxxxxxxx>]

Just realized this won't work cmdLen is just for info of parm not field 
correct? Besides it would not get filled until after %len and %trim. Well 
it looked good for a time:)

d ExecuteCommand  PR                  ExtPgm('QCMDEXC') 
d  cmdstr                             Like(cmd) Const Options(*VarSize)
d  cmdLen                       15P 5 Const 
d  cmdOpts                       3A   Const Options(*NOPASS) 
 
D cmd             S           3000A 
 
c     *entry        plist 
c                   parm                    cmd 
 
C                   CallP     ExecuteCommand(cmd:%len(%trim 
C                             (%subst(cmd:1:cmdLen)))) 
C                   eval      *inlr = *on 


Thanks 
Bill H