특정 부서 번호를 입력받아 삭제

 

주어진 부서 ID를 사용자로부터 입력 받아서 해당 부서를 삭제하고, 삭제된 부서에 속한 사원이 있을 경우에 대한 무결성 제약 조건 위반 예외를 처리

DECLARE
    EXPT_EXISTS EXCEPTION;
    PRAGMA EXCEPTION_INIT(EXPT_EXISTS, -02292);
    --ORA-02292 무결성 제약 조건 위반 발생시 블록 종료+ 메시지
    
    V_DEPTID DEPARTMENTS_TEST.DEPARTMENT_ID%TYPE := &DEPTID;
    
BEGIN
    DBMS_OUTPUT.PUT_LINE(V_DEPTID || ' 부서 삭제중');
    DELETE DEPARTMENTS_TEST
    WHERE DEPARTMENT_ID =V_DEPTID;
    DBMS_OUTPUT.PUT_LINE(V_DEPTID || '부서삭제 완료');
EXCEPTION
    WHEN EXPT_EXISTS THEN
        DBMS_OUTPUT.PUT_LINE(V_DEPTID || '부서 삭제 안된 소속 상원 있음');
    WHEN OTHERS THEN
        DBMS_OUTPUT.PUT_LINE('OTHER ERRORS');
    
END;