SAP查詢普通出口和BADI的程序

1、*&-* *& Report Z_USER_EXIT*& 查找事務(wù)代碼所在程序的用戶出口*&-* *&*&*&-* REPORT Z_USER_EXIT NO STANDARD PAGE HEADING.TABLES: TSTC , "SAPTransaction CodesTADIR , " Directory of Repository ObjectsMODSAPT , " SAP Enhancements - Short TextsSXS_ATTRT, " SAPBADI- short tex

2、tMODACT , " ModificationsTRDIR , " System table TRDIRTFDIR , " Function ModuleENLFDIR , " Additional Attributes for Function ModulesTSTCT . " Transaction Code Texts*&-* *& Variables*&-* DATA: JTAB LIKE TADIR OCCURS 0 WITH HEADER LINE.DATA: FIELD1(30.DATA: V_DEVCL

3、ASS LIKE TADIR-DEVCLASS.DATA: OBJECT LIKE TADIR-OBJECT.DATA: BDCDATA_WA TYPE BDCDATA,BDCDATA_TAB TYPE TABLE OF BDCDATA.DATA: OPT TYPE CTU_PARAMS.*&-* *& Selection Screen Parameters*&-* SELECTION-SCREEN BEGIN OF BLOCK A01 WITH FRAME. "TITLE text-001. SELECTION-SCREEN SKIP.PARAMETERS:

4、 P_TCODE LIKE TSTC-TCODE OBLIGATORY.SELECTION-SCREEN SKIP.PARAMETERS: EXIT RADIOBUTTON GROUP 1 DEFAULT 'X',BADI RADIOBUTTON GROUP 1.SELECTION-SCREEN END OF BLOCK A01.DEFINE BDC_PROGRAM.CLEAR BDCDATA_WA.BDCDATA_WA-PROGRAM = &1.BDCDATA_WA-DYNPRO = &2.BDCDATA_WA-DYNBEGIN = &3.APPEND

5、 BDCDATA_WA TO BDCDATA_TAB.END-OF-DEFINITION.DEFINE BDC_DETAIL.CLEAR BDCDATA_WA.BDCDATA_WA-FNAM = &1.BDCDATA_WA-FVAL = &2.APPEND BDCDATA_WA TO BDCDATA_TAB.END-OF-DEFINITION.*&-*& Start of main program*&-* START-OF-SELECTION.IF EXIT = 'X'.OBJECT = 'SMOD'. " Us

6、er-exit!ELSE.OBJECT = 'SXSD'. " BADI!ENDIF.* Validate Transaction Code:SELECT SINGLE * FROM TSTC WHERE TCODE EQ P_TCODE.* Find Repository Objects for transaction code:IF SY-SUBRC EQ 0. " IF 1SELECT SINGLE * FROM TADIR WHERE PGMID = 'R3TR'AND OBJECT = 'PROG'AND OBJ_N

7、AME = TSTC-PGMNA. " Program name! MOVE: TADIR-DEVCLASS TO V_DEVCLASS. " PackageIF SY-SUBRC NE 0.SELECT SINGLE * FROM TRDIR WHERE NAME = TSTC-PGMNA.IF TRDIR-SUBC EQ 'F'. " Function GroupSELECT SINGLE * FROM TFDIR WHERE PNAME = TSTC-PGMNA.SELECT SINGLE * FROM ENLFDIR WHERE FUNCN

8、AME = 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.* Find SAP Modifactions:SELECT * FROM TADIR INTO TABLE JTAB WHERE PGMID = 'R3TR'* AND object = 'SMOD'AND O

9、BJECT = OBJECTAND DEVCLASS = V_DEVCLASS.SELECT SINGLE * FROM TSTCT WHERE SPRSL EQ SY-LANGUAND 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. " IF 2WRITE: /(95 SY-ULINE.FORMAT COLOR

