How pass date parametet in procedure while executing

Question

I am written procerdure in which I have to pass parameter the datatype is date how can I am able to pass the date while executing
please help me

Answer 1

ya its from the cient application but I am checking that procedure is executing properly or not so I passing it through prompt.
I am executing in tha same format given by u, its displaying following error
BEGIN HANGER_FAILURE_PROCEDURE (to_date('01-jan-05','dd-mon-yy') ); END;
ERROR at line 1:
ORA-01001: invalid cursor
ORA-06512: at "SYSTEM.HANGER_FAILURE_PROCEDURE", line 62
ORA-06512: at line 1
===============================
And my procedure is
CREATE OR REPLACE PROCEDURE HANGER_FAILURE_PROCEDURE (startDate IN FRIT_HANGER.AGING_START_TIME%TYPE ) IS
shiftDescription SHIFT.DESCRIPTION%TYPE;
failure_number HANGER_FAILURE.FAILURE_NUMBER%TYPE;
failure HANGER_FAILURE.FAILURE_NUMBER%TYPE;
fritID LVT_TEST.FRIT_ID%TYPE ;
lvt_description LVT.DESCRIPTION%TYPE;
test_time LVT_TEST.TEST_TIME%TYPE ;
mikr LVT_TEST.MIKR%TYPE;
mikr_res LVT_TEST.MIKR_PASSED%TYPE;
mikg LVT_TEST.MIKG%TYPE;
mikg_res LVT_TEST.MIKG_PASSED%TYPE;
mikb LVT_TEST.MIKB%TYPE;
mikb_res LVT_TEST.MIKB_PASSED%TYPE;
coe2r LVT_TEST.COE2R%TYPE;
coe2r_res LVT_TEST.COE2R_PASSED%TYPE;
coe2g LVT_TEST.COE2G%TYPE;
coe2g_res LVT_TEST.COE2G_PASSED%TYPE;
coe2b LVT_TEST.COE2B%TYPE;
coe2b_res LVT_TEST.COE2B_PASSED%TYPE;
grparameter AGING_TEST.GR%TYPE;
ccr VTS_TEST.CCR%TYPE;
ccg VTS_TEST.CCG%TYPE;
ccb VTS_TEST.CCB%TYPE;
aging_hangerId AGING_HANGER.AGING_HANGER_ID%TYPE;
aging_start_time FRIT_HANGER.AGING_START_TIME%TYPE;
failure_type HANGER_FAILURE_TYPE.HANGER_FAILURE_TYPE_ID%TYPE;
CURSOR result_lvt(sdate FRIT_HANGER.AGING_START_TIME%TYPE) IS
SELECT
AGING_HANGER.AGING_HANGER_ID,
LVT.DESCRIPTION,
FRIT_HANGER.AGING_START_TIME,
LVT_TEST.FRIT_ID,
LVT_TEST.TEST_TIME,
LVT_TEST.MIKR,
LVT_TEST.MIKR_PASSED,
LVT_TEST.MIKG,
LVT_TEST.MIKG_PASSED,
LVT_TEST.MIKB,
LVT_TEST.MIKB_PASSED,
LVT_TEST.COE2R,
LVT_TEST.COE2R_PASSED,
LVT_TEST.COE2G,
LVT_TEST.COE2G_PASSED,
LVT_TEST.COE2B,
LVT_TEST.COE2B_PASSED
FROM LVT_TEST,LVT,FRIT_HANGER,AGING_HANGER
WHERE LVT_TEST.LVT_ID=LVT.LVT_ID
AND
FRIT_HANGER.AGING_HANGER_ID=AGING_HANGER.AGING_HANGER_ID
AND LVT_TEST.FRIT_ID=FRIT_HANGER.FRIT_ID
AND FRIT_HANGER.AGING_START_TIME>sdate
ORDER BY FRIT_HANGER.AGING_START_TIME;
BEGIN
IF result_lvt%ISOPEN THEN
OPEN result_lvt(startDate);
END IF;
LOOP
FETCH result_lvt
INTO aging_hangerId, lvt_description, aging_start_time, fritID, test_time, mikr, mikr_res, mikg, mikg_res, mikb, mikb_res, coe2r, coe2r_res, coe2g, coe2g_res, coe2b, coe2b_res;
exit when result_lvt%NOTFOUND;
SELECT GR INTO grparameter
FROM AGING_TEST
WHERE
TEST_TIME = (SELECT MAX(TEST_TIME) FROM AGING_TEST WHERE FRIT_ID = fritID);
SELECT CCR, CCG, CCB INTO ccr,ccg,ccb
FROM VTS_TEST
WHERE TEST_TIME = (SELECT MAX(TEST_TIME) FROM VTS_TEST WHERE FRIT_ID = fritID);
SELECT DESCRIPTION INTO shiftDescription
FROM SHIFT
WHERE START_TIME=TRUNC( aging_start_time);
IF( mikr_res=0 OR mikg_res = 0 OR mikb_res = 0 )
THEN
SELECT MAX(FAILURE_NUMBER) INTO failure
FROM HANGER_FAILURE
WHERE AGING_HANGER_ID=aging_hangerId
AND TO_DATE(AGING_START_TIME) = TO_DATE(aging_start_time)
AND
SHIFT_DESCRIPTION = shiftDescription;
failure_number:=failure+1;
SELECT HANGER_FAILURE_TYPE_ID INTO failure_type
FROM HANGER_FAILURE_TYPE
WHERE DESCRIPTION='MIK';
INSERT INTO HANGER_FAILURE (HANGER_FAILURE_ID, HANGER_FAILURE_TYPE_ID, AGING_HANGER_ID,
SHIFT_DESCRIPTION, AGING_START_TIME, FAILURE_NUMBER, LVT_DESCRIPTION,FRIT_ID,TEST_TIME, MIKR, MIKG, MIKB, COE2R, COE2G, COE2B, GR,CCR, CCG ,CCB ) VALUES(HANGER_FAILURE_ID_GENERATOR.NEXTVAL, failure_type, aging_hangerId, shiftDescription,aging_start_time,failure_number ,lvt_description, fritID,test_time, mikr,mikg,mikb,coe2r,coe2g,coe2b,grparameter,ccr,ccg,ccb);
ELSE
DBMS_OUTPUT.PUT_LINE('Doesn''t occur any MIK failure');
END IF;
IF (coe2r_res = 0 OR coe2g_res = 0 OR coe2b_res = 0)
THEN
SELECT MAX(FAILURE_NUMBER) INTO failure
FROM HANGER_FAILURE
WHERE AGING_HANGER_ID=aging_hangerId
AND TO_DATE(AGING_START_TIME) = TO_DATE(aging_start_time)
AND
SHIFT_DESCRIPTION = shiftDescription;
failure_number :=failure+1;
SELECT HANGER_FAILURE_TYPE_ID INTO failure_type
FROM HANGER_FAILURE_TYPE
WHERE DESCRIPTION='COE2';
INSERT INTO HANGER_FAILURE (HANGER_FAILURE_ID,HANGER_FAILURE_TYPE_ID,AGING_HANGER_ID,
SHIFT_DESCRIPTION,AGING_START_TIME ,FAILURE_NUMBER, LVT_DESCRIPTION,FRIT_ID,TEST_TIME,MIKR,MIKG,MIKB,COE2R,COE2G,
COE2B,GR ,CCR,CCG ,CCB ) VALUES(HANGER_FAILURE_ID_GENERATOR.NEXTVAL, failure_type, aging_hangerId, shiftDescription,aging_start_time,failure_number ,lvt_description, fritID,test_time, mikr,mikg,mikb,coe2r,coe2g,coe2b,grparameter,ccr,ccg,ccb);
ELSE
DBMS_OUTPUT.PUT_LINE('Doesn''t occur any COE2 failure');
END IF;
END LOOP;
CLOSE result_lvt;
END;
plz help me