Delete all the objects in a package

Question

Hi Guys,
My requirement is that i need to write a program to delete all the objects in a package. In the selection screen i enter the package name and then i get all the objects in the package from TADIR table and display them in an ALV.
There when i select a object and press the delete button ,the object (program ,table, domain,data element etc..) should be deleted .
For this i tried to DEBUG in SE80 and tried to know how SAP is trying to delete the object. But i couldnot unterstand which Function Module or which Class and Method it uses to delete an object.
Guys please let me know how it can be done.
Regards,
Chaithanya.

Answer 1

hi
check this ...
REPORT  zxxxxxx.
TYPE-POOLS: slis.
DATA: x_fieldcat  TYPE lvc_s_fcat,
      it_fieldcat TYPE lvc_t_fcat,
      g_grid    TYPE REF TO cl_gui_alv_grid,
      x_layout TYPE lvc_s_layo,
       g_custom_container type ref to cl_gui_custom_container,
        g_container type scrfname value 'I_CONTAINER'.
types: BEGIN OF ty_itab ,
        check(1) TYPE c,
       PGMID LIKE TADIR-PGMID,
             END OF ty_itab,
data:itab type standard table of ty_itab,
       itab1 type TADIR.
  call screen 100.
*&      Module  STATUS_0100  OUTPUT
      text
module STATUS_0100 output.
  SET PF-STATUS 'ZSTATUS100'.
  if g_custom_container is initial.
    create object g_custom_container
           exporting container_name = g_container.
    create object g_grid
           exporting i_parent = g_custom_container.
SELECT PGMID
  FROM TADIR
   INTO CORRESPONDING FIELDS OF TABLE itab where DEVCLASS = selection screen package
x_fieldcat-fieldname = 'CHECK'.
x_fieldcat-seltext = 'CHECK'.
x_fieldcat-checkbox = 'X'.
x_fieldcat-edit = 'X'.
x_fieldcat-tabname = 'ITAB'.
x_fieldcat-col_pos = 1.
APPEND x_fieldcat TO it_fieldcat.
CLEAR x_fieldcat.
x_fieldcat-fieldname = 'PGMIDt'.
x_fieldcat-seltext = 'PGMIDt'.
*x_fieldcat-edit = 'X'.
x_fieldcat-tabname = 'ITAB'.
x_fieldcat-col_pos = 2.
APPEND x_fieldcat TO it_fieldcat.
CLEAR x_fieldcat.
CALL METHOD g_grid->set_table_for_first_display
  EXPORTING
    IS_LAYOUT                     = x_layout
  CHANGING
    it_outtab                     = itab
    IT_FIELDCATALOG               = it_fieldcat.
endif.
endmodule.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
      text
module USER_COMMAND_0100 input.
DATA: ls_outtab LIKE LINE OF itab.
DATA: l_valid TYPE c,
      ok_code like sy-ucomm,
       r_ucomm LIKE sy-ucomm,
       ls_celltab TYPE lvc_s_styl,
      lt_celltab TYPE lvc_t_styl,
      l_index TYPE i.
CALL METHOD g_grid->check_changed_data
  IMPORTING
    e_valid = l_valid.
IF l_valid EQ 'X'.
case sy-ucomm.
when 'DELETE'.
LOOP AT itab INTO ls_outtab where check = 'X'.
   move ls_outtab-object to itab1.
  delete TADIR from itab1.
ENDLOOP.
endcase.