Skip to Content

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 TADIRDEVCLASS.


PARAMETERS : P_TCODE LIKE TSTCTCODE OBLIGATORY.

SELECT SINGLE * FROM TSTC WHERE TCODE EQ P_TCODE.

IF SYSUBRC EQ 0.

   SELECT SINGLE * FROM TADIR WHERE PGMID = ‘R3TR’

                    AND OBJECT = ‘PROG’

                    AND OBJ_NAME = TSTCPGMNA.

   MOVE : TADIRDEVCLASS TO V_DEVCLASS.

      IF SYSUBRC NE 0.

         SELECT SINGLE * FROM TRDIR WHERE NAME = TSTCPGMNA.

         IF TRDIRSUBC EQ ‘F’.

            SELECT SINGLE * FROM TFDIR WHERE PNAME = TSTCPGMNA.

            SELECT SINGLE * FROM ENLFDIR WHERE FUNCNAME =

            TFDIRFUNCNAME.

            SELECT SINGLE * FROM TADIR WHERE PGMID = ‘R3TR’

                               AND OBJECT = ‘FUGR’

                               AND OBJ_NAME EQ ENLFDIRAREA.

            MOVE : TADIRDEVCLASS 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 SYLANGU AND

                                         TCODE EQ P_TCODE.

        FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.

        WRITE:/(19) ‘TRANSACTION CODE – ‘, 20(20) P_TCODE, 45(50) TSTCTTTEXT.


        SKIP.


        IF NOT JTAB[] IS INITIAL.


           WRITE:/(95) SYULINE.


           FORMAT COLOR COL_HEADING INTENSIFIED ON.


           WRITE:/1 SYVLINE,2 ‘EXIT NAME’, 21 SYVLINE , 22 ‘DESCRIPTION’, 95 SYVLINE.


           WRITE:/(95) SYULINE.


           LOOP AT JTAB.

              SELECT SINGLE * FROM MODSAPT WHERE SPRSL = SYLANGU AND NAME = JTABOBJ_NAME.

              

               FORMAT COLOR COL_NORMAL INTENSIFIED OFF.


                   WRITE:/1 SYVLINE,2 JTABOBJ_NAME HOTSPOT ON,21 SYVLINE ,22 MODSAPTMODTEXT,95 SYVLINE.


           ENDLOOP.


           WRITE:/(95) SYULINE.


           DESCRIBE TABLE JTAB.


           SKIP.


           FORMAT COLOR COL_TOTAL INTENSIFIED ON.


           WRITE:/ ‘NO OF EXITS:’ , SYTFILL.


        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 SYLISEL+1(10).

   CALL TRANSACTION ‘SMOD’ AND SKIP FIRST   SCREEN.

*—END OF PROGRAM

OutPut Screen Shots

Userexit1.png

List of User Exits Screen Shot.

Userexit2.png


To report this post you need to login first.

3 Comments

You must be Logged on to comment or reply to a post.

Leave a Reply