RE: API in Converting to upper case

[Rizwan Ahmed <rizwan@xxxxxxxxxxxx>]

Title: RE: API in Converting to upper case

I've seen an API for conversion purpose.I think it could convert both ways upper to lower or lower to upper also could be easy working just send the variable and how to convert (UP to LO or LO to UP).I'll have to search for the API.

Rizwan

-----Original Message-----
From:   dbryant@banpharm.com [SMTP:dbryant@banpharm.com]
Sent:   Monday, December 18, 2000 1:40 PM
To:     RPG400-L@midrange.com
Subject:        Re: Converting to upper case





Try XLATE (Translate), works for me....

Example:
 D UP              C                   CONST('ABCDEFGHIJKLMNOPQRSTUVWXYZ')
 D LO              C                   CONST('abcdefghijklmnopqrstuvwxyz')
  *    Convert the Upper Case to Lower Case
 C                   EVAL      RESULT = *Blanks
 C        UP:LO         XLATE     DESCP         RESULT
 C                   EVAL      DESCP  = RESULT





Darlene






|--------+--------------------------------->
|        |          keblankenship@highlight|
|        |          s-corp.com             |
|        |                                 |
|        |          12/18/2000 04:11 PM    |
|        |          Please respond to      |
|        |          RPG400-L               |
|        |                                 |
|--------+--------------------------------->
  >--------------------------------------------------------|
  |                                                        |
  |       To:     RPG400-L@midrange.com                    |
  |       cc:     (bcc: Darlene H Bryant/Banpharm)         |
  |       Subject:     Converting to upper case            |
  >--------------------------------------------------------|










I am looking for an easy way to convert an alpha field to all upper case
characters.

anyone have any suggestions?

Kevin Blankenship
Highlights For Children
Business Systems Developer




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





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