pears.Base36

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."Base36" IS 
{CREATE FUNCTION Base36 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN seed INTEGER,IN digits SMALLINT)
RETURNS CHAR(20)
BEGIN
  DECLARE rv CHAR(20);
  DECLARE m INTEGER;
  SET rv='';
  IF((digits > 20) OR(digits < 1)) THEN
    SET digits=20
  END IF;
  while seed > 0 loop
    SET m=MOD(seed,36);
    IF m < 10 THEN
      SET rv="char"(m+48) || rv
    ELSE
      SET rv="char"(m+55) || rv
    END IF;
    SET seed=seed/36
  END loop;
  while LENGTH(rv) < digits loop
    SET rv='0' || rv
  END loop;
  RETURN(rv)
END
}