zdelete.abap

REPORT zdelete.

INCLUDE zabapgit_definitions.

TABLES: tdevc.

SELECT-OPTIONS: s_devc FOR tdevc-devclass.

START-OF-SELECTION.
  PERFORM run.

FORM run.

  DATA: lt_tdevc TYPE STANDARD TABLE OF tdevc WITH DEFAULT KEY.

  SELECT * FROM tdevc INTO TABLE lt_tdevc
    WHERE devclass IN s_devc
    ORDER BY PRIMARY KEY.

  LOOP AT lt_tdevc ASSIGNING FIELD-SYMBOL(<ls_tdevc>).
    PERFORM package USING <ls_tdevc>-devclass.
  ENDLOOP.

ENDFORM.

FORM package USING iv_package TYPE devclass.

  DATA: lt_tadir    TYPE ty_tadir_tt.


  CALL METHOD ('\PROGRAM=ZABAPGIT\CLASS=LCL_TADIR')=>('READ')
    EXPORTING
      iv_package = iv_package
    RECEIVING
      rt_tadir   = lt_tadir.

  CALL METHOD ('\PROGRAM=ZABAPGIT\CLASS=LCL_OBJECTS')=>('DELETE')
    EXPORTING
      it_tadir = lt_tadir.

ENDFORM.