====== pears.Base36 ====== Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace. ===== Original SQL ===== create function "pears"."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