1，输入对应tcode或者程序名

 2，对应code

*&---------------------------------------------------------------------*
*& Report Z_FIND_ENHANGEMENT
*&---------------------------------------------------------------------*
REPORT  ZFIND_ENHANCEMENT.
*&--------------------------------------------------------------------&*
*& 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
*&--------------------------------------------------------------------&*
*report  z_userexit no  standard  page  heading line-size  201 .

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' ,
C_COL4(20) TYPE  C  VALUE  'Enhancement Name' ,
C_COL5(40) TYPE  C  VALUE  'Enhancement Description' ,
C_COL6(8)  TYPE  C  VALUE  'Project' ,
C_COL7(1)  TYPE  C  VALUE  'S' ,
C_COL8(12) TYPE  C  VALUE  'ChangeName' ,
C_COL9(10) TYPE  C  VALUE  'ChangeDate' ,
C_X TYPE  C  VALUE  'X' .

* Work Areas: ABAP Workbench
DATA : BEGIN  OF  WA_D010INC.
  DATA : MASTER TYPE  D010INC-MASTER.
DATA : END  OF  WA_D010INC.

DATA : BEGIN  OF  WA_TFDIR.
  DATA : FUNCNAME TYPE  TFDIR-FUNCNAME,
        PNAME TYPE  TFDIR-PNAME,
        INCLUDE  TYPE  TFDIR-INCLUDE .
DATA : END  OF  WA_TFDIR.

DATA : BEGIN  OF  WA_TADIR.
  DATA : DEVCLASS TYPE  TADIR-DEVCLASS.
DATA : END  OF  WA_TADIR.

DATA : BEGIN  OF  WA_TSTC.
  DATA : PGMNA TYPE  TSTC-PGMNA.
DATA : END  OF  WA_TSTC.

DATA : BEGIN  OF  WA_TSTCP.
  DATA : PARAM TYPE  TSTCP-PARAM.
DATA : END  OF  WA_TSTCP.

DATA : BEGIN  OF  WA_ENLFDIR.
  DATA : AREA TYPE  ENLFDIR-AREA.
DATA : END  OF  WA_ENLFDIR.

* Work Areas: BADIs
DATA : BEGIN  OF  WA_SXS_ATTR.
  DATA : EXIT_NAME TYPE  SXS_ATTR-EXIT_NAME.
DATA : END  OF  WA_SXS_ATTR.

DATA : BEGIN  OF  WA_SXS_ATTRT.
  DATA : TEXT  TYPE  SXS_ATTRT-TEXT .
DATA : END  OF  WA_SXS_ATTRT.

* Work Areas: Enhancements
DATA : BEGIN  OF  WA_MODSAP.
  DATA : MEMBER TYPE  MODSAP-MEMBER.
DATA : END  OF  WA_MODSAP.

DATA : BEGIN  OF  WA_MODSAPA.
  DATA : NAME TYPE  MODSAPA-NAME.
DATA : END  OF  WA_MODSAPA.

DATA : BEGIN  OF  WA_MODSAPT.
  DATA : MODTEXT TYPE  MODSAPT-MODTEXT.
DATA : END  OF  WA_MODSAPT.

* Work Areas: Business Transaction Events
DATA : BEGIN  OF  WA_TBE01T.
  DATA : TEXT1 TYPE  TBE01T-TEXT1.
DATA : END  OF  WA_TBE01T.

DATA : BEGIN  OF  WA_TPS01T.
  DATA : TEXT1 TYPE  TPS01T-TEXT1.
DATA : END  OF  WA_TPS01T.

* user-exits
TYPES : BEGIN  OF  TY_MOD,
  MEMBER LIKE  MODACT-MEMBER,
  NAME LIKE  MODACT-NAME,
  STATUS LIKE  MODATTR-STATUS,
  ANAM LIKE  MODATTR-ANAM,
  ADAT LIKE  MODATTR-ADAT,
END  OF  TY_MOD.
DATA : W_MOD TYPE  TY_MOD.

TYPES : BEGIN  OF  T_USEREXIT,
  TYPE(12) TYPE C,
  PNAME LIKE  TRDIR-NAME,
  TXT(300),
  LEVEL TYPE  C ,
  MODNAME(30) TYPE  C ,
  MODTEXT(60) TYPE  C ,
  MODATTR TYPE  TY_MOD,
  COLOUR(4) TYPE  C ,
END  OF  T_USEREXIT.
DATA : I_USEREXIT TYPE  STANDARD  TABLE  OF  T_USEREXIT WITH  HEADER  LINE .

* Function module developmnet classes
TYPES : BEGIN  OF  T_DEVCLASS,
  CLAS LIKE  TRDIR-CLAS,
END  OF  T_DEVCLASS.
DATA : I_DEVCLASS TYPE  STANDARD  TABLE  OF  T_DEVCLASS WITH  HEADER  LINE .

* Submit programs
TYPES : BEGIN  OF  T_SUBMIT,
  PNAME LIKE  TRDIR-NAME,
  LEVEL,
  DONE,
END  OF  T_SUBMIT.
DATA : I_SUBMIT TYPE  STANDARD  TABLE  OF  T_SUBMIT WITH  HEADER  LINE .

* Source code
TYPES : BEGIN  OF  T_SOURCETAB,                     "#EC * (SLIN lьgt!)
  LINE(200),                                          "#EC * (SLIN lьgt!)
END  OF  T_SOURCETAB.                               "#EC * (SLIN lьgt!)
DATA : SOURCETAB TYPE  STANDARD  TABLE  OF  T_SOURCETAB WITH  HEADER  LINE .
DATA  C_OVERFLOW(30000) TYPE  C .

* Description of an ABAP/4 source analysis token
*data: i_stoken type standard table of stokex with header line.
DATA : I_STOKEN TYPE  STANDARD  TABLE  OF  STOKEN WITH  HEADER  LINE .

DATA  WA_STOKEN LIKE  I_STOKEN.

* Description of an ABAP/4 source analysis statement
DATA : I_SSTMNT TYPE  STANDARD  TABLE  OF  SSTMNT WITH  HEADER  LINE . "#EC NEEDED

* keywords for searching ABAP code
TYPES : BEGIN  OF  T_KEYWORDS,
  WORD(30),
END  OF  T_KEYWORDS.
DATA : KEYWORDS TYPE  STANDARD  TABLE  OF  T_KEYWORDS WITH  HEADER  LINE .

* function modules within program
TYPES :
BEGIN  OF  T_FMODULE,
  NAME   LIKE  RS38L-NAME,
  PNAME  LIKE  TRDIR-NAME,
  PNAME2 LIKE  TRDIR-NAME,
  LEVEL,
  BAPI,
  DONE,
END  OF  T_FMODULE.
DATA : I_FMODULE TYPE  STANDARD  TABLE  OF  T_FMODULE WITH  HEADER  LINE .

* ALV definitions
DATA  I_FIELDCAT TYPE  SLIS_T_FIELDCAT_ALV WITH  HEADER  LINE .
DATA  I_LAYOUT TYPE  SLIS_LAYOUT_ALV.
DATA  I_SORT TYPE  SLIS_T_SORTINFO_ALV WITH  HEADER  LINE .

