INTO TABLE it_werks
                 WHERE werks IN im_werks.
* Variablen für höchsten und kleinsten Wert füllen
    READ TABLE im_sptag INTO wa_im_sptag INDEX 1.
    l_sptag_low = wa_im_sptag-low.
    l_sptag_high = wa_im_sptag-high.
*Grupiert nach Tag und Werk löschen
    LOOP AT it_werks INTO wa_werks.
      l_sptag_work = l_sptag_low.
      WHILE l_sptag_work <= l_sptag_high.
        DELETE s740 WHERE sptag = l_sptag_work
                    AND werks = wa_werks-werks_d.
* Entscheidung: Testmodus oder nicht?

*TODO: Parameter für Testmodus?
*    IF testmodus.
*      ROLLBACK WORK.
*    ELSE.
    IF sy-subrc <> 0.
*Fehler ist aufgetreten
    ENDIF.
    COMMIT WORK.
*    ENDIF.