REPORT zr_db2.
DATA wa TYPE zspfli_00.
wa-carrid = 'AA'.
wa-connid = '0017'.
PERFORM save1 ON COMMIT.
wa-carrid = 'AA'.
wa-connid = '0064'.
PERFORM save2 ON COMMIT.
COMMIT WORK AND WAIT.
*INSERT zspfli_00 FROM wa.
*IF sy-subrc <> 0.
* ROLLBACK WORK.
*ELSE.
* COMMIT WORK.
*ENDIF.
WRITE 'text'.
*&---------------------------------------------------------------------*
*& Form SAVE1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM save1 .
INSERT zspfli_00 FROM wa.
IF sy-subrc <> 0.
MESSAGE a016(pn) WITH 'Fail'.
ENDIF.
ENDFORM. " SAVE1
*&---------------------------------------------------------------------*
*& Form SAVE2
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM save2 .
INSERT zspfli_00 FROM wa.
IF sy-subrc <> 0.
MESSAGE a016(pn) WITH 'Fail'.
ENDIF.
ENDFORM.