Re: Quick question, before I reinvent any wheels

[Dennis <iseries@xxxxxxxxxxxx>]

It truly is a well-thought out, clean approach.  If I'd endeavored, the result would have likely been a 300-line program that called 17 APIs and pulled information from three continents.  :) If I may borrow from Middleman, Chuck's solution is sheer elegance in its simplicity.

The one thing to watch for (and I don't wish to pick nits) is presence of double quote within the data to be written.  For that, one would need special code, or to remember to escape ( \" ) the character before the CALL.
++
Dennis
++
 "Peace: In international affairs, a period of cheating between two periods of fighting."
     -- Ambrose Bierce 
 

Sent from my Galaxy tablet phone.  Please excuse my brevity.
For any grammatic/spelling errors, there is no excuse.
++


"James Lampert" <jamesl@xxxxxxxxxxxxxxxxx> 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
> -- 
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.