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

   /*** "LOWER" FUNCTION FOR TRANSLATING STRING TO ALL LOWERCASE -
        CONVERTED BY STAN MEAD 04/13/82  
        ORIGINAL IDEA BY 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 LOWER;