Re: Converting to upper case

["David Morris" <dmorris@xxxxxxxxxxxxx>]

Dan,

Just ease of use (it can be used in an expression) and the code is centralized. 
 
That way when you do find you have a problem (like code page) you have one 
place to fix it.  Say for example someone like Bruce Vining posts information 
about a really neat API that does this better than xlate.  I do wrap that 
procedure 
into others that do more meaningful things like upper, lower, etc.  What you 
actually get is something like:

C                       eval    field = upper(field1) + ' ' + upper(field2)...

David Morris

>>> D.BALE@handleman.com 12/19/00 09:54AM >>>
David,

Does your procedure provide any additional function over and above the
standard XLATE opcode?
     C           $LC:$UC   XLATESTR1      STR2           (RPG-III)
     C     $LC:$UC       XLATE     STR1          STR2    (RPG-IV)

Dan Bale
IT - AS/400
Handleman Company
248-362-4400  Ext. 4952

-------------------------- Original Message --------------------------
Kevin,

Here is the source from a tech tip that was published in Midrange Computing.
 I don't
recall the issue.  To use this you will need to pass the translation strings.
 You can
wrap this procedure in another procedure that passes the upper and lower
 character
sets.  Also, you will have to remove the message handline or download the
 message
toolkit from Midrange Computing's web site.  There is also a newer version of
 the message
toolkit if you send me an email.

You would use this like:

C                       eval    field = xlt(field: 'abcd...': 'ABCD...')
<snip>


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---