*&--------------------------------------------------------------------&*
*& Selection Options &*
*&--------------------------------------------------------------------&*
SELECTION-SCREEN  BEGIN  OF  BLOCK  SELSCR1 WITH  FRAME  TITLE  TEXT-S01.
  PARAMETER : P_PNAME LIKE  TRDIR-NAME,
  P_TCODE LIKE  SYST-TCODE,
  P_LIMIT(4) TYPE  N DEFAULT  500 .
  SELECTION-SCREEN  SKIP .
SELECTION-SCREEN  END  OF  BLOCK  SELSCR1.

SELECTION-SCREEN  BEGIN  OF  BLOCK  SELSCR2 WITH  FRAME  TITLE  TEXT-S02.
  PARAMETER : P_BADI AS  CHECKBOX  DEFAULT  C_X,
  P_BTE AS  CHECKBOX  DEFAULT  C_X,
  P_EXIT AS  CHECKBOX  DEFAULT  C_X,
  P_PROG AS  CHECKBOX  DEFAULT  C_X,
  P_WFLOW AS  CHECKBOX ,
  P_AUTH AS  CHECKBOX .
  SELECTION-SCREEN  SKIP .
  PARAMETER : P_TEXT(40) TYPE  C .
SELECTION-SCREEN  END  OF  BLOCK  SELSCR2.

SELECTION-SCREEN  BEGIN  OF  BLOCK  SELSCR3 WITH  FRAME  TITLE  TEXT-S03.
  PARAMETER : P_ALV RADIOBUTTON  GROUP  RAD1 DEFAULT  'X' ,
  P_LST RADIOBUTTON  GROUP  RAD1.
  SELECTION-SCREEN  SKIP .
  PARAMETER : P_DEVC LIKE  RIHEA-DY_OFN DEFAULT  ' '  MODIF ID  A01,
  P_FUNC LIKE  RIHEA-DY_OFN DEFAULT  ' '  MODIF ID  A01,
  P_SUBM LIKE  RIHEA-DY_OFN DEFAULT  ' '  MODIF ID  A01.
SELECTION-SCREEN  END  OF  BLOCK  SELSCR3.

*&--------------------------------------------------------------------&*
*& START-OF-SELECTION &*
*&--------------------------------------------------------------------&*
START-OF-SELECTION.

IF  P_PNAME IS  INITIAL  AND  P_TCODE IS  INITIAL .
  MESSAGE  I000(G01) WITH  TEXT-M01.
  STOP .
ENDIF .

IF  P_BADI IS  INITIAL  AND
P_EXIT IS  INITIAL  AND
P_BTE IS  INITIAL  AND
P_WFLOW IS  INITIAL  AND
P_AUTH IS  INITIAL  AND
P_PROG IS  INITIAL .
  MESSAGE  I000(G01) WITH  TEXT-M02.
  STOP .
ENDIF .

* ensure P_LIMIT is not zero.
IF  P_LIMIT = 0 .
  P_LIMIT = 1 .
ENDIF .

PERFORM  DATA_SELECT.
PERFORM  GET_SUBMIT_DATA.
PERFORM  GET_FM_DATA.
PERFORM  GET_ADDITIONAL_DATA.
PERFORM  DATA_DISPLAY.

*&--------------------------------------------------------------------&*
*& Form DATA_SELECT &*
*&--------------------------------------------------------------------&*
*& &*
*&--------------------------------------------------------------------&*
FORM  DATA_SELECT.

* data selection message to sap gui
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
  DESTINATION 'SAPGUI'
  KEEPING LOGICAL UNIT OF WORK
  EXPORTING
    TEXT                  = 'Get programs/includes'       "#EC NOTEXT
  EXCEPTIONS
    SYSTEM_FAILURE
    COMMUNICATION_FAILURE
    .                                                       "#EC *

* get TCode name for ALV grid title
  CLEAR  W_GRIDTXT.
  IF  NOT  P_TCODE IS  INITIAL .
    SELECT  SINGLE  * FROM  TSTCT WHERE  TCODE = P_TCODE
    AND  SPRSL = SY-LANGU.
    CONCATENATE  'TCode:'  P_TCODE TSTCT-TTEXT INTO  W_GRIDTXT
    SEPARATED  BY  SPACE.
  ENDIF .
* get program name for ALV grid title
  IF  NOT  P_PNAME IS  INITIAL .
    SELECT  SINGLE  * FROM  TRDIRT WHERE  NAME = P_PNAME
    AND  SPRSL = SY-LANGU.
    CONCATENATE  'Program:'  P_PNAME TSTCT-TTEXT INTO  W_GRIDTXT
    SEPARATED  BY  SPACE.
  ENDIF .

* determine search words
  KEYWORDS-WORD = 'CALL' .
  APPEND  KEYWORDS.
  KEYWORDS-WORD = 'FORM' .
  APPEND  KEYWORDS.
  KEYWORDS-WORD = 'PERFORM' .
  APPEND  KEYWORDS.
  KEYWORDS-WORD = 'SUBMIT' .
  APPEND  KEYWORDS.
  KEYWORDS-WORD = 'INCLUDE' .
  APPEND  KEYWORDS.
  KEYWORDS-WORD = 'AUTHORITY-CHECK' .
  APPEND  KEYWORDS.

  IF  NOT  P_TCODE IS  INITIAL .
* get program name from TCode
    SELECT  SINGLE  PGMNA FROM  TSTC INTO  WA_TSTC-PGMNA
    WHERE  TCODE EQ  P_TCODE.
    IF  NOT  WA_TSTC-PGMNA IS  INITIAL .
      P_PNAME = WA_TSTC-PGMNA.
* TCode does not include program name, but does have reference TCode
    ELSE .
      SELECT  SINGLE  PARAM FROM  TSTCP INTO  WA_TSTCP-PARAM
      WHERE  TCODE EQ  P_TCODE.
      IF  SY-SUBRC = 0 .
        CHECK  WA_TSTCP-PARAM(1) = '/' .
        CHECK  WA_TSTCP-PARAM+1(1) = '*' .
        IF  WA_TSTCP-PARAM CA  ' ' .
        ENDIF .
        W_OFF = SY-FDPOS + 1 .
        SUBTRACT  2  FROM  SY-FDPOS.
        IF  SY-FDPOS GT  0 .
          P_TCODE = WA_TSTCP-PARAM+2(SY-FDPOS).
        ENDIF .
        SELECT  SINGLE  PGMNA FROM  TSTC INTO  WA_TSTC-PGMNA
        WHERE  TCODE EQ  P_TCODE.
        P_PNAME = WA_TSTC-PGMNA.
        IF  SY-SUBRC <> 0 .
          MESSAGE  S110(/SAPTRX/ASC) WITH  'No program found for: '  P_TCODE. "#EC NOTEXT
          STOP .
        ENDIF .
      ELSE .
        MESSAGE  S110(/SAPTRX/ASC) WITH  'No program found for: '  P_TCODE. "#EC NOTEXT
        STOP .
      ENDIF .

    ENDIF .
  ENDIF .

* Call customer-function aus Program coding
  READ  REPORT  P_PNAME INTO  SOURCETAB.
  IF  SY-SUBRC > 0 .
    MESSAGE  E017(ENHANCEMENT) WITH  P_PNAME RAISING  NO_PROGRAM. "#EC *
  ENDIF .

