个人收藏查看程序或者tcode的badis 或者 exits

最新推荐文章于 2025-09-02 10:29:40 发布

翻译最新推荐文章于 2025-09-02 10:29:40 发布 · 554 阅读

文章标签：

#object

SAP＆ABAP 专栏收录该内容

56 篇文章

订阅专栏

本文介绍了一个ABAP程序，该程序用于检索与特定事务代码或程序名称相关的用户退出(User Exit)和业务添加(Business Add-In)。程序通过查询多个ABAP表来收集信息，并展示如何根据不同条件筛选并显示这些退出点。

SPAN { font-family: "MS Gothic"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style: italic; color: #808080; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } REPORT   ZTEST_XXX_0001.

TABLES : TSTC, TADIR, MODSAPT, MODACT, TRDIR,
  TFDIR, ENLFDIR, SXS_ATTRT , TSTCT.
DATA : JTAB LIKE TADIR OCCURS 0 WITH HEADER LINE .
DATA : FIELD1(30 ).
DATA : V_DEVCLASS LIKE TADIR-DEVCLASS.

PARAMETERS : P_TCODE LIKE TSTC-TCODE, P_PGMNA LIKE TSTC-PGMNA .

DATA WA_TADIR TYPE TADIR.

START-OF -SELECTION.
  IF NOT P_TCODE IS INITIAL .
    SELECT
SINGLE * FROM TSTC WHERE TCODE EQ P_TCODE.
  ELSEIF NOT P_PGMNA IS INITIAL .
    TSTC-PGMNA = P_PGMNA.
  ENDIF .
  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 EQ ENLFDIR-AREA.
        MOVE : TADIR-DEVCLASS TO V_DEVCLASS.

      ENDIF .
    ENDIF .

    SELECT * FROM TADIR
      INTO TABLE JTAB
      WHERE PGMID = 'R3TR'
      AND OBJECT IN ('SMOD' , 'SXSD' )
      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 :/(19 ) 'Transaction Code - ' , 20 (20 )
          P_TCODE, 45 (50 ) TSTCT-TTEXT. SKIP .
    IF NOT JTAB[] IS INITIAL .
      WRITE :/(105 ) SY-ULINE . FORMAT COLOR COL_HEADING INTENSIFIED ON .
* SORTING THE INTERNAL TABLE SORT JTAB BY OBJECT.
      DATA : WF_TXT(60 ) TYPE C , WF_SMOD TYPE I ,
             WF_BADI TYPE I , WF_OBJECT2(30 ) TYPE C .
      CLEAR : WF_SMOD, WF_BADI , WF_OBJECT2.
*GET THE TOTAL SMOD.
      LOOP AT JTAB INTO WA_TADIR.
        AT FIRST .
          FORMAT COLOR COL_HEADING INTENSIFIED ON .
          WRITE :/1 SY-VLINE, 2 'Enhancement/ Business Add-in' , 41
          SY-VLINE ,
           42 'Description' , 105 SY-VLINE. WRITE :/(105 ) SY-ULINE .
        ENDAT .

        CLEAR WF_TXT.

        AT NEW OBJECT.
          IF WA_TADIR-OBJECT = 'SMOD' .
            WF_OBJECT2 = 'Enhancement' .
          ELSEIF
            WA_TADIR-OBJECT = 'SXSD' .
            WF_OBJECT2 = ' Business Add-in' .
          ENDIF .
          FORMAT COLOR COL_GROUP INTENSIFIED ON .
          WRITE :/1 SY-VLINE, 2 WF_OBJECT2, 105 SY-VLINE.
        ENDAT .
        CASE WA_TADIR-OBJECT.
          WHEN 'SMOD' .
            WF_SMOD = WF_SMOD + 1 .
            SELECT SINGLE MODTEXT INTO WF_TXT
              FROM MODSAPT
              WHERE SPRSL = SY-LANGU
              AND NAME = WA_TADIR-OBJ_NAME.

            FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
          WHEN 'SXSD' .
* FOR BADIS WF_BADI = WF_BADI + 1 .
            SELECT SINGLE TEXT
              INTO WF_TXT
              FROM SXS_ATTRT
              WHERE SPRSL = SY-LANGU
              AND EXIT_NAME = WA_TADIR-OBJ_NAME.
            FORMAT COLOR COL_NORMAL INTENSIFIED ON .
        ENDCASE .
        WRITE :/1 SY-VLINE, 2 WA_TADIR-OBJ_NAME
        HOTSPOT ON , 41 SY-VLINE
        , 42 WF_TXT, 105 SY-VLINE.
        AT END OF OBJECT. WRITE : /(105 ) SY-ULINE . ENDAT .
      ENDLOOP .
      WRITE :/(105 ) SY-ULINE . SKIP .
       FORMAT COLOR COL_TOTAL INTENSIFIED ON .
      WRITE :/ 'No.of Exits:' , WF_SMOD.
      WRITE :/ 'No.of BADis:' , WF_BADI    .
    ELSE .
      FORMAT COLOR COL_NEGATIVE INTENSIFIED ON . WRITE :/(105 )
      'No userexits or BADis exist' .
    ENDIF .
  ELSE .
    FORMAT COLOR COL_NEGATIVE INTENSIFIED ON .
    WRITE :/(105 ) 'Transaction does not exist' .
  ENDIF .

AT LINE -SELECTION.
  DATA : WF_OBJECT TYPE TADIR-OBJECT.
  CLEAR WF_OBJECT. GET CURSOR FIELD
  FIELD1.

   CHECK FIELD1(8 ) EQ 'WA_TADIR' .

   READ TABLE JTAB WITH KEY
  OBJ_NAME = SY-LISEL+1 (20 ).

  MOVE JTAB-OBJECT TO WF_OBJECT.

  CASE WF_OBJECT.
    WHEN 'SMOD' .
      SET PARAMETER ID 'MON' FIELD   SY-LISEL+1 (10 ).
      CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN .
    WHEN   'SXSD' .
      SET PARAMETER ID 'EXN' FIELD SY-LISEL+1 (20 ).
      CALL TRANSACTION   'SE18' AND SKIP FIRST SCREEN .
  ENDCASE .