UPPER:  PROCEDURE (OLD_STRING) RETURNS (CHAR (*) VARYING);

   /*** "UPPER" FUNCTION FOR TRANSLATING STRING TO ALL UPPERCASE -
        MIKE RHOADS - FEB. 22, 1982 ***/

   DCL OLD_STRING CHAR (*) VARYING;
   DCL P PTR,
      NEW_STRING CHAR (LENGTH(OLD_STRING)) VARYING BASED(P);

   ALLOCATE NEW_STRING;

   NEW_STRING = TRANSLATE (OLD_STRING,
      'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
      'abcdefghijklmnopqrstuvwxyz');

   RETURN (NEW_STRING);

 END UPPER;