分享一个找增强的程序（版权归原作者大神所有~）_SAP刘梦_新浪博客

REPORT ZLM_GET_ENHANCE . 


*&--------------------------------------------------------------------&* 
*& Report:       Z_USEREXIT (V9)                                      &* 
*& PJA Consultancy Services (www.pjas.com)                            &* 
*&--------------------------------------------------------------------&* 
*& This report attmpts to find Enhancements, Program-Exits, BADIs     &* 
*& and Business Transaction Events in a particular program/tcode.     &* 
*& Last updated: 09 May 2007                                          &* 
*&--------------------------------------------------------------------&* 
*& Selection Texts: 
*& P_ALV   ALV format 
*& P_AUTH   Include authority-check search 
*& P_BADI   Display BADIs 
*& P_BTE   Display business trans events 
*& P_DEVC   Show development class exits 
*& P_EXIT   Display user exits 
*& P_FUNC   Show function modules 
*& P_LIMIT   Limit no. of submits to search 
*& P_LST   Standard list format 
*& P_PNAME   Program name 
*& P_PROG   Display program exits 
*& P_SUBM   Show submits 
*& P_TCODE   Transaction code 
*& P_TEXT   Search for text 
*& P_WFLOW   Display workflow links 
*&--------------------------------------------------------------------&* 
*& Text symbols: 
*& M01   Enter TCode or program 
*& M02   Enter at least one scope criteria 
*& S01   Selection data (TCode takes precedence over program name) 
*& S02   Scope criteria 
*& S03   Display criteria 
*&--------------------------------------------------------------------&* 

tables : sxs_attr , 
        tobjt , 
        tstct ,                "TCode texts 
        trdirt ,               "Program texts 
        sxc_exit .             "BADI exits 

type-pools : slis .             "Globale Typen fьr generische Listbausteine 
* 
data : tabix          like sy -tabix , 
      w_linnum       type  i , 
      w_off          type  i , 
      w_index        like sy -tabix , 
      w_include      like trdir -name , 
      w_prog         like trdir -name , 
      w_incl         like trdir -name , 
      w_area         like rs38l -area , 
      w_level , 
      w_str ( 50 )      type  c , 
      w_cnt ( 2 )       type  c , 
      w_funcname     like tfdir -funcname , 
      w_fsel         like sy -ucomm ,     " Determination of screen field 
      w_gridtxt ( 70 )  type  c .            "ALV grid title 

constants : c_fmod ( 40 )  type  c  value  'Function modules searched: ' , 
           c_subm ( 40 )  type  c  value  'Submit programs searched: ' , 
           c_devc ( 60 )  type  c  value  'User-exits from development classes in function modules' , 
           c_col1 ( 12 )  type  c  value  'Enhanmt Type' , 
           c_col2 ( 40 )  type  c  value  'Enhancement' , 
           c_col3 ( 30 )  type  c  value  'Program/Include' ,