I just need a way to return the value of curNum to VB. Please help.
I can set the values using Toad but can't find a way to retrieve them.


CREATE OR REPLACE PACKAGE PACK_DURATION
as

curNum INTEGER;
total INTEGER;

FUNCTION getCurNum RETURN INTEGER;
pragma restrict_references(getCurNum, RNPS, WNPS, WNDS,TRUST);
PRAGMA RESTRICT_REFERENCES(getCurrNum,WNDs,RNDs,WNPs,RNPs );


FUNCTION getTotal RETURN INTEGER;
pragma restrict_references(getTotal, RNPS, WNPS, WNDS,TRUST);

PROCEDURE setCurNum(total2 IN INTEGER ,curNum2 in INTEGER);



END PACK_DURATION;
/


CREATE OR REPLACE PACKAGE BODY PACK_DURATION

as

FUNCTION getCurNum RETURN INTEGER
IS

BEGIN
RETURN curNum;

END;
FUNCTION getTotal RETURN INTEGER
IS
BEGIN
RETURN total;
END;

/*PROCEDURE setCurNum(total IN INTEGER ,curNum in INTEGER);*/

PROCEDURE setCurNum(total2 IN INTEGER ,curNum2 in INTEGER)
IS

BEGIN
DBMS_OUTPUT.PUT_LINE('Package Entered ');
total := total2;
curNum:=curNum2;
END;

END PACK_DURATION;
/