存储过程8

 END IF;
        COMMIT;
      END IF;
      <<TO_NEXT>>
      null;
      --begin yinlei
      BEGIN
        IF IS_EXCEPTION_CODE <> 0 THEN
          select to_char(sysdate,'yymmddhhmi')||lpad(to_char(SEQ_ERP_LOG.nextval),14,'0') INTO C_SEQ from dual;

        INSERT INTO INT_ERP_LOG(LOGID,INTERFACENAME,INTIME,REFERENCE_NUM,STATUS,ERR_MESSAGE)VALUES (C_SEQ, 'INT_ERP_PO_CREATE', SYSDATE, v_REFERENCE_NUM, '-1', v_ERROR_DESCRIPTION);
          --insert into main table