RE: Lower case to upper case

It should be pointed out that this approach will also "upper case" several
other characters.  ~ for instance will be uppercased to ÷ (in CCSID 37
anyway) which most likely is not intended.

The convert case API really is the way to go...




                                                                           
             "Rick DuVall"                                                 
             <R_C_DuVall@daaok                                             
             c.com>                                                     To 
             Sent by:                  "Midrange Systems Technical         
             midrange-l-bounce         Discussion"                         
             s@xxxxxxxxxxxx            <midrange-l@xxxxxxxxxxxx>           
                                                                        cc 
                                                                           
             09/08/2004 11:08                                      Subject 
             AM                        RE: Lower case to upper case        
                                                                           
                                                                           
             Please respond to                                             
             Midrange Systems                                              
                 Technical                                                 
                Discussion                                                 
                                                                           
                                                                           




LONG time ago...

C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
C* CONVERT VINS TO UPPER CASE
C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
C     1             DO        17            X                 2 0
C     V(X)          IFGE      'a'
C     V(X)          ANDLE     'z'
C                   SETOFF                                         65
C                   TESTB     '4567'        V(X)                   65
C   65              BITON     '1'           V(X)
C                   END
C                   END

Don't ask me - I don't remember the specifics, it just used to work...

Good luck

Rick DuVall
Systems Manager
Dealer's Auto Auction of Okc, Inc.
Rick@xxxxxxxxxx <mailto:Rick@xxxxxxxxxx>
(405) 947-2886


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Dwayne Allison
Sent: Wednesday, September 08, 2004 9:02 AM
To: Midrange Systems Technical Discussion
Subject: Lower case to upper case



Is there another way to change character from lower case to upper case
within a program, beside using the Xlate command and setting up constants?

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.




--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.