*scan abap-source sourcetab tokens into i_stoken
*statements into i_sstmnt
*keywords from keywords
*overflow into c_overflow
*with ANALYSIS. "#EC

**********************************
  SCAN  ABAP-SOURCE SOURCETAB TOKENS     INTO  I_STOKEN
  STATEMENTS INTO  I_SSTMNT
  KEYWORDS   FROM  KEYWORDS
  OVERFLOW INTO  C_OVERFLOW
  WITH  INCLUDES.                "#EC
**********************************
  IF  SY-SUBRC > 0 . "keine/syntakt. falsche Ablauflog./Fehler im Skanner
    MESSAGE  E130(ENHANCEMENT) RAISING  SYNTAX_ERROR.       "#EC
  ENDIF .

* check I_STOKEN for entries
  CLEAR  W_LINNUM.
  DESCRIBE  TABLE  I_STOKEN LINES  W_LINNUM.
  IF  W_LINNUM GT  0 .
    W_LEVEL = '0' .
    W_PROG = '' .
    W_INCL = '' .
    PERFORM  DATA_SEARCH TABLES  I_STOKEN USING  W_LEVEL W_PROG W_INCL.
  ENDIF .

ENDFORM . "DATA_SELECT

*&--------------------------------------------------------------------&*
*& Form GET_FM_DATA # &*
*&--------------------------------------------------------------------&*
*& &*
*&--------------------------------------------------------------------&*
FORM  GET_FM_DATA.

* data selection message to sap gui
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
  DESTINATION 'SAPGUI'
  KEEPING LOGICAL UNIT OF WORK
  EXPORTING
    TEXT                  = 'Get function module data'    "#EC NOTEXT
  EXCEPTIONS
    SYSTEM_FAILURE
    COMMUNICATION_FAILURE
    .                                                       "#EC *

* Function module data
  SORT  I_FMODULE BY  NAME.
  DELETE  ADJACENT  DUPLICATES  FROM  I_FMODULE COMPARING  NAME.

  LOOP  AT  I_FMODULE WHERE  DONE NE  C_X.

    CLEAR : I_STOKEN, I_SSTMNT, SOURCETAB, WA_TFDIR, W_INCLUDE .
    REFRESH : I_STOKEN, I_SSTMNT, SOURCETAB.

    CLEAR  WA_TFDIR.
    SELECT  SINGLE  FUNCNAME PNAME INCLUDE  FROM  TFDIR INTO  WA_TFDIR
    WHERE  FUNCNAME = I_FMODULE-NAME.
    CHECK  SY-SUBRC = 0 .

    CALL FUNCTION 'FUNCTION_INCLUDE_SPLIT'
    EXPORTING
      PROGRAM = WA_TFDIR-PNAME
    IMPORTING
      GROUP   = W_AREA.

    CONCATENATE  'L'  W_AREA 'U'  WA_TFDIR-INCLUDE  INTO  W_INCLUDE.
    I_FMODULE-PNAME = W_INCLUDE.
    I_FMODULE-PNAME2 = WA_TFDIR-PNAME.
    MODIFY  I_FMODULE.

    READ  REPORT  I_FMODULE-PNAME INTO  SOURCETAB.
    IF  SY-SUBRC = 0 .

      SCAN  ABAP-SOURCE SOURCETAB TOKENS INTO  I_STOKEN
      STATEMENTS INTO  I_SSTMNT
      KEYWORDS FROM  KEYWORDS
      WITH  INCLUDES.
      IF  SY-SUBRC > 0 .
        MESSAGE  E130(ENHANCEMENT) RAISING  SYNTAX_ERROR.
      ENDIF .

* check i_stoken for entries
      CLEAR  W_LINNUM.
      DESCRIBE  TABLE  I_STOKEN LINES  W_LINNUM.
      IF  W_LINNUM GT  0 .
        W_LEVEL = '1' .
        W_PROG = I_FMODULE-PNAME2.
        W_INCL = I_FMODULE-PNAME.
        PERFORM  DATA_SEARCH TABLES  I_STOKEN USING  W_LEVEL W_PROG W_INCL.
      ENDIF .
    ENDIF .

  ENDLOOP .

* store development classes
  IF  P_DEVC = C_X.
    LOOP  AT  I_FMODULE.
      CLEAR : WA_TADIR, WA_ENLFDIR.

      SELECT  SINGLE  AREA FROM  ENLFDIR INTO  WA_ENLFDIR-AREA
      WHERE  FUNCNAME = I_FMODULE-NAME.
      CHECK  NOT  WA_ENLFDIR-AREA IS  INITIAL .

      SELECT  SINGLE  DEVCLASS INTO  WA_TADIR-DEVCLASS
      FROM  TADIR WHERE  PGMID = 'R3TR'
      AND  OBJECT = 'FUGR'
      AND  OBJ_NAME = WA_ENLFDIR-AREA.
      CHECK  NOT  WA_TADIR-DEVCLASS IS  INITIAL .
      MOVE  WA_TADIR-DEVCLASS TO  I_DEVCLASS-CLAS.
      APPEND  I_DEVCLASS.
      I_FMODULE-DONE = C_X.
      MODIFY  I_FMODULE.
    ENDLOOP .

    SORT  I_DEVCLASS.
    DELETE  ADJACENT  DUPLICATES  FROM  I_DEVCLASS.
  ENDIF .

ENDFORM . "GET_FM_DATA

*&--------------------------------------------------------------------&*
*& Form GET_SUBMIT_DATA &*
*&--------------------------------------------------------------------&*
*& &*
*&--------------------------------------------------------------------&*
FORM  GET_SUBMIT_DATA.

* data selection message to sap gui
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
  DESTINATION 'SAPGUI'
  KEEPING LOGICAL UNIT OF WORK
  EXPORTING
    TEXT                  = 'Get submit data'             "#EC NOTEXT
  EXCEPTIONS
    SYSTEM_FAILURE
    COMMUNICATION_FAILURE
    .                                                       "#EC *

  SORT  I_SUBMIT.
  DELETE  ADJACENT  DUPLICATES  FROM  I_SUBMIT COMPARING  PNAME.
  W_LEVEL = '0' .

  LOOP  AT  I_SUBMIT WHERE  DONE NE  C_X.

    CLEAR : I_STOKEN, I_SSTMNT, SOURCETAB.
    REFRESH : I_STOKEN, I_SSTMNT, SOURCETAB.

    READ  REPORT  I_SUBMIT-PNAME INTO  SOURCETAB.
    IF  SY-SUBRC = 0 .

      SCAN  ABAP-SOURCE SOURCETAB TOKENS INTO  I_STOKEN
      STATEMENTS INTO  I_SSTMNT
      KEYWORDS FROM  KEYWORDS
      WITH  INCLUDES.
      IF  SY-SUBRC > 0 .
* message e130(enhancement) raising syntax_error.
        CONTINUE .
      ENDIF .

* check i_stoken for entries
      CLEAR  W_LINNUM.
      DESCRIBE  TABLE  I_STOKEN LINES  W_LINNUM.
      IF  W_LINNUM GT  0 .
        W_PROG = I_SUBMIT-PNAME.
        W_INCL = '' .
        PERFORM  DATA_SEARCH TABLES  I_STOKEN USING  W_LEVEL W_PROG W_INCL.
      ENDIF .
    ENDIF .

