Re: Field concatenation

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

Right - so 12345 blank blank blank 23456 will result in 12345,,,23456

But that is not what the OP wanted I believe - he wanted the result to be 12345,23456  i.e. no matter how many blank fields only one comma.

Which is why I responded as I did to Vern 

> On Jan 14, 2020, at 2:31 PM, Francois Lavoie <Francois.Lavoie@xxxxxxxxxxxxxxxxxxxx> wrote:
>
> Yup Mr Paris. I tried it
>
> Any blank vars will be replaced by a single comma
>
> -----Original Message-----
> From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Jon Paris
> Sent: Tuesday, January 14, 2020 14:30
> To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
> Subject: Re: Field concatenation
>
> Nope.
>
>
> > On Jan 14, 2020, at 2:04 PM, Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx> wrote:
> >
> > Will it handle 3 blank contiguous fields?
> >
> > On 1/14/2020 12:41 PM, Francois Lavoie wrote:
> > > This will solve the 2 consecutive blank fields being replace by only 1 comma:
> > > Str=%ScanRpl('     ':',':V1+V2+V3+V4+V5+V6);
> > >                            ^ 5 spaces
> > >
> > > -----Original Message-----
> > > From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of 
> > > Barbara Morris
> > > Sent: Tuesday, January 14, 2020 13:20
> > > To: rpg400-l@xxxxxxxxxxxxxxxxxx
> > > Subject: Re: Field concatenation
> > >
> > > On 2020-01-14 12:07 p.m., Francois Lavoie wrote:
> > > > I think if 2 consecutive vars are blanks it will be replaced by only 
> > > > 1 comma, not what you want
> > > I think this was already mentioned, but if the v1 v2 etc aren't trimmed, they would be replaced by several commas for each vN field. If the values are trimmed, then an all-blank value wouldn't be replaced by any commas.
> > >
> > > I don't think there's any way to avoid either doing all the IFs or
> > > (better) writing a procedure.
> > >
> > > --
> > > Barbara
> > >
> > > --
> > > This is the RPG programming on IBM i (RPG400-L) mailing list To post 
> > > a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, 
> > > unsubscribe, or change list options,
> > > visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> > > or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> > > Before posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l.
> > >
> > > Please contact support@xxxxxxxxxxxx for any subscription related questions.
> > >
> > > Help support midrange.com by shopping at amazon.com with our 
> > > affiliate link: https://amazon.midrange.com
> >
> > --
> > This is the RPG programming on IBM i (RPG400-L) mailing list To post a 
> > message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, 
> > or change list options,
> > visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> > Before posting, please take a moment to review the archives at 
> > https://archive.midrange.com/rpg400-l.
> >
> > Please contact support@xxxxxxxxxxxx for any subscription related questions.
> >
> > Help support midrange.com by shopping at amazon.com with our affiliate 
> > link: https://amazon.midrange.com
>
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com
> -- 
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com