SAP 根据TCODE查找增强出口(用代码)

运行程序，输入t-code，在第一个模Exit Name 就是出口增强，后面的是Badi增强。

查看描述寻找需要的出口。

REPORT  ZBB_FIND_EXIT

NO  STANDARD  PAGE HEADING  LINE-SIZE  255 .

TABLES  : TSTC ,      "SAP Transaction Codes(SAP 事务代码)
         TADIR ,     "Directory of Repository Objects(资源库对象的目录)
         MODSAPT ,   "SAP Enhancements - Short Texts(SAP增强-短文件)
         SXS_ATTRT , "Exit: Definition side: Attributes, Text table
         MODACT ,    "Modifications(修正)
         TRDIR ,     "System table TRDIR(系统表 TRDIR)
         TFDIR ,     "Function Module(功能模块)
         ENLFDIR ,   "Additional Attributes for Function Modules(功能模块的附加属性)
         TSTCT .     "Transaction Code Texts(事务代码文本)

DATA  : JTAB  LIKE TADIR  OCCURS  0  WITH  HEADER  LINE .  "SMOD
DATA  : ITAB  LIKE TADIR  OCCURS  0  WITH  HEADER  LINE .  "SE18-BADI
DATA  : KTAB  LIKE TADIR  OCCURS  0  WITH  HEADER  LINE .  "Enhancement implementation-ENHO
DATA  : LTAB  LIKE TADIR  OCCURS  0  WITH  HEADER  LINE .  "Enhancement Spot-ENHS
DATA  : MTAB  LIKE TADIR  OCCURS  0  WITH  HEADER  LINE .  "Composite Enhancement implementation-ENHC
DATA  : FIELD1 ( 30 ) .
DATA  : V_DEVCLASS  LIKE TADIR -DEVCLASS .
DATA  : T_COUNT  LIKE SY -TFILL .
DATA : BDCDATA_WA   TYPE BDCDATA ,
      BDCDATA_TAB  TYPE  TABLE  OF BDCDATA .

DATA OPT  TYPE CTU_PARAMS .


SELECTION-SCREEN  BEGIN  OF  BLOCK A01  WITH  FRAME  TITLE  TEXT - 001 .
SELECTION-SCREEN  SKIP .
PARAMETERS  : P_TCODE  LIKE TSTC -TCODE OBLIGATORY .
SELECTION-SCREEN  SKIP .
SELECTION-SCREEN  END  OF  BLOCK A01 .


