====== pears.PadStr ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."PadStr" IS 
{create function PadStr 

/* Application Maintained Function / Procedure - DO NOT EDIT*/

(in TheStr char(50),in TargetLength tinyint,in PadChar char(1))
returns char(50)
begin
  declare rv char(50);
  set rv="left"(isnull(thestr,''),targetlength);
  if isnull(PadChar,'') = '' then
    set PadChar=' '
  end if;
  while length(rv) < targetlength loop
    set rv=rv+padchar
  end loop;
  return rv
end
}
</code>