18.38  T2UPCS 

     CALL T2UPCS(str)

Converts a character string to upper case.