START-OF-SELECTION .
   CLEAR : ITAB ,JTAB .
   REFRESH :ITAB ,JTAB .
   SELECT  SINGLE *  FROM TSTC  WHERE TCODE  EQ P_TCODE .
   IF SY -SUBRC  EQ  0 .
     SELECT  SINGLE *  FROM TADIR
        WHERE PGMID     =  'R3TR'
          AND OBJECT    =  'PROG'
          AND OBJ_NAME  = TSTC -PGMNA .

     MOVE  : TADIR -DEVCLASS  TO V_DEVCLASS .
     IF SY -SUBRC  NE  0 .
       SELECT  SINGLE *  FROM TRDIR
          WHERE NAME  = TSTC -PGMNA .
       IF TRDIR -SUBC  EQ  'F' .
         SELECT  SINGLE *  FROM TFDIR
           WHERE PNAME  = TSTC -PGMNA .
         SELECT  SINGLE *  FROM ENLFDIR
           WHERE FUNCNAME  = TFDIR -FUNCNAME .
         SELECT  SINGLE *  FROM TADIR
           WHERE PGMID     =  'R3TR'
             AND OBJECT    =  'FUGR'
             AND OBJ_NAME  = ENLFDIR -AREA .
         MOVE  : TADIR -DEVCLASS  TO V_DEVCLASS .
       ENDIF .
     ENDIF .

     SELECT *  FROM TADIR
       INTO  TABLE JTAB
       WHERE PGMID     =  'R3TR'
         AND OBJECT    =  'SMOD'
         AND DEVCLASS  = V_DEVCLASS .
     SELECT *  FROM TADIR
       INTO  TABLE ITAB
       WHERE PGMID     =  'R3TR'
         AND OBJECT    =  'SXSD'
         AND DEVCLASS  = V_DEVCLASS .
     SELECT *  FROM TADIR
       INTO  TABLE KTAB
       WHERE PGMID     =  'R3TR'
         AND OBJECT    =  'ENHO'
         AND DEVCLASS  = V_DEVCLASS .
     SELECT *  FROM TADIR
       INTO  TABLE LTAB
       WHERE PGMID     =  'R3TR'
         AND OBJECT    =  'ENHS'
         AND DEVCLASS  = V_DEVCLASS .
     SELECT *  FROM TADIR
       INTO  TABLE MTAB
       WHERE PGMID     =  'R3TR'
         AND OBJECT    =  'ENHC'
         AND DEVCLASS  = V_DEVCLASS .

     SELECT  SINGLE *  FROM TSTCT
       WHERE SPRSL  EQ SY -LANGU
         AND TCODE  EQ P_TCODE .


     FORMAT  COLOR COL_POSITIVE  INTENSIFIED OFF .
     WRITE :/ ( 12 )  '事务代码 - ' ,
     13 ( 20 ) P_TCODE ,
     34 ( 10 )  '功能 - '  ,
     45 ( 50 ) TSTCT -TTEXT .
     SKIP .
     IF  NOT JTAB[]  IS  INITIAL .
       WRITE :/ ( 117 ) SY - ULINE .
       FORMAT  COLOR COL_HEADING  INTENSIFIED  ON .
       WRITE :/1 SY -VLINE ,
       2  'Exit Name' ,
       43 SY -VLINE  ,
       44  'Description' ,
       117 SY -VLINE .
       WRITE :/ ( 117 ) SY - ULINE .

       LOOP  AT JTAB .
         CLEAR MODSAPT .
         SELECT  SINGLE *  FROM MODSAPT
         WHERE SPRSL  = SY -LANGU  AND
        NAME  = JTAB -OBJ_NAME .
         FORMAT  COLOR  COL_NORMAL  INTENSIFIED OFF .
         WRITE :/1 SY -VLINE ,
         2 JTAB -OBJ_NAME  HOTSPOT  ON ,
         43 SY -VLINE  ,
         44 MODSAPT -MODTEXT ,
         117 SY -VLINE .
       ENDLOOP .
       WRITE :/ ( 117 ) SY - ULINE .
       FORMAT  COLOR COL_HEADING  INTENSIFIED  ON .
       WRITE :/1 SY -VLINE ,
       2  'Badi Name(definition)' ,
       43 SY -VLINE  ,
       44  'Description' ,
       117 SY -VLINE .
       WRITE :/ ( 117 ) SY - ULINE .
       LOOP  AT ITAB .
         CLEAR SXS_ATTRT .
         SELECT  SINGLE *  FROM SXS_ATTRT
         WHERE SPRSL  = SY -LANGU  AND
        EXIT_NAME  = ITAB -OBJ_NAME .
         FORMAT  COLOR  COL_NORMAL  INTENSIFIED OFF .
         WRITE :/1 SY -VLINE ,
         2 ITAB -OBJ_NAME  HOTSPOT  ON ,
         43 SY -VLINE  ,
         44 SXS_ATTRT - TEXT ,
         117 SY -VLINE .
       ENDLOOP .

       WRITE :/ ( 117 ) SY - ULINE .
       FORMAT  COLOR COL_HEADING  INTENSIFIED  ON .
       WRITE :/1 SY -VLINE ,
       2  'Enhancement Implementation' ,
       43 SY -VLINE  ,
       44  'Description' ,
       117 SY -VLINE .
       WRITE :/ ( 117 ) SY - ULINE .
       LOOP  AT KTAB .
         CLEAR SXS_ATTRT .
         SELECT  SINGLE *  FROM SXS_ATTRT
         WHERE SPRSL  = SY -LANGU  AND
        EXIT_NAME  = KTAB -OBJ_NAME .
         FORMAT  COLOR  COL_NORMAL  INTENSIFIED OFF .
         WRITE :/1 SY -VLINE ,
         2 KTAB -OBJ_NAME  HOTSPOT  ON ,
         43 SY -VLINE  ,
         44 SXS_ATTRT - TEXT ,
         117 SY -VLINE .
       ENDLOOP .

       WRITE :/ ( 117 ) SY - ULINE .
       FORMAT  COLOR COL_HEADING  INTENSIFIED  ON .
       WRITE :/1 SY -VLINE ,
       2  'Enhancement Spot' ,
       43 SY -VLINE  ,
       44  'Description' ,
       117 SY -VLINE .
       WRITE :/ ( 117 ) SY - ULINE .
       LOOP  AT LTAB .
         CLEAR SXS_ATTRT .
         SELECT  SINGLE *  FROM SXS_ATTRT
         WHERE SPRSL  = SY -LANGU  AND
        EXIT_NAME  = LTAB -OBJ_NAME .
         FORMAT  COLOR  COL_NORMAL  INTENSIFIED OFF .
         WRITE :/1 SY -VLINE ,
         2 LTAB -OBJ_NAME  HOTSPOT  ON ,
         43 SY -VLINE  ,
         44 SXS_ATTRT - TEXT ,
         117 SY -VLINE .
       ENDLOOP .

       WRITE :/ ( 117 ) SY - ULINE .
       FORMAT  COLOR COL_HEADING  INTENSIFIED  ON .
       WRITE :/1 SY -VLINE ,
       2  'Composite Enhancement Implementation' ,
       43 SY -VLINE  ,
       44  'Description' ,
       117 SY -VLINE .
       WRITE :/ ( 117 ) SY - ULINE .
       LOOP  AT MTAB .
         CLEAR SXS_ATTRT .
         SELECT  SINGLE *  FROM SXS_ATTRT
         WHERE SPRSL  = SY -LANGU  AND
        EXIT_NAME  = MTAB -OBJ_NAME .
         FORMAT  COLOR  COL_NORMAL  INTENSIFIED OFF .
         WRITE :/1 SY -VLINE ,
         2 MTAB -OBJ_NAME  HOTSPOT  ON ,
         43 SY -VLINE  ,
         44 SXS_ATTRT - TEXT ,
         117 SY -VLINE .
       ENDLOOP .


       WRITE :/ ( 117 ) SY - ULINE .
       CLEAR T_COUNT .
       DESCRIBE  TABLE JTAB .
      T_COUNT  = SY -TFILL .
       DESCRIBE  TABLE ITAB .
      T_COUNT  = T_COUNT + SY -TFILL .
       DESCRIBE  TABLE KTAB .
      T_COUNT  = T_COUNT + SY -TFILL .
       DESCRIBE  TABLE LTAB .
      T_COUNT  = T_COUNT + SY -TFILL .
       DESCRIBE  TABLE MTAB .
      T_COUNT  = T_COUNT + SY -TFILL .

       SKIP .
       FORMAT  COLOR COL_TOTAL  INTENSIFIED  ON .
       WRITE :/  '用户出口数量:'  , T_COUNT .
     ELSE .
       FORMAT  COLOR  COL_NEGATIVE  INTENSIFIED  ON .
       WRITE :/ ( 95 )  '此TCode没有用户出口！' .
     ENDIF .
   ELSE .
     FORMAT  COLOR  COL_NEGATIVE  INTENSIFIED  ON .
     WRITE :/ ( 95 )  '事务代码不存在！' .
   ENDIF .

