REPORT ZUSEREXIT.
******TABLES USED*******
TABLES : TSTC, TSTCT, TADIR, MODSAPT, MODACT, TRDIR, TFDIR, ENLFDIR.
DATA : JTAB LIKE TADIR OCCURS 0 WITH HEADER LINE.
DATA : FIELD1(30).
DATA : V_DEVCLASS LIKE TADIR–DEVCLASS.
PARAMETERS : P_TCODE LIKE TSTC–TCODE OBLIGATORY.
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 EQ 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 * 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:/(95) SY–ULINE.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
WRITE:/1 SY–VLINE,2 ‘EXIT NAME’, 21 SY–VLINE , 22 ‘DESCRIPTION’, 95 SY–VLINE.
WRITE:/(95) SY–ULINE.
LOOP AT JTAB.
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,21 SY–VLINE ,22 MODSAPT–MODTEXT,95 SY–VLINE.
ENDLOOP.
WRITE:/(95) SY–ULINE.
DESCRIBE TABLE JTAB.
SKIP.
FORMAT COLOR COL_TOTAL INTENSIFIED ON.
WRITE:/ ‘NO OF EXITS:’ , SY–TFILL.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(95) ‘NO USER EXIT EXISTS’.
ENDIF.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(95) ‘TRANSACTION CODE DOES NOT EXIST’.
ENDIF.
AT LINE-SELECTION.
GET CURSOR FIELD FIELD1.
CHECK FIELD1(4) EQ ‘JTAB’.
SET PARAMETER ID ‘MON’ FIELD SY–LISEL+1(10).
CALL TRANSACTION ‘SMOD’ AND SKIP FIRST SCREEN.
*—END OF PROGRAM
OutPut Screen Shots
List of User Exits Screen Shot.
Hi Rounak Ghodke,
Informative ℹ , Niecly Explained 🙂 🙂 .
Thanks For Making & Sharing 😎 .
Regards,
Seshu.P
Thank You Seshu P 🙂
Only one problem, read Program to display Exits and BAdI and other similar threads/blogs. I’ve also got a similar version with Exits, BAdI and Enh. with a very similar code…
Regards,
Raymond