Re: Quick question, before I reinvent any wheels

[Vern Hamberg <vhamberg@xxxxxxxxxxx>]

Agreed, James - this is extremely cool!

On 11/1/2011 11:02 AM, James Lampert wrote:
> CRPence wrote:
> >     pgm parm(&inpstr)
> >      dcl&inpstr *char   30
> >      dcl&qshrqs *char 2000
> >      dcl&outnam *char   30 'output.txt'
> >       chgvar&qshrqs 'touch -C   819 '
> >       chgvar&qshrqs (&qshrqs *bcat&outnam *tcat ';')
> >       chgvar&qshrqs (&qshrqs *tcat 'echo "')
> >       chgvar&qshrqs (&qshrqs *tcat&inpstr )
> >       chgvar&qshrqs (&qshrqs *tcat '">  ' *bcat&outnam)
> >       sndpgmmsg msg(&qshrqs) topgmq(*ext) tomsgq(*topgmq)
> >       qsh cmd(&qshrqs)
> >     endpgm
> Thanks, Chuck: that's slicker than frog scat. Not that Vern's answer
> wouldn't have also worked, but this was quite remarkable, and it runs
> fast on the customer box.
>
> --
> JHHL