$DEBUG PAGELENGTH(55)

/***************/
/*  U P P E R  */
/***************/

M$UPPER: DO;

UPPER: PROCEDURE(CHAR) BYTE PUBLIC;
   DECLARE CHAR BYTE;

   IF (CHAR >= 'a') AND (CHAR <= 'z')
      THEN RETURN (CHAR-('a'-'A'));
      ELSE RETURN CHAR;

END UPPER;

END M$UPPER;