[ Pobierz całość w formacie PDF ]
.Cannot change info for the same.');END IF;END;ELSIF (p_flag_in ='D')THENBEGINDELETE org_tabWHERE hrc_code =p_hrc_codeAND org_id =p_org_id;IF SQL%NOTFOUND THENRAISE_APPLICATION_ERROR(-20003,'Organization '||TO_CHAR(p_org_id)|| ' does not exist.Cannot delete info for the same.');END IF;EXCEPTION WHEN OTHERS THENv_error_code :=SQLCODE;IF v_error_code =-2292 THENRAISE_APPLICATION_ERROR(-20004,'Organization '|| TO_CHAR(p_org_id)||' site details defined for it.Cannot perform delete operation.');END IF;END;END IF;END;/-- Propogating a Server-side Customized Error Number and Error Message to-- client program using a WHEN OTHERS handlerDECLAREv_hrc_code NUMBER := 6;v_org_id NUMBER := 1011;v_org_short_name VARCHAR2(30):= 'Office of Mgr.ABC Inc.';v_org_long_name VARCHAR2(60):= 'Office of Mgr.ABC Inc.';BEGINorg_proc('I',v_hrc_code,v_org_id,v_org_short_name,v_org_long_name);EXCEPTION WHEN OTHERS THENDBMS_OUTPUT.PUT_LINE(TO_CHAR(SQLCODE)||' '||SQLERRM);END;/-- Propogating a Server-side Customized Error Number and Error Message to-- client program using PRAGMA EXCEPTION_INITDECLAREv_hrc_code NUMBER := 6;v_org_id NUMBER := 1010;v_org_short_name VARCHAR2(30):= 'Office of Mgr.ABC Inc.';v_org_long_name VARCHAR2(60):= 'Office of Mgr.ABC Inc.';excep1 EXCEPTION;PRAGMA EXCEPTION_INIT(excep1,-20000);excep2 EXCEPTION;PRAGMA EXCEPTION_INIT(excep2,-20001);BEGINorg_proc('I',v_hrc_code,v_org_id,v_org_short_name,v_org_long_name);EXCEPTIONWHEN excep1 or excep2 THENDBMS_OUTPUT.PUT_LINE(SQLERRM);WHEN OTHERS THENDBMS_OUTPUT.PUT_LINE(TO_CHAR(SQLCODE)||SQLERRM);END;/5 [ Pobierz całość w formacie PDF ]