Re: Converting to upper case

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
+---