• 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.

  • 相关阅读:
    天猫弹性导航栏
    php 中构造函数和析构函数
    web服务器集群(多台web服务器)后session如何同步和共享
    mycat中schema.xml的一些解释
    mycat高可用集群搭建
    mycat水平分表
    mycat实现mysql数据库的垂直切分
    高并发、大流量解决方案
    nginx负载均衡六种策略
    mysql主从复制实现
  • 原文地址:https://www.cnblogs.com/JackeyLove/p/13925334.html
Copyright © 2020-2023  润新知