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;
/