1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| CREATE OR REPLACE PROCEDURE TESTDATE(
in_expdat IN DATE DEFAULT NULL
,out_returnvalue OUT DATE
,out_nls_date_format OUT VARCHAR2
,out_sqlstate OUT NOCOPY VARCHAR2
,out_liberror OUT NOCOPY VARCHAR2
,out_cod_ret OUT NOCOPY INTEGER
)
AS
user_exception EXCEPTION;
BEGIN
SELECT value into out_nls_date_format from nls_session_parameters where parameter = 'NLS_DATE_FORMAT';
SELECT CURRENT_DATE INTO out_returnvalue FROM dual;
EXCEPTION
WHEN OTHERS THEN
out_sqlstate := TO_CHAR(SQLCODE);
out_liberror := out_liberror || ' : SQLSTATE ' || SUBSTR(SQLERRM,1,200);
out_cod_ret := -1;
END TESTDATE; |
Partager