pears.Base34

CREATE FUNCTION "pears"."Base34"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  IN "seed" INTEGER,IN "digits" SMALLINT ) 
RETURNS CHAR(20)
BEGIN
  DECLARE "rv" CHAR(20);
  DECLARE "m" INTEGER;
  DECLARE "sdigits" CHAR(34);
  -- Where the code must be handled by humans, letters O and I can be confused with zero and one so these are left out by base34
  SET "sdigits" = '0123456789ABCDEFGHJKLMNPQRSTUVWXYZ';
  SET "rv" = '';
  IF(("digits" > 20) OR("digits" < 1)) THEN
    SET "digits" = 20
  END IF;
  while "seed" > 0 loop
    SET "m" = "mod"("seed",34);
    SET "rv" = "substr"("sdigits","m"+1,1) || "rv";
    SET "seed" = "seed"/34
  END loop;
  while "length"("rv") < "digits" loop
    SET "rv" = '0' || "rv"
  END loop;
  RETURN("rv")
END