-- El bloque mas simple
BEGIN
-- Todo lo que se programa
-- Sección de ejecución
DBMS_OUTPUT.PUT_LINE('X');
DBMS_OUTPUT.PUT_LINE('com');
END;
-- declare
DECLARE
-- SECCIÓN DECLARATIVA
HOLA VARCHAR(20);
BEGIN
HOLA := 'HOLIII';
DBMS_OUTPUT.PUT_LINE(HOLA);
END;
-- EXCEPTION
DECLARE
NUMERO NUMBER(4);
BEGIN
NUMERO := 1/0;
DBMS_OUTPUT.PUT_LINE(NUMERO);
EXCEPTION
WHEN OTHERS THEN
-- SECCIÓN DE CAPTURA DE ERRORES
DBMS_OUTPUT.PUT_LINE('ERROR LANZADO');
END;
-- BLOQUE ANIDADO
DECLARE
NUMERO NUMBER(4);
BEGIN
NUMERO := 100;
DBMS_OUTPUT.PUT_LINE(NUMERO);
BEGIN
DBMS_OUTPUT.PUT_LINE(NUMERO);
END;
EXCEPTION
WHEN OTHERS THEN
-- SECCIÓN DE CAPTURA DE ERRORES
DBMS_OUTPUT.PUT_LINE('ERROR LANZADO');
END;
-- ALCANCE DE LAS VARIABLES
DECLARE
NUMERO NUMBER(4);
BEGIN
NUMERO := 100;
DBMS_OUTPUT.PUT_LINE(NUMERO);
DECLARE
NUMERO2 NUMBER(4);
BEGIN
NUMERO2 := 200;
DBMS_OUTPUT.PUT_LINE(NUMERO);
END;
-- ERROR DE NO ALCANCE, HAY QUE DECLARARLA
DBMS_OUTPUT.PUT_LINE(NUMERO2);
EXCEPTION
WHEN OTHERS THEN
-- SECCIÓN DE CAPTURA DE ERRORES
DBMS_OUTPUT.PUT_LINE('ERROR LANZADO');
END;
|
