%EXTERNAL %ROUTINE  UPPER (%STRING(255)%NAME S)
   %INTEGER L, C
   L = LENGTH(S)
   %WHILE L > 0 %CYCLE
      C = CHARNO (S, L)
      C = C - 'a' + 'A' %IF 'a' <= C <= 'z'
      CHARNO (S, L) = C
      L = L - 1
   %REPEAT
%END

%END %OF %FILE