FORM SAVE_ITEMS_DB
     CHANGING  CT_ACT_ACEPSITEMS  TYPE  ACEPS_TB_ACT_ITEM_sort.

  DATA LT_ITEMS_INS LIKE ACEPSOI OCCURS 0.
  DATA LT_ITEMS_UPD LIKE ACEPSOI OCCURS 0.
  DATA: LS_ITEMS_INS LIKE ACEPSOI.

  FIELD-SYMBOLS <LFS_WA> TYPE LINE OF ACEPS_TB_ACT_ITEM.

*  split into inserts and updates to use array functions
  LOOP AT CT_ACT_ACEPSITEMS ASSIGNING <LFS_WA>.

    CASE <LFS_WA>-ANUPD.
      WHEN ACEC_CON_ANUPD-INSERT.
        APPEND <LFS_WA>-ACEPSOI TO LT_ITEMS_INS.
      WHEN ACEC_CON_ANUPD-UPDATE.
        APPEND <LFS_WA>-ACEPSOI TO LT_ITEMS_UPD.
    ENDCASE.

  ENDLOOP.

* inserts
  IF NOT LT_ITEMS_INS IS INITIAL.
* temporary change
    LOOP AT LT_ITEMS_INS INTO LS_ITEMS_INS.
      LS_ITEMS_INS-ACRTYPE = LS_ITEMS_INS-ACRTYPE.
      MODIFY LT_ITEMS_INS FROM LS_ITEMS_INS.
    ENDLOOP.
* end of temporary change

    INSERT ACEPSOI FROM TABLE LT_ITEMS_INS.
    IF ( SY-SUBRC <> 0 ).
*     program error:
      MESSAGE X012(ACE) WITH 'INSERT IN TABLE'              "#EC NOTEXT
                             'ACEPSOI FAILED' '' ''.        "#EC NOTEXT
    ENDIF.
  ENDIF.

*  Updates
  IF NOT LT_ITEMS_UPD IS INITIAL.
    UPDATE ACEPSOI FROM TABLE LT_ITEMS_UPD.
    IF ( SY-SUBRC <> 0 ).
*     program error:
      MESSAGE X012(ACE) WITH 'UPDATE IN TABLE'              "#EC NOTEXT
                             'ACEPSOI FAILED' '' ''.        "#EC NOTEXT
    ENDIF.
  ENDIF.

*  initialize global table
  CLEAR CT_ACT_ACEPSITEMS.

ENDFORM.                    " SAVE_ITEMS_DB