AT  LINE-SELECTION .
   GET  CURSOR  FIELD FIELD1 .
   IF FIELD1 ( 4 )  EQ  'JTAB' .
     SET  PARAMETER  ID  'MON'  FIELD SY -LISEL+1 ( 10 ) .
     CALL  TRANSACTION  'SMOD'  AND  SKIP  FIRST  SCREEN .
   ELSEIF FIELD1 ( 4 )  EQ  'ITAB' .
*    SET PARAMETER ID 'EXN' FIELD sy-lisel+1(40).
*    CALL TRANSACTION 'SE18' AND SKIP FIRST SCREEN.
     CLEAR BDCDATA_WA .
    BDCDATA_WA - PROGRAM   =  'SAPLSEXO' .
    BDCDATA_WA - DYNPRO    =  '0100' .
    BDCDATA_WA -DYNBEGIN  =  'X' .
     APPEND BDCDATA_WA  TO BDCDATA_TAB .

     CLEAR BDCDATA_WA .
    BDCDATA_WA -FNAM  =  'BDC_CURSOR' .
    BDCDATA_WA -FVAL  =  'G_ENHSPOTNAME' .
     APPEND BDCDATA_WA  TO BDCDATA_TAB .

     CLEAR BDCDATA_WA .
    BDCDATA_WA -FNAM  =  'G_IS_BADI' .
    BDCDATA_WA -FVAL  =  'X' .
     APPEND BDCDATA_WA  TO BDCDATA_TAB .

     CLEAR BDCDATA_WA .
    BDCDATA_WA -FNAM  =  'BDC_OKCODE' .
    BDCDATA_WA -FVAL  =  '=ISSPOT' .
     APPEND BDCDATA_WA  TO BDCDATA_TAB .

     CLEAR BDCDATA_WA .
    BDCDATA_WA - PROGRAM   =  'SAPLSEXO' .
    BDCDATA_WA - DYNPRO    =  '0100' .
    BDCDATA_WA -DYNBEGIN  =  'X' .
     APPEND BDCDATA_WA  TO BDCDATA_TAB .

     CLEAR BDCDATA_WA .
    BDCDATA_WA -FNAM  =  'BDC_CURSOR' .
    BDCDATA_WA -FVAL  =  'G_BADINAME' .
     APPEND BDCDATA_WA  TO BDCDATA_TAB .
     CLEAR BDCDATA_WA .

    BDCDATA_WA -FNAM  =  'G_BADINAME' .
    BDCDATA_WA -FVAL  = SY -LISEL+1 ( 40 ) .
     APPEND BDCDATA_WA  TO BDCDATA_TAB .

    OPT -DISMODE  =  'E' .
    OPT -DEFSIZE  =  'X' .

     CALL  TRANSACTION  'SE18'  USING BDCDATA_TAB OPTIONS  FROM OPT .
     REFRESH BDCDATA_TAB .
   ELSEIF FIELD1 ( 4 )  EQ  'KTAB' .
