存储过程10

 --exception
EXCEPTION
  WHEN OTHERS THEN
    ROLLBACK;
    EXCEPTION_MSG := SQLCODE || ':' || SQLERRM;
    UPDATE INT_ERP_PO_INFO
       SET ADD_DATA1   = V_PROC_STATUS,
           PROC_STATUS = -3,
           PROC_DATE   = SYSDATE,
           PROC_REMARK = SUBSTR(EXCEPTION_MSG, 1, 512)
     WHERE REFERENCE_NUM = V_REFERENCE_NUM;

    COMMIT;
END INT_ERP_PO_CREATE;