Can't see the issue in code...please help

Question

I have this procedure within a package. Trying to compile and can't...get errors and I can't see why...any help???
PROCEDURE KILL_ORPH_2PHASE_COMMITS (inLocal_tran_id IN varchar2) is
  tsql            VARCHAR2(256);
  v_local_tran_id varchar2(22 byte);
BEGIN
IF inLocal_tran_id is not null then
    tsql := 'ROLLBACK FORCE ''' || inLocal_tran_id || '''';
    dbms_output.put_line(tsql);
    EXECUTE IMMEDIATE tsql;
    RETURN;
END IF;
    --open cursor
    open cur_2pc;
    loop
      --fetch cursor data
      fetch cur_2pc
        into v_local_tran_id;
      exit when cur_2pc%NOTFOUND;
      tsql := 'ROLLBACK FORCE ''' || v_local_tran_id || '''';
      dbms_output.put_line(tsql);
      EXECUTE IMMEDIATE tsql;
EXCEPTION
  WHEN OTHERS
    THEN
      dbms_transaction.purge_lost_db_entry('''' || v_local_tran_id || '''');
END;
END LOOP;
CLOSE cur_2pc;
END KILL_ORPH_2PHASE_COMMITS;Error is:
Compilation errors for PACKAGE BODY ADMIN.ADMIN_DBA_MAIN
Error: PLS-00103: Encountered the symbol "EXCEPTION" when expecting one of the following:
( begin case declare end exit for goto if loop mod null
pragma raise return select update while with <an identifier>
<a double-quoted delimited-identifier> <a bind variable> <<
continue close current delete fetch lock insert open rollback
savepoint set sql execute commit forall merge pipe purge
Line: 40
Text: EXCEPTION
Error: PLS-00103: Encountered the symbol "LOOP" when expecting one of the following:
Line: 45
Text: END LOOP;

Answer 1

The BEGIN and END are not matching..??
From your code, it looks like...you want each statement in your loop to have it's own begin..exception..end..
BEGIN
IF inLocal_tran_id is not null then
    tsql := 'ROLLBACK FORCE ''' || inLocal_tran_id || '''';
    dbms_output.put_line(tsql);
    EXECUTE IMMEDIATE tsql;
    RETURN;
END IF;
    --open cursor
    open cur_2pc;
    loop
   BEGIN----------<<<<<<<<Begin for each iteration to have it's own loop...
   ------------>>>(this is for each statement in the loop...)
     --fetch cursor data
      fetch cur_2pc
        into v_local_tran_id;
      exit when cur_2pc%NOTFOUND;
      tsql := 'ROLLBACK FORCE ''' || v_local_tran_id || '''';
      dbms_output.put_line(tsql);
      EXECUTE IMMEDIATE tsql;
EXCEPTION
  WHEN OTHERS
    THEN
      dbms_transaction.purge_lost_db_entry('''' || v_local_tran_id || '''');
END;
END LOOP;
END KILL_ORPH_2PHASE_COMMITS; ----<<<Another End for the procedure....>>>