*    SET PARAMETER ID 'IMN_BADI' FIELD sy-lisel+1(40).
*    CALL TRANSACTION 'SE19' AND SKIP FIRST SCREEN.
     CLEAR BDCDATA_WA .
    BDCDATA_WA - PROGRAM   =  'SAPLENHANCEMENTS' .
    BDCDATA_WA - DYNPRO    =  '0100' .
    BDCDATA_WA -DYNBEGIN  =  'X' .
     APPEND BDCDATA_WA  TO BDCDATA_TAB .

     CLEAR BDCDATA_WA .
    BDCDATA_WA -FNAM  =  'BDC_CURSOR' .
    BDCDATA_WA -FVAL  =  'RSEUX-CXH_VALUE' .
     APPEND BDCDATA_WA  TO BDCDATA_TAB .

     CLEAR BDCDATA_WA .
    BDCDATA_WA -FNAM  =  'RSEUX-CXH' .
    BDCDATA_WA -FVAL  =  'X' .
     APPEND BDCDATA_WA  TO BDCDATA_TAB .

     CLEAR BDCDATA_WA .
    BDCDATA_WA -FNAM  =  'RSEUX-CXH_VALUE' .
    BDCDATA_WA -FVAL  = SY -LISEL+1 ( 40 ) .
     APPEND BDCDATA_WA  TO BDCDATA_TAB .

