Hey guys, I have a problem with error management I want to get a message ERRORTEST using EXCEPTION and OUT parameter in procedure, here's the code
declare
L_TYPE NUMBER;
L_CODE NUMBER;
L_DATE DATE;
L_ERROR VARCHAR2(200 BYTE) ;
PROCEDURE LINST(
L_TYPE IN NUMBER,
L_CODE IN NUMBER,
L_DATE IN DATE,
L_ERROR OUT VARCHAR2)
IS
BEGIN
INSERT INTO G_TBL ("LIN_TYPE", "LIN_CODE", "LIN_DATE")
VALUES (L_TYPE, L_CODE, L_DATE) ;
COMMIT;
EXCEPTION
WHEN OTHERS THEN
L_ERROR := 'ERRORTEST' ;
return L_ERRROR;
END;
BEGIN
LINST(1,12, sysdate) ;
END;