* restrict number of submit program selected for processing
    DESCRIBE  TABLE  I_SUBMIT LINES  W_LINNUM.
    IF  W_LINNUM GE  P_LIMIT.
      W_LEVEL = '1' .
    ENDIF .
    I_SUBMIT-DONE = C_X.
    MODIFY  I_SUBMIT.
  ENDLOOP .

ENDFORM . "GET_SUBMIT_DATA

*&--------------------------------------------------------------------&*
*& Form DATA_SEARCH &*
*&--------------------------------------------------------------------&*
*& &*
*&--------------------------------------------------------------------&*
FORM  DATA_SEARCH TABLES  P_STOKEN STRUCTURE  STOKEN
USING  P_LEVEL L_PROG L_INCL.

  LOOP  AT  P_STOKEN.

    CLEAR  I_USEREXIT.

* Workflow
    IF  P_WFLOW = C_X.
      IF  P_LEVEL EQ  '1' . " do not perform for function modules (2nd pass)
        IF  P_STOKEN-STR+1(16) CS  'SWE_EVENT_CREATE' .
          REPLACE  ALL  OCCURRENCES  OF  ''''  IN  P_STOKEN-STR WITH  '' .
          I_USEREXIT-TYPE  = 'WorkFlow' .
          I_USEREXIT-TXT = P_STOKEN-STR.
          CONCATENATE  L_PROG '/'  L_INCL INTO  I_USEREXIT-PNAME.
          APPEND  I_USEREXIT.
        ENDIF .
      ENDIF .
    ENDIF .

    TABIX = SY-TABIX + 1 .
    I_USEREXIT-LEVEL = P_LEVEL.
    IF  I_USEREXIT-LEVEL = '0' .
      IF  L_INCL IS  INITIAL .
        I_USEREXIT-PNAME = P_PNAME.
      ELSE .
        CONCATENATE  P_PNAME '-'  L_INCL INTO  I_USEREXIT-PNAME.
      ENDIF .
    ELSE .
      IF  L_INCL IS  INITIAL .
        I_USEREXIT-PNAME = L_PROG.
      ELSE .
        CONCATENATE  L_PROG '-'  L_INCL INTO  I_USEREXIT-PNAME.
      ENDIF .
    ENDIF .

* AUTHORITY-CHECKS
    IF  P_AUTH = C_X.
      IF  P_STOKEN-STR EQ  'AUTHORITY-CHECK' .
        CHECK  P_LEVEL EQ  '0' . " do not perform for function modules (2nd pass)
        W_INDEX = SY-TABIX + 2 .
        READ  TABLE  P_STOKEN INDEX  W_INDEX INTO  WA_STOKEN.
        CHECK  NOT  WA_STOKEN-STR CS  'STRUCTURE' .
        CHECK  NOT  WA_STOKEN-STR CS  'SYMBOL' .
        READ  TABLE  I_SUBMIT WITH  KEY  PNAME = WA_STOKEN-STR.
        IF  SY-SUBRC <> 0 .
          I_USEREXIT-PNAME = I_SUBMIT-PNAME.
          I_USEREXIT-TYPE  = 'AuthCheck' .
          I_USEREXIT-TXT = WA_STOKEN-STR.
          REPLACE  ALL  OCCURRENCES  OF  ''''  IN  I_USEREXIT-TXT WITH  SPACE.
          CLEAR  TOBJT.
          SELECT  SINGLE  * FROM  TOBJT WHERE  OBJECT = I_USEREXIT-TXT
          AND  LANGU = SY-LANGU.
          I_USEREXIT-MODNAME = 'AUTHORITY-CHECK' .
          I_USEREXIT-MODTEXT = TOBJT-TTEXT.
          APPEND  I_USEREXIT.
        ENDIF .
      ENDIF .
    ENDIF .

* Text searches
    IF  NOT  P_TEXT IS  INITIAL .
      IF  P_STOKEN-STR CS  P_TEXT.
        I_USEREXIT-PNAME = I_SUBMIT-PNAME.
        I_USEREXIT-TYPE  = 'TextSearch' .
        I_USEREXIT-TXT = WA_STOKEN-STR.
        I_USEREXIT-MODNAME = 'Text Search' .
        I_USEREXIT-MODTEXT = P_STOKEN-STR.
        APPEND  I_USEREXIT.
      ENDIF .
    ENDIF .

* Include (SE38)
    IF  P_STOKEN-STR EQ  'INCLUDE' .
      CHECK  P_LEVEL EQ  '0' . " do not perform for function modules (2nd pass)
      W_INDEX = SY-TABIX + 1 .
      READ  TABLE  P_STOKEN INDEX  W_INDEX INTO  WA_STOKEN.
      CHECK  NOT  WA_STOKEN-STR CS  'STRUCTURE' .
      CHECK  NOT  WA_STOKEN-STR CS  'SYMBOL' .
      READ  TABLE  I_SUBMIT WITH  KEY  PNAME = WA_STOKEN-STR.
      IF  SY-SUBRC <> 0 .
        I_SUBMIT-PNAME = WA_STOKEN-STR.
        I_SUBMIT-LEVEL = P_LEVEL.
        APPEND  I_SUBMIT.
      ENDIF .
    ENDIF .

* Enhancements (SMOD)
    IF  P_EXIT = C_X.
      IF  P_STOKEN-STR EQ  'CUSTOMER-FUNCTION' .
        CLEAR  W_FUNCNAME.
        READ  TABLE  P_STOKEN INDEX  TABIX.
        TRANSLATE  P_STOKEN-STR USING  ''' ' .
        CONDENSE  P_STOKEN-STR.
        IF  L_PROG IS  INITIAL .
          CONCATENATE  'EXIT'  P_PNAME P_STOKEN-STR INTO  W_FUNCNAME
          SEPARATED  BY  '_' .
        ELSE .
          CONCATENATE  'EXIT'  L_PROG P_STOKEN-STR INTO  W_FUNCNAME
          SEPARATED  BY  '_' .
        ENDIF .
        SELECT  SINGLE  MEMBER FROM  MODSAP INTO  WA_MODSAP-MEMBER
        WHERE  MEMBER = W_FUNCNAME.
        IF  SY-SUBRC = 0 . " check for valid enhancement
          I_USEREXIT-TYPE  = 'Enhancement' .
          I_USEREXIT-TXT = W_FUNCNAME.
          APPEND  I_USEREXIT.
        ELSE .
          CLEAR  WA_D010INC.
          SELECT  SINGLE  MASTER INTO  WA_D010INC-MASTER
          FROM  D010INC
          WHERE  INCLUDE  = L_PROG.
          CONCATENATE  'EXIT'  WA_D010INC-MASTER P_STOKEN-STR INTO  W_FUNCNAME
          SEPARATED  BY  '_' .
          I_USEREXIT-TYPE  = 'Enhancement' .
          I_USEREXIT-TXT = W_FUNCNAME.
        ENDIF .
      ENDIF .
    ENDIF .

* BADIs (SE18)
    IF  P_BADI = C_X.
      IF  P_STOKEN-STR CS  'cl_exithandler=' .
        W_INDEX = SY-TABIX + 4 .
        READ  TABLE  P_STOKEN INDEX  W_INDEX INTO  WA_STOKEN.
        I_USEREXIT-TXT = WA_STOKEN-STR.
        REPLACE  ALL  OCCURRENCES  OF  ''''  IN  I_USEREXIT-TXT WITH  SPACE.
        I_USEREXIT-TYPE  = 'BADI' .
        CLEAR  SXS_ATTR. " ensure a real BADI
        SELECT  SINGLE  * FROM  SXS_ATTR WHERE  EXIT_NAME = I_USEREXIT-TXT.
        IF  SY-SUBRC = 0 .
          APPEND  I_USEREXIT.
        ENDIF .
      ENDIF .
    ENDIF .