*    CLEAR bdcdata_wa.
*    bdcdata_wa-fnam = 'BDC_OKCODE'.
*    bdcdata_wa-fval = '/00'.
*    APPEND bdcdata_wa TO bdcdata_tab.

    OPT -DISMODE  =  'E' .
    OPT -DEFSIZE  =  'X' .

     CALL  TRANSACTION  'SE20'  USING BDCDATA_TAB OPTIONS  FROM OPT .
     REFRESH BDCDATA_TAB .
   ELSEIF FIELD1 ( 4 )  EQ  'LTAB' .
*    SET PARAMETER ID 'ENHSPOT' FIELD sy-lisel+1(40).
*    CALL TRANSACTION 'SE18' AND SKIP FIRST SCREEN.
     CLEAR BDCDATA_WA .
    BDCDATA_WA - PROGRAM   =  'SAPLENHANCEMENTS' .
    BDCDATA_WA - DYNPRO    =  '0100' .
    BDCDATA_WA -DYNBEGIN  =  'X' .
     APPEND BDCDATA_WA  TO BDCDATA_TAB .

     CLEAR BDCDATA_WA .
    BDCDATA_WA -FNAM  =  'BDC_CURSOR' .
    BDCDATA_WA -FVAL  =  'RSEUX-C_XS_VALUE' .
     APPEND BDCDATA_WA  TO BDCDATA_TAB .

     CLEAR BDCDATA_WA .
    BDCDATA_WA -FNAM  =  'RSEUX-C_XS' .
    BDCDATA_WA -FVAL  =  'X' .
     APPEND BDCDATA_WA  TO BDCDATA_TAB .

     CLEAR BDCDATA_WA .
    BDCDATA_WA -FNAM  =  'RSEUX-C_XS_VALUE' .
    BDCDATA_WA -FVAL  = SY -LISEL+1 ( 40 ) .
     APPEND BDCDATA_WA  TO BDCDATA_TAB .

*    CLEAR bdcdata_wa.
*    bdcdata_wa-fnam = 'BDC_OKCODE'.
*    bdcdata_wa-fval = '/00'.
*    APPEND bdcdata_wa TO bdcdata_tab.

    OPT -DISMODE  =  'E' .
    OPT -DEFSIZE  =  'X' .

     CALL  TRANSACTION  'SE20'  USING BDCDATA_TAB OPTIONS  FROM OPT .
     REFRESH BDCDATA_TAB .
   ELSEIF FIELD1 ( 4 )  EQ  'MTAB' .
*    SET PARAMETER ID 'IMN_BADI' FIELD sy-lisel+1(40).
     CLEAR BDCDATA_WA .
    BDCDATA_WA - PROGRAM   =  'SAPLENHANCEMENTS' .
    BDCDATA_WA - DYNPRO    =  '0100' .
    BDCDATA_WA -DYNBEGIN  =  'X' .
     APPEND BDCDATA_WA  TO BDCDATA_TAB .

     CLEAR BDCDATA_WA .
    BDCDATA_WA -FNAM  =  'BDC_CURSOR' .
    BDCDATA_WA -FVAL  =  'RSEUX-CXT_VALUE' .
     APPEND BDCDATA_WA  TO BDCDATA_TAB .

     CLEAR BDCDATA_WA .
    BDCDATA_WA -FNAM  =  'RSEUX-CXT' .
    BDCDATA_WA -FVAL  =  'X' .
     APPEND BDCDATA_WA  TO BDCDATA_TAB .

     CLEAR BDCDATA_WA .
    BDCDATA_WA -FNAM  =  'RSEUX-CXT_VALUE' .
    BDCDATA_WA -FVAL  = SY -LISEL+1 ( 40 ) .
     APPEND BDCDATA_WA  TO BDCDATA_TAB .

     CLEAR BDCDATA_WA .
    BDCDATA_WA -FNAM  =  'BDC_OKCODE' .
    BDCDATA_WA -FVAL  =  '/00' .
     APPEND BDCDATA_WA  TO BDCDATA_TAB .

    OPT -DISMODE  =  'E' .
    OPT -DEFSIZE  =  'X' .

     CALL  TRANSACTION  'SE20'  USING BDCDATA_TAB OPTIONS  FROM OPT .
     REFRESH BDCDATA_TAB .
   ENDIF .