Procedure teste (p_ano_ini number, p_ano_fim number) is
v_ano number;
begin
Loop
if v_ano is null then
v_ano := p_ano_ini;
elsif v_ano < p_ano_fim then
v_ano := v_ano+1;
elsif v_ano > p_ano_fim then
exit;
end if;
dbms_output.put_line('ano: '||v_ano||' xxxxxxxxxxxx');
end loop;
end;
DECLARE
vanoini NUMBER := 2004;
vanofim NUMBER := 2008;
BEGIN
IF vanofim > vanoini
THEN
FOR x IN vanoini..vanofim
LOOP
dbms_output.put_line('Vano: '||x);
END LOOP;
END IF;
END;