RE: procedure/subroutine to quote a string with quotes

["Johnson, Duane" <djohnson@xxxxxxxxxxxxx>]

arrrrgh  That's about enough for late on Friday afternoon.  I think I'm
going to go home and unravel.

> -----Original Message-----
> From: Bob Cozzi [SMTP:cozzi@rpgiv.com]
> Sent: Friday, November 08, 2002 5:15 PM
> To:   rpg400-l@midrange.com
> Subject:      RE: procedure/subroutine to quote a string with quotes
>
> Yes you would but that's a whole other thread. :)
>
> Bob
>
> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
> On Behalf Of Rich Duzenbury
> Sent: Friday, November 08, 2002 4:56 PM
> To: rpg400-l@midrange.com
> Subject: Re: procedure/subroutine to quote a string with quotes
>
> At 03:51 PM 11/8/02, you wrote:
> >There's a (remote) possibility that the string could double in length.
> >
> >D EnQuote         PI          4096A   VARYING
> >D  InString                   2048A   VALUE VARYING
>
> The function as presented uses only instring, a copy passed by value
> according to the above PI.  Won't it simply truncate silently if there
> is
> too much data?
>
> Wouldn't you have to declare a variable to hold the changed characters,
> e.g.
>    D OutString                 4096A   Value
> And then fill it?
>
> Regards,
> Rich
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.