pears.weekmonthstartdate

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."weekmonthstartdate" IS 
{CREATE FUNCTION weekmonthstartdate 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN perd INTEGER,IN worm CHAR(1))
RETURNS DATE
BEGIN
  DECLARE rv DATE;
  DECLARE w INTEGER;
  DECLARE y INTEGER;
  SET y=truncnum(perd,-2);
  SET w=perd-y;
  SET y=y/100;
  IF worm = 'W' THEN
    RETURN weekenddate(y,w)-6
  END IF;
  SET rv=dateadd(MONTH,(SELECT monthoneoffset FROM params),ymd(y,w,1));
  RETURN(rv)
END
}