Re: Camel Case

[Henrik Rützou <hr@xxxxxxxxxxxx>]

Or ....

var = 'SHANNON O''DONNELL';

ic = ' ';
for i = 1 to %len(var);
  select;
    when ic = ' '
     or ic = '''';
    other;
      %subst(var:i:1) = convCase(%subst(var:i:1):'L');
  endsl;
  ic = %subst(var:i:1);
endfor;

dsp = var;
dsply dsp;

Returns:

Shannon O'Donnell

On Sat, Feb 11, 2012 at 3:37 PM, Emil Sommarström <
emil.sommarstrom@xxxxxxxxx> wrote:

> More samples:)
>
>     ptoNameCase...
>     p                 b
>     d                 pi           200a   varying
>     d name                         200a   value varying
>
>     d uc              c                   'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
>     d lc              c                   'abcdefghijklmnopqrstuvwxyz'
>     d pos             s              5u 0
>      /free
>
>       name = %xLate(uc:lc:%trim(name));
>       dou pos = 0;
>         pos += 1;
>         %subst(name:pos:1) = %xLate(lc:uc:%subst(name:pos:1));
>         pos = %scan(' ':name:pos);
>       endDo;
>       return name;
>
>      /end-free
>     p                 e
>
>
>
> On Thu, Feb 9, 2012 at 2:58 AM, Shannon ODonnell
> <sodonnell@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote:
> > Thanks!
> >
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:
> rpg400-l-bounces@xxxxxxxxxxxx]
> > On Behalf Of sjl
> > Sent: Wednesday, February 08, 2012 3:34 PM
> > To: rpg400-l@xxxxxxxxxxxx
> > Subject: Re: Camel Case
> >
> > Here is what I was going to suggest:
> >
> > I would store the conversion information in a dictionary file as pairs of
> > data, with the "From" word in all caps. In order to perform conversion,
> take
> > a word from the string being converted and convert the value to all caps,
> > then CHAIN to the dictionary file with the value in all caps.
> >
> > If found, the "to" value would be returned in CamelCase format.
> >
> >
> > Sample Dictiionary file DDS:
> >
> >                                            UNIQUE
> >                R @XLAT
> >                  WORDFROM     60A
> >                  WORDTO          60A
> >
> >                K WORDOLD
> >
> >
> > Example data:
> > WORDFROM     WORDTO
> > ------------------    ------------
> > AGRIFINANCE AgriFinance
> >
> >
> > WORDFROM
> > ---------------------------------------------------------
> > THATWASTHEQUESTIONIWASGOINGOTASK
> >
> > WORDTO
> > -------------------------------------------------------
> > ThatWasTheQuestionIWasGoingToAsk
> >
> > - sjl
> >
> >
> > Matt wrote:
> >  If it's the first item from sjl then I would just create a dictionary of
> >  either upper or lower cased words and their mixed case counter parts.
> >
> >
> >
> > --
> > This is the RPG programming on the IBM i / System i (RPG400-L) mailing
> list
> > To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
> unsubscribe, or
> > change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives at
> > http://archive.midrange.com/rpg400-l.
> >
> > --
> > This is the RPG programming on the IBM i / System i (RPG400-L) mailing
> list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.