Corrected PL/SQL Procedures, Functions and Triggers
1. Procedure listarDepto
create or replace procedure listarDepto(p_codde depto.codde%TYPE, p_codcat catego.codcat%TYPE) IS
CURSOR c_depto IS
select nomde from depto where codde=p_codde;
v_depto c_depto%ROWTYPE;
CURSOR c_catego IS
select nomcat from catego where codcat=p_codcat;
v_catego c_catego%ROWTYPE;
CURSOR c_emple IS
select nomem from emple where codcat=p_codcat AND codde=p_codde;
v_nomem emple.nomem%TYPE;
v_cuantos number;
BEGIN
OPEN c_depto;
FETCH c_depto INTO v_depto;
IF c_depto%NOTFOUND THEN
DBMS_OUTPUT.PUT_LINE('NO EXISTE EL CODIGO DE DEPARTAMENTO');
ELSE
DBMS_OUTPUT.PUT_LINE('DEPARTAMENTO ' || v_depto.nomde);
OPEN c_catego;
FETCH c_catego INTO v_catego;
IF c_catego%NOTFOUND THEN
DBMS_OUTPUT.PUT_LINE('
...
