V_P_REQ_LINES_TBL,
V_RESULT_FLAG,
V_ERROR_DESCRIPTION);
EXCEPTION
WHEN OTHERS THEN
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;
--add by yinlei next the second fetch data
IS_EXCEPTION_CODE := -1;
GOTO TO_NEXT;
END;