Re: Converting to upper case

["Lynette Chronister" <lchronis@xxxxxxxxxxxxxxxxxx>]

not sure if there is an easier way, but i use an array... 

E                        TAB1      1   26   1      TAB2      1
E                         NAM           30   1

C                         MOVE *BLANKS        NAM
C                         Z-ADD1                      X
C                         MOVEA LOWNAM     NAM

C            X           DOUEQ30
C            NAM,X  LOKUP TAB1            TAB2                 90
C            *IN90    IFEQ *ON
C                         MOVE   TAB2            NAM,X
C                         ENDIF
C                         ADD  1                       X
C                         ENDDO

C                         MOVEA NAM             UPNAM


**     TAB1/TAB2
aA
bB
cC
dD
eE
etc...

Respectfully, 

Lynette Chronister
Programmer/Analyst
Masonic Homes
Elizabethtown, PA

'when everything's coming your way, you are in the wrong lane'

>>> keblankenship@highlights-corp.com 12/18/00 04:11PM >>>


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