Look at the XLATE opcode. That's what it does. If you wanna see a program using it, go to my web site, pick "RPG Sample Code" and choose the one about translating from UPPER to lower case.

http://www.spy.net/~booth

Hell, never mind, here's the code. (set your reader to fixed font)

             An RPG program to demonstrate a technique to translate
upper/lower case text


                                    The RPG code:

                 *
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
                 * : PROGRAM PROPERTY OF:
:
                 * :     DATE      PROGRAMMER          ACTION
:
                 * :      4/98     Booth Martin        Create program
:
                 *
:............................................................:
                 * :     TO TRANSLATE LOWER TO UPPER CASE.
:
                 *
:............................................................:
                FXLATEFM CF  E                    WORKSTN
                I*
                I              'ABCDEFGHIJKLMNOPQRST-C         UP
                I              'UVWXYZ '
                I              'abcdefghijklmnopqrst-C         LO
                I              'uvwxyz,'
                 *  ..  ..  ..  ..  ..  ..  ..  ..  ..
                 * raise lower case names to UPPER CASE.
                C           *INKC     DOWEQ*OFF
                C                     EXFMTFMT01
                C           LO:UP     XLATEFIELD1    FIELD2
                C                     END
                C*  ..  ..  ..  ..  ..  ..  ..  ..  ..
                C                     SETON                     LR

---

Simply capitalizing the first letter of every word is not sophisticated enough. Since you are converting case on an individual's name, you also run the risk of mangling it.

For example:

"JOHN MACDONALD" will becom "John Macdonald" when it should be "John MacDonald" and O'Reilly becomes O'reilly.

I work for a mai-order company, and when an advertising piece mis-prints a prospect's name, that prospect is way more likely to toss the offer in the trash.

From personal experience, I know that my name is one that is constantly mangled on junk mail. As a matter of fact I use that fact to screen my mail... if they can't get my name right, then I don't read their stuff.

Restoring mixed case to a name is a complex topic, and you must weigh the cost of a sophisticated algorithm to avoid mangling names. Our experience as a company has shown that customers don't mind all CAPS in their printed name, they do mind mis-spellings and goofy capitalization.

---

Try something as follows;

DLoCConst('abcdefg...
DUpCConst('ABCDEF....

CUp:LoXlateStrStr
CEvalLen = %Len(Str)

CEval Char = %SubSt(Str:1:1)
CLo:UpXlateCharChar
CEval%SubSt(Str:1:1) = Char

C2DoLenn
CIf%SubSt(Str:n-1:1) = ' '
CEval Char = %SubSt(Str:n:1)
CLo:UpXlateCharChar
CEval%SubSt(Str:n:1) = Char
CEndIf

I haven't tested this, but it should more or less do the job.

---

I wrote a routine like that in RPG/IV recently; what it does is:

a) break name into seperate parts and store leftadjusted in array
b) xlate from position 2 upper to lower for each array element loaded
c) cat together each part with one blank in between

---

Not to mention the qdcxlate API if you want to externalize the mapping instead of hard coding it.

Or even to create an ILE C/400 mod using a for-to loop with the "tolower" macro included. Can be linked into the RPG app.

Then we have of course the qtvtbnam function, which is unsupported and undocumented and which I have not tried in a couple of years. Might have been removed..

---