CHARACTER*26 UPPER
DATA UPPER /'ABCDEFGHIJKLMNOPQRSTUVWXYZ'/
SAVE UPPER
L = INDEX(UPPER,string(I:I))
string(I:I) = UPPER(L:L)