function UpCase takes string text returns string
 local string OutPut
 local string s
 local integer len = StringLength(text)
 local integer i = 0
 loop
  exitwhen i >= len
  set s = SubString(text, i, i + 1)
  if s == "a" then
   set s = "A"
  endif
   .....
  set OutPut = OutPut + s
  set i = i + 1
 endloop
 set s = null
 set len = 0
 set i = 0
 return OutPut
endfunction