Skip to Content

Archived discussions are read-only. Learn more about SAP Q&A

Avoid COMMIT WORK in Function Module 'RSDRD_SEL_DELETION'

Hi guys,

i have the follwing problem:

I do a selective deletion on a Standard- DSO by using the function module  'RSDRD_SEL_DELETION'.

But, i want to be able to do a ROLLBACK WORK after a successfull run of this function module.

But the Problem is, in case of succefull deletion, the function module set a COMMIT WORK by FM 'RSDU_DB_COMMIT.

The COMMIT is set only for condition 'executes a database commit exept if the program runs in update task'

FUNCTION rsdu_db_commit .
*"----------------------------------------------------------------------
*" executes a database commit exept if the program runs in update task
*"----------------------------------------------------------------------

   DATA:
     l_flg_update_task LIKE sy-subrc.

   CALL FUNCTION 'TH_IN_UPDATE_TASK'
     IMPORTING
       in_update_task = l_flg_update_task.

   IF l_flg_update_task = 0.
     EXEC SQL.
       COMMIT WORK
     ENDEXEC.
   ENDIF.

ENDFUNCTION.

But i want to avoid this COMMIT here.

Reason:

I have to do the selective Deletion in DSO1 and DSO2. But BOTH must run succesfull !!!

If selc. deletion for DSO1 run correct, but the second one DSO2 failed, then  i have to retrieve the sel. deletion for DSO1.

But it is not possible, because for the DSO1 a COMMIT is executed.

That means, if sel. del for DSO2 failed, then ROLLBACK WORK for all.

How can i achieve this?

CALL FUNCTION 'RSDRD_SEL_DELETION'
   EXPORTING
     i_datatarget            = 'DSO_NAME'
     i_thx_sel               = lt_thx_sel
*   I_DEL_ACTIV             = RS_C_TRUE
*   I_DEL_UPDATE            = RS_C_FALSE
*   I_DEL_CHANGE            = RS_C_FALSE
     i_authority_check       = rs_c_false
*   i_mode                  = rsdrd_c_mode
*   I_REQDELMOD             = '2'
*   I_THRESHOLD             = '0.1'
*   I_PARALLEL_DEGREE       = 1
*   I_NO_LOGGING            = RS_C_FALSE
     i_no_commit             = abap_true
     i_no_enqueue            = rs_c_true
*   I_SHOW_REPORT           = RS_C_FALSE
*   I_TRANSACTIONAL_ODS     = RS_C_FALSE
*   I_WORK_ON_PARTITIONS    = RS_C_FALSE
*   I_REBUILD_BIA           = RS_C_FALSE
*   I_WRITE_APPLICATION_LOG = RS_C_FALSE
*   I_ARCHIVED              = RS_C_FALSE
   IMPORTING
     e_cnt                   = lv_cnt
   CHANGING
     c_t_msg                 = lt_msg
   EXCEPTIONS
     x_message               = 1
     inherited_error         = 2
     invalid_type            = 3
     OTHERS                  = 4.

IF sy-subrc <> 0.
* Implement suitable error handling here
   ROLLBACK WORK.
ENDIF

Former Member
Not what you were looking for? View more on this topic or Ask a question