declare 
-- 
ret boolean; 
-- 
procedure show_me_prc  
(i_msg  varchar2) is 
-- 
-- 
begin 
    dbms_output.put_line('by_procedure:'||i_msg); 
exception 
    when others then 
        dbms_output.put_line('SHOW_ME:'||sqlerrm);  
end SHOW_ME_prc; 
 
function show_me_fnt  
(i_msg  varchar2) return boolean is 
-- 
-- 
begin 
    dbms_output.put_line('by_function:'||i_msg); 
    return(true); 
exception 
    when others then 
        dbms_output.put_line('SHOW_ME:'||sqlerrm);  
        return(false); 
end SHOW_ME_fnt; 
--=================================================== 
-- MAIN 
--=================================================== 
begin 
    for a in 1 .. 10 
    loop 
        show_me_prc(a); 
        ret := show_me_fnt(a); 
    end loop; 
exception 
    when others then 
        dbms_output.put_line('MAIN:'||sqlerrm); 
end;