pears.PadStr

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
}