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.