CREATE OR REPLACE Procedure Select_Dept ( A_DEPTNO IN DEPT.DEPTNO, A_DNAME OUT DEPT.DNAME, A_LOC OUT DEPT.LOC ) AS Begin SELECT DEPTNO , DNAME , LOC INTO A_DEPTNO , A_DNAME , A_LOC FROM DEPT WHERE DEPTNO = A_DEPTNO ; EXCEPTION WHEN OTHERS THEN RAISE_APPLICATION_ERROR (-20001,A_DEPTNO || ':$:' || SQLERRM, TRUE) ; End Select_Dept ; /
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)