*&---------------------------------------------------------------------*
*& Include          Z13_04_F01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form save_data
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM save_data .
  DATA: ls_zemplist TYPE zemplist,
        lt_zemplist LIKE TABLE OF ls_zemplist.

  LOOP AT gt_list INTO gs_list WHERE mark EQ 'X'.
    MOVE-CORRESPONDING gs_list TO ls_zemplist.

    APPEND ls_zemplist TO lt_zemplist.
    CLEAR ls_zemplist.
  ENDLOOP.

  IF lt_zemplist IS NOT INITIAL.
    MODIFY zemplist FROM TABLE lt_zemplist.

    IF sy-subrc EQ 0.
      COMMIT WORK.
      MESSAGE 'Data saved' TYPE 'S'.
    ELSE.
      ROLLBACK WORK.
      MESSAGE 'Data save failed' TYPE 'E'.
    ENDIF.
  ENDIF.

ENDFORM.