when others then
         rollback;
         p_status     := 'ERROR'; -- MODIFIED
         p_status_dtl := sqlcode||' - '||substr(sqlerrm,1,100);
end;

exception
     when others then
                      p_status     := 'ERROR'; -- MODIFIED
                      p_status_dtl := sqlcode||' - '||substr(sqlerrm,1,100);
             rollback;
end;

declare
  v_foo varchar2(2) := 'AB';
  v_bar number;
begin
  -- raises ORA-01476: divisor is equal to zero
  v_bar := 1/0;
exception
  when others then
    dbms_output.put_line('checkpoint 1');
    -- raises ORA-06502: PL/SQL: numeric or value error: character string buffer too small
    v_foo := 'TOO LONG';
    dbms_output.put_line('checkpoint 2');
end;
/