pears.safedate

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."safedate" IS 
{CREATE FUNCTION safedate 
(IN dd CHAR(30))
RETURNS CHAR(30)
BEGIN
  DECLARE i SMALLINT;
  DECLARE t,d,m CHAR(20);
  IF dd IS NULL THEN
    RETURN NULL
  END IF;
  SET dd=REPLACE(dd,'T',' ');
  IF TRIM(dd)='' THEN
    RETURN NULL 
  END IF;
  IF charindex('/',dd)=0 THEN
    RETURN dd
  END IF;
  SET i=charindex(' ',dd);
  IF i>0 THEN 
    SET t=stuff(dd,1,i-1,'');
    SET dd=LEFT(dd,i-1)
  ELSE
    SET t=''
  END IF;
  SET i=charindex('/',dd);
  SET d=LEFT(dd,i-1);
  SET dd=stuff(dd,1,i,'');
  SET i=charindex('/',dd);
  SET m=LEFT(dd,i-1);
  SET dd=stuff(dd,1,i,'');
  RETURN(string(dd,'-',m,'-',d,t));
END
}