====== pears.HexCriterionID ======
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
===== Original SQL =====
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."HexCriterionID" IS
{create function HexCriterionID
/* Application Maintained Function / Procedure - DO NOT EDIT*/
(in CriterionID binary(20))
returns char(40)
begin
declare rv char(40);
declare i smallint;
set rv='';
set i=1;
while i <= byte_length(criterionid) loop
set rv=rv+"right"(inttohex(ascii(byte_substr(criterionid,i,1))),2);
set i=i+1
end loop;
return rv
end
}