关于Oracle数据库存储过程的问题

create or replace procedure proc_a
as
begin
    for c1 in 1 .. 200 loop
        insert into table_A select trunc(dbms_random.value(0,1000)) from dual;
    end loop;
    commit;
    exception
        when others then
        rollback;
end;

create or replace procedure proc_calla
as
begin
    proc_a;
    for c1 in (select * from table_A) loop
        dbms_output.put_line(c1.字段名);
    end loop;
    exception
        when others then
         dbms_output.put_line('出错啦！');
end;
create or replace procedure proc_callerror
as
app_exp exception;
begin
    if 1>2 then
        rsise app_exp;
    end if;
    exception
        when app_exp then
        rollback;
end;