将 plsql 异常错误写入DMBS_OUTPUT并FND_FILE作业日志

Question

我有一个MERGE/UPDATE语句。 我想添加异常处理，以便在更新因任何原因失败时写入DBMS_output和作业日志。 我想出了一些东西 - 它可以编译，但似乎不起作用。

我删除了 MAX(date( 和分组依据，以便程序符合要求，但查询本身因"无法获得一组稳定的行"而失败 - 但没有触发异常。

感谢任何建议。

MERGE INTO xxcb_RTL_inbnd_shipments_iface A
USING (select DISTINCT aa.shipment_line_id,aa.transaction_type,aa.last_update_date --max(aa.last_update_date) 
       from rcv_transactions aa
           right join xxcb_RTL_inbnd_shipments_iface bb on aa.shipment_line_id=bb.shipment_line_id
       where aa.transaction_type='DELIVER' 
           AND bb.interface_status='RELEASED'
       --group by aa.shipment_line_id,aa.transaction_type
) B ON (a.shipment_line_id=b.shipment_line_id)
when matched then update set a.interface_status='CLOSED'
                            ,a.interface_last_update=sysdate
                            ,a.interface_update_by='ORACLE'
where a.interface_status='RELEASED';
exception when others then FND_FILE.PUT_LINE(FND_FILE.LOG,DBMS_UTILITY.FORMAT_ERROR_STACK);           
                           FND_FILE.PUT_LINE(FND_FILE.LOG,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
                           DBMS_OUTPUT.PUT(DBMS_UTILITY.FORMAT_ERROR_STACK);
                           DBMS_OUTPUT.PUT(DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);

Answer 1

在将DBMS_OUTPUT命令移动到FND_FILE命令上方后，我让它工作了。 最初我没有通过并发进行测试。我认为在DBMS_OUTPUT之前运行的FND_FILE命令导致异常无法运行DBMS_OUTPUT

删除聚合允许程序仍可编译，但也会产生运行时错误。

FND_FILE命令只能通过并发工作。

顺便说一下，对于那些不知道的人，FORMAT_ERROR_STACK给出类似 ORA-30926 的东西：无法在源表中获得一组稳定的行，FORMAT_ERROR_BACKTRACE给出 ORA-06512：在"ORA-06512：在"APPS.procedureName"，第 21 行

MERGE INTO xxcb_RTL_inbnd_shipments_iface A
USING (select DISTINCT aa.shipment_line_id,aa.transaction_type,aa.last_update_date--max(aa.last_update_date) 
       from rcv_transactions aa  --may need to examine PO or ISO/Req instead?
           right join xxcb_RTL_inbnd_shipments_iface bb on aa.shipment_line_id=bb.shipment_line_id
       where --aa.transaction_type='DELIVER' 
           bb.interface_status='RELEASED'
       --group by aa.shipment_line_id,aa.transaction_type
       ) B ON (a.shipment_line_id=b.shipment_line_id)
when matched then update set a.interface_status='CLOSED'
                            ,a.interface_last_update=sysdate
                            ,a.interface_update_by='ORACLE'
where a.interface_status='RELEASED';
exception when others 
    then dbms_output.put_line('Error!');
        DBMS_OUTPUT.PUT_line(DBMS_UTILITY.FORMAT_ERROR_STACK);
        DBMS_OUTPUT.PUT_line(DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);  
        FND_FILE.PUT_LINE(FND_FILE.LOG,'Error!');
        FND_FILE.PUT_LINE(FND_FILE.LOG,DBMS_UTILITY.FORMAT_ERROR_STACK);           
        FND_FILE.PUT_LINE(FND_FILE.LOG,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);