Easytrieve Upper/Lowercase question 1

[TCaptain]

Is there a way to convert a string to Uppercase in Easytrieve? Like a function or a macro (a la toupper() in C).

We're reading a pretty huge file and we now have to deal with some entries that are entered in lowercase as well as upper (we match on names...and we'd like to keep everything uppercase).

I'm flipping through the docs but I'm not seeing anything. I'm more experienced in C and C++ and fairly new to Easytrieve.

Thank you for your help.

 

[Triad]

//INFILE DD *
lower case text
//SYSIN DD *
FILE INFILE
INFILE-STRING 1 80 A
INFILE-B 1 1 B OCCURS 80 S1 W 2 P 0 JOB
DISPLAY ' INPUT: ' INFILE-STRING
S1 = I
DO WHILE S1 LE 80
IF INFILE-B(S1) GE 129 +
AND INFILE-B(S1) LE 169
INFILE-B(S1) = INFILE-B(S1) + 64
END-IF
S1 = S1 + 1
END-DO DISPLAY 'OUTPUT: ' INFILE-STRING DISPLAY ' '