Additional Blogs by Members
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

How to find unused dictionary objects by package name

Former Member
‎2012 Apr 26 4:48 PM
0 Kudos
1,256

Hello!,

This report find all unused object by packages and delete.

Hope this helps! 😃

*&---------------------------------------------------------------------*

 *& Report  ZSEARCH_OBJ

 *&

 *&---------------------------------------------------------------------*

 REPORT  zsearch_obj.

 *----------------------------------------------------------------------*

 *   data definition

 *----------------------------------------------------------------------*

 *       Batchinputdata of single transaction

 DATA:   bdcdata LIKE bdcdata    OCCURS 0 WITH HEADER LINE.

 *       messages of call transaction

 DATA:   messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.

 *       error session opened (' ' or 'X')

 DATA:   e_group_opened.

 *----------------------------------------------------------------------*

 *   selection screen

 *----------------------------------------------------------------------*

 SELECTION-SCREEN BEGIN OF LINE.

 PARAMETERS cupdate LIKE ctu_params-updmode DEFAULT 'L' NO-DISPLAY.

 "S: synchronously

 "A: asynchronously

 "L: local

 SELECTION-SCREEN END OF LINE.

 SELECTION-SCREEN BEGIN OF BLOCK b01.

 PARAMETERS ctumode LIKE ctu_params-dismode DEFAULT 'N'.

 "A: show all dynpros

 "E: show dynpro on error only

 "N: do not display dynpro

 PARAMETERS p_objt TYPE devclass DEFAULT 'Z'.

 TYPES:

 BEGIN OF tp_object,

   prognam TYPE c LENGTH 30,

   utilized TYPE c LENGTH 20,

   subrc LIKE sy-subrc,

 END OF tp_object.

 SELECTION-SCREEN END OF BLOCK b01.

 START-OF-SELECTION.

   DATA l_subrc LIKE sy-subrc.

   DATA l_answer VALUE '0'.

   DATA lt_tadir TYPE TABLE OF tadir WITH HEADER LINE.

   DATA lt_prog TYPE TABLE OF tp_object WITH HEADER LINE.

   SELECT * FROM tadir

     INTO TABLE lt_tadir

     WHERE devclass = p_objt.

   LOOP AT lt_tadir.

     CLEAR: l_subrc, lt_prog.

     CASE lt_tadir-object.

       WHEN 'TABL'.

         IF lt_tadir-cproject = 'S'.

           PERFORM f_exec_obj

           USING lt_tadir-obj_name

           CHANGING l_subrc.

         ELSE.

           PERFORM f_exec_tab

           USING lt_tadir-obj_name

           CHANGING l_subrc.

         ENDIF.

       WHEN OTHERS.

         IF lt_tadir-cproject = 'S'.

           PERFORM f_exec_obj

           USING lt_tadir-obj_name

           CHANGING l_subrc.

         ELSE.

           PERFORM f_exec_tab

           USING lt_tadir-obj_name

           CHANGING l_subrc.

         ENDIF.

     ENDCASE.

     lt_prog-prognam = lt_tadir-obj_name.

     lt_prog-subrc = l_subrc.

     IF l_subrc EQ 0.

       lt_prog-utilized = 'NO FOUND'.

     ELSE.

       lt_prog-utilized = 'FOUND'.

     ENDIF.

     APPEND lt_prog.

   ENDLOOP.

   PERFORM f_popup_question

     USING 'Delete objects?'

  CHANGING l_answer.

   LOOP AT lt_prog WHERE subrc EQ 0.

     IF l_answer EQ 1.

       PERFORM f_exec_dele

         USING lt_prog-prognam.

     ENDIF.

     WRITE: / lt_prog-prognam, ' ',

              lt_prog-subrc, ' ',

              lt_prog-utilized.

   ENDLOOP.

   PERFORM close_group.

 *&---------------------------------------------------------------------*

 *&      Form  f_popup_question

 *&---------------------------------------------------------------------*

 FORM f_popup_question

 USING p_question TYPE c

 CHANGING p_answer   TYPE c.

   CALL FUNCTION 'POPUP_TO_CONFIRM'

     EXPORTING

       text_question  = p_question

       start_column   = 15

       start_row      = 6

     IMPORTING

       answer         = p_answer

     EXCEPTIONS

       text_not_found = 1

       OTHERS         = 2.

   IF sy-subrc NE 0.

     MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno

     WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

   ENDIF.

 ENDFORM.                    "f_popup_question

 *&---------------------------------------------------------------------*

 *&      Form  f_exec_TRAN

 *&---------------------------------------------------------------------*

 FORM f_exec_tab

    USING p_obj TYPE c

 CHANGING c_subrc LIKE sy-subrc.

   PERFORM bdc_dynpro USING 'SAPMSRD0' '0102'.

   PERFORM bdc_field USING 'BDC_CURSOR' 'RSRD1-DDTYPE_VAL'.

   PERFORM bdc_field USING 'BDC_OKCODE' '=CREF'.

   PERFORM bdc_field USING 'RSRD1-DDTYPE' 'X'.

   PERFORM bdc_field USING 'RSRD1-DDTYPE_VAL' p_obj.

   PERFORM bdc_dynpro USING 'SAPICDA_' '0101'.

   PERFORM bdc_field USING 'BDC_CURSOR' 'RSEUV-TDFIND'.

   PERFORM bdc_field USING 'BDC_OKCODE' '=MARK'.

   PERFORM bdc_field USING 'RSEUX-CP' 'X'.

   PERFORM bdc_field USING 'RSEUX-CO' 'X'.

   PERFORM bdc_field USING 'RSEUX-CYT' 'X'.

   PERFORM bdc_dynpro USING 'SAPICDA_' '0101'.

   PERFORM bdc_field USING 'BDC_CURSOR' 'RSEUV-TDFIND'.

   PERFORM bdc_field USING 'BDC_OKCODE' '=ENTR'.

   PERFORM bdc_field USING 'RSEUX-CP' 'X'.

   PERFORM bdc_field USING 'RSEUX-CO' 'X'.

   PERFORM bdc_field USING 'RSEUX-CYT' 'X'.

   PERFORM bdc_field USING 'RSEUX-CWO' 'X'.

   PERFORM bdc_field USING 'RSEUX-CFF' 'X'.

   PERFORM bdc_field USING 'RSEUX-C3I' 'X'.

   PERFORM bdc_field USING 'RSEUX-CKI' 'X'.

   PERFORM bdc_field USING 'RSEUX-CDE' 'X'.

   PERFORM bdc_field USING 'RSEUX-CDA' 'X'.

   PERFORM bdc_field USING 'RSEUX-CDTF' 'X'.

   PERFORM bdc_field USING 'RSEUX-CDSF' 'X'.

   PERFORM bdc_field USING 'RSEUX-CGE' 'X'.

   PERFORM bdc_field USING 'RSEUX-CGD' 'X'.

   PERFORM bdc_dynpro USING 'SAPLSPO1' '0100'.

   PERFORM bdc_field USING 'BDC_OKCODE' '=YES'.

   PERFORM bdc_dynpro USING 'SAPMSRD0' '0102'.

   PERFORM bdc_field USING 'BDC_CURSOR' 'RSRD1-DDTYPE_VAL'.

   PERFORM bdc_field USING 'BDC_OKCODE' '=BACK'.

   PERFORM bdc_field USING 'RSRD1-DDTYPE' 'X'.

   PERFORM bdc_field USING 'RSRD1-DDTYPE_VAL' p_obj.

   CALL TRANSACTION 'SE11' USING bdcdata

         MODE   ctumode

         UPDATE cupdate

         MESSAGES INTO messtab.

   c_subrc = sy-subrc.

   REFRESH bdcdata.

 ENDFORM.                    " f_exec_TRAN

 *&---------------------------------------------------------------------*

 *&      Form  F_EXEC_OBJ

 *&---------------------------------------------------------------------*

 FORM f_exec_obj USING p_obj TYPE c

       CHANGING c_subrc LIKE sy-subrc.

   PERFORM bdc_dynpro USING 'SAPMSRD0' '0102'.

   PERFORM bdc_field USING 'BDC_CURSOR' 'RSRD1-DDTYPE_VAL'.

   PERFORM bdc_field USING 'BDC_OKCODE' '=CREF'.

   PERFORM bdc_field USING 'RSRD1-TBMA_VAL' 'TADIR'.

   PERFORM bdc_field USING 'RSRD1-DDTYPE' 'X'.

   PERFORM bdc_field USING 'RSRD1-DDTYPE_VAL' p_obj.

   PERFORM bdc_dynpro USING 'SAPICDE_' '0101'.

   PERFORM bdc_field USING 'BDC_CURSOR' 'RSEUV-TDFIND'.

   PERFORM bdc_field USING 'BDC_OKCODE' '=MARK'.

   PERFORM bdc_field USING 'RSEUX-CDTF' 'X'.

   PERFORM bdc_dynpro USING 'SAPICDE_' '0101'.

   PERFORM bdc_field USING 'BDC_CURSOR' 'RSEUV-TDFIND'.

   PERFORM bdc_field USING 'BDC_OKCODE' '=ENTR'.

   PERFORM bdc_field USING 'RSEUX-CDTF' 'X'.

   PERFORM bdc_field USING 'RSEUX-CDSF' 'X'.

   PERFORM bdc_field USING 'RSEUX-CDVF' 'X'.

   PERFORM bdc_field USING 'RSEUX-CDA' 'X'.

   PERFORM bdc_field USING 'RSEUX-CDH' 'X'.

   PERFORM bdc_field USING 'RSEUX-CDE' 'X'.

   PERFORM bdc_field USING 'RSEUX-CMEA' 'X'.

   PERFORM bdc_field USING 'RSEUX-CP' 'X'.

   PERFORM bdc_field USING 'RSEUX-CO' 'X'.

   PERFORM bdc_field USING 'RSEUX-CYT' 'X'.

   PERFORM bdc_field USING 'RSEUX-CWO' 'X'.

   PERFORM bdc_field USING 'RSEUX-CFF' 'X'.

   PERFORM bdc_field USING 'RSEUX-C3I' 'X'.

   PERFORM bdc_field USING 'RSEUX-CKI' 'X'.

   PERFORM bdc_field USING 'RSEUX-CGE' 'X'.

   PERFORM bdc_field USING 'RSEUX-CGD' 'X'.

   PERFORM bdc_dynpro USING 'SAPMSRD0' '0102'.

   PERFORM bdc_field USING 'BDC_CURSOR' 'RSRD1-DDTYPE_VAL'.

   PERFORM bdc_field USING 'BDC_OKCODE' '=BACK'.

   PERFORM bdc_field USING 'RSRD1-TBMA_VAL' 'TADIR'.

   PERFORM bdc_field USING 'RSRD1-DDTYPE' 'X'.

   PERFORM bdc_field USING 'RSRD1-DDTYPE_VAL' p_obj.

   CALL TRANSACTION 'SE11' USING bdcdata

         MODE   ctumode

         UPDATE cupdate

         MESSAGES INTO messtab.

   c_subrc = sy-subrc.

   REFRESH bdcdata.

 ENDFORM.                    "F_EXEC_OBJ

 *----------------------------------------------------------------------*

 *   end batchinput session                                             *

 *   (call transaction using...: error session)                         *

 *----------------------------------------------------------------------*

 FORM close_group.

   IF e_group_opened = 'X'.

     CALL FUNCTION 'BDC_CLOSE_GROUP'.

     WRITE: /.

     WRITE: /(30) 'Fehlermappe wurde erzeugt'(i06).

     e_group_opened = ' '.

   ENDIF.

 *  ENDIF.

 ENDFORM.                    "CLOSE_GROUP

 *----------------------------------------------------------------------*

 *        Start new screen                                              *

 *----------------------------------------------------------------------*

 FORM bdc_dynpro USING program dynpro.

   CLEAR bdcdata.

   bdcdata-program  = program.

   bdcdata-dynpro   = dynpro.

   bdcdata-dynbegin = 'X'.

   APPEND bdcdata.

 ENDFORM.                    "BDC_DYNPRO

 *----------------------------------------------------------------------*

 *        Insert field                                                  *

 *----------------------------------------------------------------------*

 FORM bdc_field USING fnam fval.

   IF fval <> '/'.

     CLEAR bdcdata.

     bdcdata-fnam = fnam.

     bdcdata-fval = fval.

     APPEND bdcdata.

   ENDIF.

 ENDFORM.                    "BDC_FIELD

 *&---------------------------------------------------------------------*

 *&      Form  F_EXEC_DELE

 *&---------------------------------------------------------------------*

 FORM f_exec_dele USING p_obj TYPE c.

   PERFORM bdc_dynpro USING 'SAPMSRD0' '0102'.

   PERFORM bdc_field USING 'BDC_CURSOR' 'RSRD1-DDTYPE_VAL'.

   PERFORM bdc_field USING 'BDC_OKCODE' '=DELE'.

   PERFORM bdc_field USING 'RSRD1-DDTYPE' 'X'.

   PERFORM bdc_field USING 'RSRD1-DDTYPE_VAL' p_obj.

   PERFORM bdc_dynpro USING 'SAPLSPO1' '0100'.

   PERFORM bdc_field USING 'BDC_OKCODE' '=YES'.

   PERFORM bdc_dynpro USING 'SAPMSRD0' '0102'.

   PERFORM bdc_field USING 'BDC_CURSOR' 'RSRD1-DDTYPE_VAL'.

   PERFORM bdc_field USING 'BDC_OKCODE' '=BACK'.

   PERFORM bdc_field USING 'RSRD1-DDTYPE' 'X'.

   PERFORM bdc_field USING 'RSRD1-DDTYPE_VAL' p_obj.

   CALL TRANSACTION 'SE11'

     USING bdcdata

     MODE   ctumode

     UPDATE cupdate

     MESSAGES INTO messtab.

 ENDFORM.                    " F_EXEC_DELE
Popular Blog Posts
Top kudoed authors
View all