10、 COL_HEADING INTENSIFIED ON.* Exit:IF EXIT = 'X'.WRITE: /1 SY-VLINE,2 'Exit Name',22 SY-VLINE ,23 'Description',95 SY-VLINE.* BADI:ELSE.WRITE: /1 SY-VLINE,2 'BADI Name',22 SY-VLINE ,23 'Description',95 SY-VLINE.ENDIF.WRITE:/(95 SY-ULINE.LOOP AT JTAB.* EXIT:IF

11、EXIT = 'X'.SELECT SINGLE * FROM MODSAPT WHERE SPRSL = SY-LANGUAND NAME = JTAB-OBJ_NAME.FORMAT COLOR COL_NORMAL INTENSIFIED OFF.WRITE: /1 SY-VLINE,2 JTAB-OBJ_NAME HOTSPOT ON,22 SY-VLINE ,23 MODSAPT-MODTEXT,95 SY-VLINE.* BADI:ELSE.SELECT SINGLE * FROM SXS_ATTRT WHERE SPRSL = SY-LANGUAND EXIT_N

12、AME = JTAB-OBJ_NAME. FORMAT COLOR COL_NORMAL INTENSIFIED OFF.WRITE: /1 SY-VLINE,2 JTAB-OBJ_NAME HOTSPOT ON,22 SY-VLINE ,23 SXS_ATTRT-TEXT,95 SY-VLINE.ENDIF.ENDLOOP.WRITE: /(95 SY-ULINE.DESCRIBE TABLE JTAB.SKIP.FORMAT COLOR COL_TOTAL INTENSIFIED ON.IF EXIT = 'X'.WRITE: / 'No of Exits:'

13、;, SY-TFILL.ELSE.WRITE: / 'No of BADIs:', SY-TFILL.ENDIF.ELSE. " IF 2FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.WRITE: /(95 'No User Exit exists'.ENDIF. " IF 2ELSE. " IF 1FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.WRITE: /(95 'Transaction Code Does Not Exist'.ENDIF

14、. " IF 1* Take the user to SMOD for the Exit that was selected:AT LINE-SELECTION.GET CURSOR FIELD FIELD1.CHECK FIELD1(4 EQ 'JTAB'.* For exit:IF EXIT = 'X'.SET PARAMETER ID 'MON' FIELD SY-LISEL+1(10.CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.* For BADI:ELSE.CLE

15、AR: BDCDATA_WA, BDCDATA_TAB.BDC_PROGRAM 'SAPLSEXO' '0100' 'X'.BDC_DETAIL 'BDC_CURSOR' 'G_IS_BADI'.BDC_DETAIL 'BDC_OKCODE' '=ISSPOT'.BDC_DETAIL 'G_IS_BADI' 'X'.BDC_PROGRAM 'SAPLSEXO' '0100' 'X'.BDC_DETAIL

16、'BDC_CURSOR' 'G_BADINAME'.BDC_DETAIL 'BDC_OKCODE' '=SHOW'.BDC_DETAIL 'G_BADINAME' SY-LISEL+1(20.OPT-DISMODE = 'E'.OPT-DEFSIZE = 'X'.CALL TRANSACTION 'SE18' USING BDCDATA_TAB OPTIONS FROM OPT.ENDIF.*TABLES:* TSTC, "SAP Transaction C

17、odes(SAP 事務(wù)代碼* TADIR, "Directory of Repository Objects(資源庫(kù)對(duì)象的目錄* MODSAPT, "SAP Enhancements - Short Texts(SAP增強(qiáng)-短文件* MODACT, "Modifications(修正* TRDIR, "System table TRDIR(系統(tǒng)表 TRDIR* TFDIR, "Function Module(功能模塊* ENLFDIR, "Additional Attributes for Function Modules(功能模塊的

18、附加屬性 * TSTCT. "Transaction Code Texts(事務(wù)代碼文本*DATA : JTAB LIKE TADIR OCCURS 0 WITH HEADER LINE.*DATA : FIELD1(30.*DATA : V_DEVCLASS LIKE TADIR-DEVCLASS.*&-* SELECTION-SCREEN*&-*SELECTION-SCREEN BEGIN OF BLOCK A01 WITH FRAME TITLE TEXT-001.* SELECTION-SCREEN SKIP.* PARAMETERS : P_TCODE LI

19、KE TSTC-TCODE OBLIGATORY.* SELECTION-SCREEN SKIP.*SELECTION-SCREEN END OF BLOCK A01.*&-* * START-OF-SELECTION*&-* *START-OF-SELECTION.* SELECT SINGLE * FROM TSTC WHERE TCODE EQ P_TCODE.* IF SY-SUBRC EQ 0.* SELECT SINGLE * FROM TADIR* WHERE PGMID = 'R3TR'* AND OBJECT = 'PROG'*

20、 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 SIN

21、GLE * 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 SINGLE

22、* FROM TSTCT* WHERE SPRSL EQ SY-LANGU* AND TCODE EQ P_TCODE.* FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.* WRITE:/(12 '事務(wù)代碼 - ',* 13(20 P_TCODE,* 34(10 '功能 - ' ,* 45(50 TSTCT-TTEXT.* SKIP.* IF NOT JTAB IS INITIAL.* WRITE:/(95 SY-ULINE.*      FORMAT C

23、OLOR COL_HEADING INTENSIFIED ON. *      WRITE:/1 SY-VLINE, *             2 'Exit Name', *             

24、21 SY-VLINE , *             22 'Description', *             95 SY-VLINE. *      WRITE:/(95 SY-ULINE. * *

25、60;     LOOP AT JTAB. *        SELECT SINGLE * *          FROM MODSAPT *         WHERE SPRSL = SY-LA

26、NGU AND *        NAME = JTAB-OBJ_NAME. *        FORMAT COLOR COL_NORMAL INTENSIFIED OFF. *        WRITE:/1 SY-VLINE, *   

27、0;           2 JTAB-OBJ_NAME HOTSPOT ON, *               21 SY-VLINE , *            &

28、#160;  22 MODSAPT-MODTEXT, *               95 SY-VLINE. *      ENDLOOP. * *      WRITE:/(95 SY-ULINE. *      DESCRIBE TABLE JTAB. *      SKIP. *