[FUNCTION]SET_ZERODATE

CREATE OR REPLACE FUNCTION SAPHEE.SET_ZERODATE (IN_DATE VARCHAR2, GB  VARCHAR2)

RETURN  VARCHAR2 IS  RT VARCHAR2(8);

BEGIN

 RT := IN_DATE;
  IF GB = 'D' AND IN_DATE = '0' THEN RT := '00000000';
  END IF;

  IF GB = 'T' AND IN_DATE='0'  THEN RT := '000000';
  END IF;

  RETURN RT;

END;
/