Re: Camel Case

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.