• SAP LUW 实现提交数据库更新


      CALL FUNCTION 'TRANSACTION_BEGIN'
        IMPORTING
          transaction_id = lv_transaction_id.
    * 更新日志表
      MODIFY zfit0012_log FROM TABLE lt_zfit0012_log.
      MODIFY zfit0012 FROM TABLE lt_zfit0012.
      IF sy-subrc EQ 0.
        COMMIT WORK AND WAIT.
    *    APPEND INITIAL LINE TO is_output-mt_fi012_erp_rsp-line_of_ret_msg ASSIGNING <lfs_msg>.
    *    <lfs_msg>-msgty = 'S'.
    *    <lfs_msg>-message = '传输成功!'.
      ELSE.
        ROLLBACK WORK.
    *    APPEND INITIAL LINE TO is_output-mt_fi012_erp_rsp-line_of_ret_msg ASSIGNING <lfs_msg>.
    *    <lfs_msg>-msgty = 'E'.
    *    <lfs_msg>-message = '传输失败!'.
      ENDIF.
    * 结束更新事务
      CALL FUNCTION 'TRANSACTION_END'
        EXPORTING
          transaction_id = lv_transaction_id.

      CALL FUNCTION 'TRANSACTION_BEGIN'
        IMPORTING
          transaction_id lv_transaction_id.
    * 更新日志表
      MODIFY zfit0012_log FROM TABLE lt_zfit0012_log.
      MODIFY zfit0012 FROM TABLE lt_zfit0012.
      IF sy-subrc EQ 0.
        COMMIT WORK AND WAIT.
    *    APPEND INITIAL LINE TO is_output-mt_fi012_erp_rsp-line_of_ret_msg ASSIGNING <lfs_msg>.
    *    <lfs_msg>-msgty = 'S'.
    *    <lfs_msg>-message = '传输成功!'.
      ELSE.
        ROLLBACK WORK.
    *    APPEND INITIAL LINE TO is_output-mt_fi012_erp_rsp-line_of_ret_msg ASSIGNING <lfs_msg>.
    *    <lfs_msg>-msgty = 'E'.
    *    <lfs_msg>-message = '传输失败!'.
      ENDIF.
    * 结束更新事务
      CALL FUNCTION 'TRANSACTION_END'
        EXPORTING
          transaction_id lv_transaction_id.

  • 相关阅读:
    css
    常见属性
    表单
    html的块
    常见标签(一)
    html5 文本内容
    整数的分解
    快速排序及其应用
    javascript之动画特效
    html标签积累
  • 原文地址:https://www.cnblogs.com/JackeyLove/p/13925334.html
Copyright © 2020-2023  润新知