RE: Lower case to upper case

["Rick DuVall" <R_C_DuVall@xxxxxxxxxx>]

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.