The RPG code:
* ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
* : PROGRAM PROPERTY OF: :
* : DATE PROGRAMMER ACTION :
* : 4/98 Booth Martin Create program :
* :............................................................:
* : TO TRANSLATE LOWER TO UPPER CASE. :
* :............................................................:
FXLATEFM CF E WORKSTN
I*
I 'ABCDEFGHIJKLMNOPQRST-C UP
I 'UVWXYZ '
I 'abcdefghijklmnopqrst-C LO
I 'uvwxyz,'
* .. .. .. .. .. .. .. .. ..
* raise lower case names to UPPER CASE.
C *INKC DOWEQ*OFF
C EXFMTFMT01
C LO:UP XLATEFIELD1 FIELD2
C END
C* .. .. .. .. .. .. .. .. ..
C SETON LR
|