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

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 .