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.