* Business transaction events (FIBF)
    IF  P_BTE = C_X.
      IF  P_STOKEN-STR CS  'OPEN_FI_PERFORM' .
        I_USEREXIT-TYPE  = 'BusTrEvent' .
        I_USEREXIT-TXT = P_STOKEN-STR.
        REPLACE  ALL  OCCURRENCES  OF  ''''  IN  I_USEREXIT-TXT WITH  SPACE.
        I_USEREXIT-MODNAME = I_USEREXIT-TXT+16(8).
        CASE  I_USEREXIT-TXT+25(1).
        WHEN  'E' .
          CLEAR  WA_TBE01T.
          SELECT  SINGLE  TEXT1 INTO  WA_TBE01T-TEXT1 FROM  TBE01T
          WHERE  EVENT  = I_USEREXIT-TXT+16(8)
          AND  SPRAS = SY-LANGU.
          IF  WA_TBE01T-TEXT1 IS  INITIAL .
            I_USEREXIT-MODTEXT = '<Not active>' .         "#EC NOTEXT
          ELSE .
            I_USEREXIT-MODTEXT = WA_TBE01T-TEXT1.
          ENDIF .
          I_USEREXIT-MODNAME+8  = '/P&S' .                "#EC NOTEXT
        WHEN  'P' .
          CLEAR  WA_TPS01T.
          SELECT  SINGLE  TEXT1 INTO  WA_TPS01T-TEXT1 FROM  TPS01T
          WHERE  PROCS = I_USEREXIT-TXT+16(8)
          AND  SPRAS = SY-LANGU.
          I_USEREXIT-MODTEXT = WA_TPS01T-TEXT1.
          I_USEREXIT-MODNAME+8  = '/Process' .
        ENDCASE .

        APPEND  I_USEREXIT.
      ENDIF .
    ENDIF .

* Program exits (SE38)
    IF  P_PROG = C_X.
      IF  P_STOKEN-STR CS  'USEREXIT_' .
        CHECK  NOT  P_STOKEN-STR CS  '-' . " ensure not USEREXIT_XX-XXX
        CHECK  NOT  P_STOKEN-STR CS  '(' . " ensure not SUBMIT_XX(X)
        I_USEREXIT-TYPE  = 'Program Exit' .
        I_USEREXIT-TXT = P_STOKEN-STR.
        REPLACE  ALL  OCCURRENCES  OF  ''''  IN  I_USEREXIT-TXT WITH  SPACE.
        APPEND  I_USEREXIT.
      ENDIF .
    ENDIF .

