Display Error Transaction Details

MESSAGE_COUNT, ERROR_NUMBER,
 ERROR_MESSAGE FROM DBA_APPLY_ERROR
ORDER BY SOURCE_DATABASE, SOURCE_COMMIT_SCN;
--
i       NUMBER;
txnid   VARCHAR2(30);
source  VARCHAR2(128);
msgno   NUMBER;
msgcnt  NUMBER;
errnum  NUMBER := 0;
errno   NUMBER;
errmsg  VARCHAR2(255);
lcr     SYS.AnyData;
R       NUMBER;

BEGIN
FOR R IN C LOOP
 errnum         := errnum + 1;
 msgcnt         := r.MESSAGE_COUNT;
 txnid          := r.LOCAL_TRANSACTION_ID;
 source         := r.SOURCE_DATABASE;
 msgno          := r.MESSAGE_NUMBER;
 errno          := r.ERROR_NUMBER;
 errmsg         := r.ERROR_MESSAGE;
 DBMS_OUTPUT.PUT_LINE('*****************************************');
 DBMS_OUTPUT.PUT_LINE('-- ERROR #' || errnum);
 DBMS_OUTPUT.PUT_LINE('-- Local Trans ID: ' || txnid);