DECLARE
V_SYSTIME VARCHAR2(8);
PROCEDURE KB_RUNNING(I_DATE DATE) IS
BEGIN
V_SYSTIME :=TO_CHAR(I_DATE -1，'YYYYMMDD');
DBMS_OUTPUT.PUTLINE(V_SYSTIME );
IF SUBSTR(V_SYSTIME,5,4)='0101' THEN
DBMS_OUTPUT.PUT_LINE('AA');
ELSIF SUBSTR(V_SYSTIME,7,2)='01' AND
SUBSTR(V_SYSTIME,5,2)<>'01' THEN
DBMS_OUTPUT.PUT_LINE('BB');
ELSE
DBMS_OUTPUT.PUT_LINE('CC');
END IF;
END KB_RUNNING;
END;