Re: Quick question, before I reinvent any wheels

[James Lampert <jamesl@xxxxxxxxxxxxxxxxx>]

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