Procedimientos almacenados en oracle

PROCEDIMIENTO DE GRABAR UN REGISTRO

CREATE OR REPLACE PROCEDURE SP_PAISES_GRABAR(P_CODPAIS IN VARCHAR2, P_NOMBRE IN VARCHAR2) IS

BEGIN

BEGIN

INSERT INTO TBL_PAISES (FLD_CODPAIS,FLD_NOMBRE) VALUES (P_CODPAIS,P_NOMBRE);

DBMS_OUTPUT.PUT_LINE ('registros almacenamiento con  exito');

EXCEPTION

WHEN DUP_VAL_ON_INDEX THEN

DBMS_OUTPUT.PUT_LINE('EL RESGISTRO YA EXISTE');

WHEN VALUES_ERROR THEN

DBMS_OUTPUT.PUT_LINE('HAY UN ERROR NO GUARDARA LA INFORMACION');

WHEN OTHERS THEN

DBMS_OUTPUT.PUT_LINE('HAY UN ERROR DESCONOCIDO EN LA INFORMACION');

 END;

END;

/

PROCEDIMIENTO DE MODIFICAR UN REGISTRO

CREATE OR REPLACE PROCEDURE SP_PAISES_GRABAR(P_CODPAIS IN VARCHAR2, P_NOMBRE IN VARCHAR2) IS

BEGIN

BEGIN

UPDATE TBL_PAISES SET

FLD_NOMBRE=P_NOMBRE

WHERE FLD_CODPAIS=P_CODPAIS;

DBMS_OUTPUT.PUT_LINE ('REGISTRO MODIFICADO CON  EXITO');

EXCEPTION

WHEN DUP_VAL_ON_INDEX THEN

DBMS_OUTPUT.PUT_LINE('EL RESGISTRO YA EXISTE');

WHEN VALUES_ERROR THEN

DBMS_OUTPUT.PUT_LINE('HAY UN ERROR NO GUARDARA LA INFORMACION');

WHEN OTHERS THEN

DBMS_OUTPUT.PUT_LINE('HAY UN ERROR DESCONOCIDO EN LA INFORMACION');

END;

END;

/

PROCEDIMIENTO DE ELIMINAR UN REGISTRO

CREATE OR REPLACE PROCEDURE SP_PAISES_GRABAR(P_CODPAIS IN VARCHAR2) IS

BEGIN

BEGIN

DELETE FROM TBL_PAISES WHERE FLD_CODPAIS=P_CODPAIS;

DBMS_OUTPUT.PUT_LINE ('REGISTRO ELIMINADO CON  EXITO');

EXCEPTION

WHEN DUP_VAL_ON_INDEX THEN

DBMS_OUTPUT.PUT_LINE('EL RESGISTRO YA EXISTE');

WHEN VALUES_ERROR THEN

DBMS_OUTPUT.PUT_LINE('HAY UN ERROR EN LA INFORMACION');

WHEN OTHERS THEN

DBMS_OUTPUT.PUT_LINE('HAY UN ERROR DESCONOCIDO EN LA INFORMACION');

 END;

END;

/