* Submit programs (SE38)
    IF  P_STOKEN-STR CS  'SUBMIT' .
      CHECK  P_LEVEL EQ  '0' . " do not perform for function modules (2nd pass)
      CHECK  NOT  P_STOKEN-STR CS  '_' . " ensure not SUBMIT_XXX
      W_INDEX = SY-TABIX + 1 .
      READ  TABLE  P_STOKEN INDEX  W_INDEX INTO  WA_STOKEN.
      CHECK  NOT  WA_STOKEN-STR CS  '_' . " ensure not SUBMIT_XXX
      REPLACE  ALL  OCCURRENCES  OF  ''''  IN  WA_STOKEN-STR WITH  SPACE.
      READ  TABLE  I_SUBMIT WITH  KEY  PNAME = WA_STOKEN-STR.
      IF  SY-SUBRC <> 0 .
        I_SUBMIT-PNAME = WA_STOKEN-STR.
        I_SUBMIT-LEVEL = P_LEVEL.
        APPEND  I_SUBMIT.
      ENDIF .
    ENDIF .

* Perform routines (which reference external programs)
    IF  P_STOKEN-STR CS  'PERFORM' .
      CHECK  P_LEVEL EQ  '0' . " do not perform for function modules (2nd pass)
      W_INDEX = SY-TABIX + 1 .
      READ  TABLE  P_STOKEN INDEX  W_INDEX INTO  WA_STOKEN.
      IF  NOT  WA_STOKEN-OVFL IS  INITIAL .
        W_OFF = WA_STOKEN-OFF1 + 10 .
        W_STR = C_OVERFLOW+W_OFF(30).
        FIND  ')'  IN  W_STR MATCH OFFSET W_OFF.
        IF  SY-SUBRC = 0 .
          W_OFF = W_OFF + 1 .
          WA_STOKEN-STR = W_STR(W_OFF).
        ENDIF .
      ENDIF .

      CHECK  WA_STOKEN-STR CS  '(' .
      W_OFF = 0 .
      WHILE  SY-SUBRC = 0 .
        IF  WA_STOKEN-STR+W_OFF(1) EQ  '(' .
          REPLACE  SECTION  OFFSET W_OFF LENGTH 1  OF  WA_STOKEN-STR WITH  '' .
          REPLACE  ALL  OCCURRENCES  OF  ')'  IN  WA_STOKEN-STR WITH  SPACE.
          READ  TABLE  I_SUBMIT WITH  KEY  PNAME = WA_STOKEN-STR.
          IF  SY-SUBRC <> 0 .
            I_SUBMIT-PNAME = WA_STOKEN-STR.
            APPEND  I_SUBMIT.
          ENDIF .
          EXIT .
        ELSE .
          REPLACE  SECTION  OFFSET W_OFF LENGTH 1  OF  WA_STOKEN-STR WITH  '' .
          SHIFT  WA_STOKEN-STR LEFT  DELETING LEADING  SPACE.
        ENDIF .
      ENDWHILE .
    ENDIF .

* Function modules (SE37)
    IF  P_STOKEN-STR CS  'FUNCTION' .

      CLEAR  I_FMODULE.
      IF  P_LEVEL EQ  '0' . " do not perform for function modules (2nd pass)
        W_INDEX = SY-TABIX + 1 .
        READ  TABLE  P_STOKEN INDEX  W_INDEX INTO  WA_STOKEN.

        IF  WA_STOKEN-STR CS  'BAPI' .
          I_FMODULE-BAPI = C_X.
        ENDIF .

        REPLACE  FIRST  OCCURRENCE OF  ''''  IN  WA_STOKEN-STR WITH  SPACE.
        REPLACE  FIRST  OCCURRENCE OF  ''''  IN  WA_STOKEN-STR WITH  SPACE.
        IF  SY-SUBRC = 4 . " didn't find 2nd quote (ie name truncated)
          CLEAR  WA_TFDIR.
          CONCATENATE  WA_STOKEN-STR '%'  INTO  WA_STOKEN-STR.
          SELECT  SINGLE  FUNCNAME INTO  WA_TFDIR-FUNCNAME FROM  TFDIR
          WHERE  FUNCNAME LIKE  WA_STOKEN-STR.
          IF  SY-SUBRC = 0 .
            I_FMODULE-NAME = WA_TFDIR-FUNCNAME.
          ELSE .
            CONTINUE .
          ENDIF .
        ELSE .
          I_FMODULE-NAME = WA_STOKEN-STR.
        ENDIF .
        I_FMODULE-LEVEL = P_LEVEL.
        APPEND  I_FMODULE.
      ENDIF .
    ENDIF .

  ENDLOOP .

ENDFORM . "DATA_SEARCH

*&--------------------------------------------------------------------&*
*& Form GET_ADDITIONAL_DATA &*
*&--------------------------------------------------------------------&*
*& &*
*&--------------------------------------------------------------------&*
FORM  GET_ADDITIONAL_DATA.

* data selection message to sap gui
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
  DESTINATION 'SAPGUI'
  KEEPING LOGICAL UNIT OF WORK
  EXPORTING
    TEXT                  = 'Get additional data'         "#EC NOTEXT
  EXCEPTIONS
    SYSTEM_FAILURE
    COMMUNICATION_FAILURE
    .                                                       "#EC *

  LOOP  AT  I_USEREXIT.

* Workflow
    IF  I_USEREXIT-TYPE  EQ  'WorkFlow' .
      CONTINUE .
    ENDIF .



* Enhancement data
    IF  I_USEREXIT-TYPE  CS  'Enh' .
      CLEAR : WA_MODSAPA.
      SELECT  SINGLE  NAME INTO  WA_MODSAPA-NAME FROM  MODSAP
      WHERE  MEMBER = I_USEREXIT-TXT.
      CHECK  SY-SUBRC = 0 .
      I_USEREXIT-MODNAME = WA_MODSAPA-NAME.

      CLEAR  WA_MODSAPT.
      SELECT  SINGLE  MODTEXT INTO  WA_MODSAPT-MODTEXT FROM  MODSAPT
      WHERE  NAME = WA_MODSAPA-NAME
      AND  SPRSL = SY-LANGU.
      I_USEREXIT-MODTEXT = WA_MODSAPT-MODTEXT.

* Get the CMOD project name
      CLEAR  W_MOD.
      SELECT  SINGLE  MODACT~MEMBER MODACT~NAME MODATTR~STATUS
      MODATTR~ANAM MODATTR~ADAT
      INTO  W_MOD
      FROM  MODACT
      INNER JOIN  MODATTR
      ON  MODATTR~NAME = MODACT~NAME
      WHERE  MODACT~MEMBER = WA_MODSAPA-NAME
      AND  MODACT~TYP = SPACE.
      IF  SY-SUBRC = 0 .
        I_USEREXIT-MODATTR = W_MOD.
      ENDIF .
    ENDIF .


* BADI data
    IF  I_USEREXIT-TYPE  EQ  'BADI' .
      CLEAR  WA_SXS_ATTR.
      SELECT  SINGLE  EXIT_NAME INTO  WA_SXS_ATTR-EXIT_NAME FROM  SXS_ATTR
      WHERE  EXIT_NAME = I_USEREXIT-TXT.
      IF  SY-SUBRC = 0 .
        I_USEREXIT-MODNAME = I_USEREXIT-TXT.
      ELSE .
        I_USEREXIT-MODNAME = 'Dynamic call' .               "#EC NOTEXT
      ENDIF .
      CLEAR  WA_SXS_ATTRT.
      SELECT  SINGLE  TEXT  INTO  WA_SXS_ATTRT-TEXT  FROM  SXS_ATTRT
      WHERE  EXIT_NAME = WA_SXS_ATTR-EXIT_NAME
      AND  SPRSL = SY-LANGU.
      I_USEREXIT-MODTEXT = WA_SXS_ATTRT-TEXT .
    ENDIF .

* BADI Implementation
    IF  I_USEREXIT-TYPE  EQ  'BADI' .
      CLEAR  SXC_EXIT.
      SELECT  COUNT( * ) FROM  SXC_EXIT WHERE  EXIT_NAME = I_USEREXIT-TXT.
      W_CNT = SY-DBCNT.
* determine id BADI is for interal or external use
      CLEAR  SXS_ATTR.
      SELECT  SINGLE  * FROM  SXS_ATTR WHERE  EXIT_NAME = I_USEREXIT-TXT.
      IF  SXS_ATTR-INTERNAL = 'X' .
        WA_SXS_ATTRT-TEXT  = 'SAP ' .
      ELSE .
        WA_SXS_ATTRT-TEXT  = 'CUST' .
      ENDIF .
* concatenate wa_sxs_attrt-text w_cnt into i_userexit-modattr-name
* separated by space.
      WRITE  WA_SXS_ATTRT-TEXT  TO  I_USEREXIT-MODATTR-NAME.
      WRITE  W_CNT TO  I_USEREXIT-MODATTR-NAME+5 .
    ENDIF .

    MODIFY  I_USEREXIT.
  ENDLOOP .

* get enhancements via program package
  CLEAR  WA_TADIR.
  SELECT  SINGLE  DEVCLASS INTO  WA_TADIR-DEVCLASS FROM  TADIR
  WHERE  PGMID = 'R3TR'
  AND  OBJECT = 'PROG'
  AND  OBJ_NAME = P_PNAME.
  IF  SY-SUBRC = 0 .
    CLEAR : WA_MODSAPA, WA_MODSAPT.
    SELECT  NAME FROM  MODSAPA INTO  WA_MODSAPA-NAME
    WHERE  DEVCLASS = WA_TADIR-DEVCLASS.
      SELECT  SINGLE  MODTEXT FROM  MODSAPT INTO  WA_MODSAPT-MODTEXT
      WHERE  NAME = WA_MODSAPA-NAME
      AND  SPRSL = SY-LANGU.

      CLEAR  I_USEREXIT.
      READ  TABLE  I_USEREXIT WITH  KEY  MODNAME = WA_MODSAPA-NAME.
      IF  SY-SUBRC <> 0 .
        I_USEREXIT-MODTEXT = WA_MODSAPT-MODTEXT.
        I_USEREXIT-TYPE  = 'Enhancement' .                  "#EC NOTEXT
        I_USEREXIT-MODNAME = WA_MODSAPA-NAME.
        I_USEREXIT-TXT = 'Determined from program DevClass' . "#EC NOTEXT
        I_USEREXIT-PNAME = 'Unknown' .                      "#EC NOTEXT
        APPEND  I_USEREXIT.
      ENDIF .
    ENDSELECT .
  ENDIF .

* set row colour.
  LOOP  AT  I_USEREXIT.
    CASE  I_USEREXIT-TYPE .
    WHEN  'BADI' .
      I_USEREXIT-COLOUR = 'C601' .
    WHEN  'Enhancement' .
      I_USEREXIT-COLOUR = 'C501' .
    WHEN  'Program Exit' .
      I_USEREXIT-COLOUR = 'C401' .
    WHEN  'WorkFlow' .
      I_USEREXIT-COLOUR = 'C301' .
    WHEN  'BusTrEvent' .
      I_USEREXIT-COLOUR = 'C201' .
    ENDCASE .
    MODIFY  I_USEREXIT.
  ENDLOOP .

ENDFORM . "GET_ADDITIONAL_DATA

*&--------------------------------------------------------------------&*
*& Form DATA_DISPLAY &*
*&--------------------------------------------------------------------&*
*& &*
*&--------------------------------------------------------------------&*
FORM  DATA_DISPLAY.

* data selection message to sap gui
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
  DESTINATION 'SAPGUI'
  KEEPING LOGICAL UNIT OF WORK
  EXPORTING
    TEXT                  = 'Prepare screen for display'  "#EC NOTEXT
  EXCEPTIONS
    SYSTEM_FAILURE
    COMMUNICATION_FAILURE
    .                                                       "#EC *

  SORT  I_USEREXIT BY  TYPE  TXT MODNAME.
  DELETE  ADJACENT  DUPLICATES  FROM  I_USEREXIT COMPARING  TXT PNAME MODNAME.

* ensure records selected.
  DESCRIBE  TABLE  I_USEREXIT LINES  W_LINNUM.
  IF  W_LINNUM = 0 .
    MESSAGE  S003(G00). "No data records were selected
    EXIT .
  ENDIF .

  IF  P_ALV = ' ' .

* format headings
    WRITE : 'Enhancements from main program: ' , P_PNAME.
    WRITE : 'Enhancements from TCode: ' , P_TCODE.
    WRITE : 201'' .
    ULINE .
    FORMAT  COLOR  COL_HEADING.
    WRITE : / SY-VLINE,
    (12) C_COL1, "Enhanmt Type
    SY-VLINE,
    (40) C_COL2, "Enhancement
    SY-VLINE,
    (30) C_COL3, "Program/Include
    SY-VLINE,
    (20) C_COL4, "Enhancement name
    SY-VLINE,
    (40) C_COL5, "Enhancement description
    SY-VLINE,
    (8) C_COL6, "Project
    SY-VLINE,
    (1) C_COL7, "S
    SY-VLINE,
    (12) C_COL8, "ChangeName
    SY-VLINE,
    (10) C_COL9, "ChangeDate
    SY-VLINE.
    FORMAT  RESET .
    ULINE .

* format lines
    LOOP  AT  I_USEREXIT.
* set line colour
      CASE  I_USEREXIT-TYPE .
      WHEN  'Enhancement' .
        FORMAT  COLOR  3  INTENSIFIED  OFF.
      WHEN  'BADI' .
        FORMAT  COLOR  4  INTENSIFIED  OFF.
      WHEN  'BusTrEvent' .
        FORMAT  COLOR  5  INTENSIFIED  OFF.
      WHEN  'Program Exit' .
        FORMAT  COLOR  6  INTENSIFIED  OFF.
      WHEN  OTHERS .
        FORMAT  RESET .
      ENDCASE .
      WRITE : / SY-VLINE,
      I_USEREXIT-TYPE ,
      SY-VLINE,
      I_USEREXIT-TXT(40),
      SY-VLINE,
      I_USEREXIT-PNAME(30),
      SY-VLINE,
      I_USEREXIT-MODNAME(20),
      SY-VLINE,
      I_USEREXIT-MODTEXT(40),
      SY-VLINE.

      WRITE : I_USEREXIT-MODATTR-NAME,
      SY-VLINE,
      I_USEREXIT-MODATTR-STATUS,
      SY-VLINE,
      I_USEREXIT-MODATTR-ANAM,
      SY-VLINE,
      I_USEREXIT-MODATTR-ADAT NO-ZERO,
      SY-VLINE.
      HIDE : I_USEREXIT-MODNAME, I_USEREXIT-TYPE , I_USEREXIT-MODATTR-NAME.

    ENDLOOP .
    FORMAT  RESET .
    ULINE .

* user-exits from development class of function modules
    IF  P_DEVC = C_X.
      WRITE : /.
      WRITE : / C_DEVC.
      WRITE : 201'' .
      ULINE  (90).
      WRITE : 201'' .

      LOOP  AT  I_DEVCLASS.
        CLEAR  WA_MODSAPA.
        SELECT  NAME FROM  MODSAPA INTO  WA_MODSAPA
        WHERE  DEVCLASS = I_DEVCLASS-CLAS.
          SELECT  SINGLE  NAME MODTEXT INTO  CORRESPONDING FIELDS  OF  WA_MODSAPT
          FROM  MODSAPT
          WHERE  NAME = WA_MODSAPA-NAME
          AND  SPRSL = SY-LANGU.
          FORMAT  COLOR  3  INTENSIFIED  OFF.
          WRITE : / SY-VLINE,
          (12) 'Enhancement' ,
          SY-VLINE,
          WA_MODSAPA-NAME,
          SY-VLINE,
          WA_MODSAPT-MODTEXT,
          SY-VLINE.
        ENDSELECT .
      ENDLOOP .
      WRITE : 201'' .
      ULINE  (90).
      FORMAT  RESET .
    ENDIF .

* display fuction modules used in program
    WRITE  /.
    DESCRIBE  TABLE  I_FMODULE LINES  W_LINNUM.
    WRITE : / C_FMOD , AT  35  W_LINNUM.                    "#EC NOTEXT
    WRITE : 201'' .

    IF  P_FUNC = C_X.
      ULINE  (38).
      WRITE : 201'' .
      LOOP  AT  I_FMODULE.
        WRITE : SY-VLINE,
        I_FMODULE-NAME,
        SY-VLINE,
        I_FMODULE-BAPI,
        SY-VLINE.
        WRITE : 201'' .
      ENDLOOP .
      WRITE : 201'' .
      ULINE  (38).
    ENDIF .

* display submit programs used in program
    WRITE  /.
    DESCRIBE  TABLE  I_SUBMIT LINES  W_LINNUM.
    WRITE : / C_SUBM , AT  35  W_LINNUM.                    "#EC NOTEXT
    WRITE : 201'' .
    IF  P_SUBM = C_X.
      ULINE  (44).
      WRITE : 201'' .
      LOOP  AT  I_SUBMIT.
        WRITE : SY-VLINE,
        I_SUBMIT-PNAME,
        SY-VLINE.
        WRITE : 201'' .
      ENDLOOP .
      WRITE : 201'' .
      ULINE  (44).
    ENDIF .

* issue message with number of user-exits displayed
    DESCRIBE  TABLE  I_USEREXIT LINES  W_LINNUM.
    MESSAGE  S697(56) WITH  W_LINNUM.

  ELSE . " Show in alv format

* issue message with number of user-exits displayed
    DESCRIBE  TABLE  I_USEREXIT LINES  W_LINNUM.
    MESSAGE  S697(56) WITH  W_LINNUM.

* Create field catalog
    PERFORM  CREATE_FIELD_CATALOG USING  'TYPE'  'T_USEREXIT'  ' '  'Type' .
    PERFORM  CREATE_FIELD_CATALOG USING  'PNAME'  'T_USEREXIT'  ' '  'Prog#am name' .
    PERFORM  CREATE_FIELD_CATALOG USING  'TXT'  'T_USEREXIT'  ' '  'Enhancement' .
    PERFORM  CREATE_FIELD_CATALOG USING  'LEVEL'  'T_USEREXIT'  C_X 'Level' .
    PERFORM  CREATE_FIELD_CATALOG USING  'MODNAME'  'T_USEREXIT'  ' '  'Enhancement name' .
    PERFORM  CREATE_FIELD_CATALOG USING  'MODTEXT'  'T_USEREXIT'  ' '  'Enhancement text' .
    PERFORM  CREATE_FIELD_CATALOG USING  'MODATTR-MEMBER'  'T_USEREXIT'  C_X 'Member' .
    PERFORM  CREATE_FIELD_CATALOG USING  'MODATTR-NAME'  'T_USEREXIT'  ' '  'Project' .
    PERFORM  CREATE_FIELD_CATALOG USING  'MODATTR-STATUS'  'T_USEREXIT'  ' '  'Status' .
    PERFORM  CREATE_FIELD_CATALOG USING  'MODATTR-ANAM'  'T_USEREXIT'  ' '  'Changed by' .
    PERFORM  CREATE_FIELD_CATALOG USING  'MODATTR-ADAT'  'T_USEREXIT'  ' '  'Change date' .

* Layout
    CLEAR  I_LAYOUT.
    I_LAYOUT-COLWIDTH_OPTIMIZE = C_X.
    I_LAYOUT-INFO_FIELDNAME = 'COLOUR' .

* Sort
    CLEAR  I_SORT.
    I_SORT-FIELDNAME = 'TYPE' .
    I_SORT-TABNAME = 'T_USEREXIT' .
    I_SORT-UP  = C_X.
    APPEND  I_SORT.

    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM      = SY-CPROG
      I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
      IS_LAYOUT               = I_LAYOUT
      IT_FIELDCAT             = I_FIELDCAT[]
      IT_SORT                 = I_SORT[]
      I_DEFAULT               = C_X
      I_SAVE                  = 'A'
      I_GRID_TITLE            = W_GRIDTXT
    TABLES
      T_OUTTAB                = I_USEREXIT.

  ENDIF .

* issue message with number of user-exits displayed
  DESCRIBE  TABLE  I_USEREXIT LINES  W_LINNUM.
  MESSAGE  S697(56) WITH  W_LINNUM.

ENDFORM . "DATA_DISPLAY

*&---------------------------------------------------------------------&*
*& Form CREATE_FIELD_CATALOG &*
*&---------------------------------------------------------------------&*
FORM  CREATE_FIELD_CATALOG USING  P_FIELDNAME
      P_TABNAME
      P_HIDE
      P_TEXT.

  I_FIELDCAT-FIELDNAME = P_FIELDNAME.
  I_FIELDCAT-TABNAME = P_TABNAME.
  I_FIELDCAT-NO_OUT = P_HIDE.
  I_FIELDCAT-SELTEXT_L = P_TEXT.

  APPEND  I_FIELDCAT.

ENDFORM . " CREATE_FIELD_CATALOG

*&---------------------------------------------------------------------&*
*& Form CREATE_FIELD_CATALOG &*
*&---------------------------------------------------------------------&*
FORM  USER_COMMAND USING  R_UCOMM LIKE  SY-UCOMM
      RS_SELFIELD TYPE  SLIS_SELFIELD.
  READ  TABLE  I_USEREXIT INDEX  RS_SELFIELD-TABINDEX.
  CHECK  SY-SUBRC = 0 .
  CASE  R_UCOMM.
  WHEN  '&IC1' .
    CASE  RS_SELFIELD-SEL_TAB_FIELD.
    WHEN  'T_USEREXIT-MODNAME' .
      READ  TABLE  I_USEREXIT INDEX  RS_SELFIELD-TABINDEX.
      CASE  I_USEREXIT-TYPE .
      WHEN  'Enhancement' .
        SET  PARAMETER  ID  'MON'  FIELD  I_USEREXIT-MODNAME.
        CALL  TRANSACTION  'SMOD' .
      WHEN  'BADI' .
        SET  PARAMETER  ID  'EXN'  FIELD  I_USEREXIT-MODNAME.
        CALL  TRANSACTION  'SE18'  AND  SKIP  FIRST  SCREEN .
      WHEN  'BusTrEvent' .
        SUBMIT  RFOPFI00 WITH  EVENT  = I_USEREXIT-MODNAME(8) AND  RETURN .
      WHEN  OTHERS .
        MESSAGE  S030(CJ). "Navigation not possible
      ENDCASE .
    WHEN  'T_USEREXIT-MODATTR-NAME' .
      IF  NOT  I_USEREXIT-MODATTR-NAME IS  INITIAL .
        SET  PARAMETER  ID  'MON_KUN'  FIELD  I_USEREXIT-MODATTR-NAME.
        CALL  TRANSACTION  'CMOD' .
      ELSE .
        MESSAGE  S030(CJ)."Navigation not possible
      ENDIF .
    WHEN  OTHERS .
      MESSAGE  S030(CJ)."Navigation not possible
    ENDCASE .
  ENDCASE .

ENDFORM . "user_command

*&--------------------------------------------------------------------&*
*& AT LINE-SELECTION #*
*&--------------------------------------------------------------------&*
AT  LINE-SELECTION.

GET  CURSOR  FIELD  W_FSEL.

CASE  W_FSEL.

WHEN  'I_USEREXIT-MODNAME' .
  CASE  I_USEREXIT-TYPE .
  WHEN  'Enhancement' .
    SET  PARAMETER  ID  'MON'  FIELD  I_USEREXIT-MODNAME.
    CALL  TRANSACTION  'SMOD' .
  WHEN  'BADI' .
    SET  PARAMETER  ID  'EXN'  FIELD  I_USEREXIT-MODNAME.
    CALL  TRANSACTION  'SE18'  AND  SKIP  FIRST  SCREEN .
  WHEN  'BusTrEvent' .
    SUBMIT  RFOPFI00 WITH  EVENT  = I_USEREXIT-MODNAME(8) AND  RETURN .
  WHEN  OTHERS .
    MESSAGE  S030(CJ)."Navigation not possible
  ENDCASE .

WHEN  'I_USEREXIT-MODATTR-NAME' .
  IF  NOT  I_USEREXIT-MODATTR-NAME IS  INITIAL .
    SET  PARAMETER  ID  'MON_KUN'  FIELD  I_USEREXIT-MODATTR-NAME.
    CALL  TRANSACTION  'CMOD' .
  ELSE .
    MESSAGE  S030(CJ)."Navigation not possible
  ENDIF .

WHEN  OTHERS .
  MESSAGE  S030(CJ)."Navigation not possible

ENDCASE .

*&--------------------------------------------------------------------&*
*& AT SELECTION-SCREEN &*
*&--------------------------------------------------------------------&*
AT  SELECTION-SCREEN  ON  RADIOBUTTON  GROUP  RAD1.

* grey-out checkboxes if ALV selected
AT  SELECTION-SCREEN  OUTPUT .
LOOP  AT  SCREEN .
  IF  P_ALV = C_X.
    IF  SCREEN-GROUP1 = 'A01' .
      SCREEN-INPUT  = '0' .
      MODIFY  SCREEN .
    ENDIF .
  ELSE .
    IF  SCREEN-GROUP1 = 'A01' .
      SCREEN-INPUT  = '1' .
      MODIFY  SCREEN .
    ENDIF .
  ENDIF .
ENDLOOP .