Find menu path form Tcode

*SELECTION TEXT
*TRANS 事务代码
REPORT ZMENUPATH .
************************************************************************
* This program displays the menu path for a transaction. If the user
* clicks on the transaction line, it displays the transaction's start
* screen. It is useful when working with the profile generator, because
* it is much faster than extracting a menu branch and finding a
* transaction code in it. To run this program, the user menu has to be
* generated.
************************************************************************
*This Program is to search for SAP supplied Transactions
************************************************************************
INCLUDE <ICON>.
TABLES: SMENSAPNEW, SMENSAPT, TSTC.

DATA: BEGIN OF ITAB OCCURS 10.
        INCLUDE STRUCTURE SMENSAPNEW.
DATA: END OF ITAB.
DATA: BEGIN OF STACK OCCURS 10,
        ID(5) TYPE N,
END OF STACK.
DATA: I TYPE I.
DATA: TEXT LIKE TSTCT-TCODE.
PARAMETERS: TRANS LIKE TSTC-TCODE.

* Get the ID of the Transaction
SELECT * FROM SMENSAPNEW WHERE REPORT = TRANS AND CUSTOMIZED = 'S'.
  MOVE-CORRESPONDING SMENSAPNEW TO ITAB.
  APPEND ITAB.
ENDSELECT.
* If transaction is not in SMENSAPNEW
IF SY-SUBRC <> 0.
*  WRITE AT /TRANS COLOR 5.
  WRITE: /(80) 'Main Menu' COLOR 2.
  SKIP.
  WRITE: /'Not in the profile generator''s table'.
  EXIT.
ENDIF.

* Get the parent ID that links to the root with the fewest levels
SORT ITAB BY MENU_LEVEL.
READ TABLE ITAB INDEX 1.
STACK = ITAB-OBJECT_ID.
  APPEND STACK.
STACK = ITAB-PARENT_ID.
  APPEND STACK.

* Search for the Grandparents...
DO.
  CLEAR ITAB.
  REFRESH ITAB.
  SELECT * FROM SMENSAPNEW WHERE OBJECT_ID = STACK-ID AND
                                CUSTOMIZED = 'S'.
    MOVE-CORRESPONDING SMENSAPNEW TO ITAB.
    APPEND ITAB.
  ENDSELECT.
  SORT ITAB BY MENU_LEVEL.
  READ TABLE ITAB INDEX 1.
  IF ITAB-PARENT_ID = '00001'.
    EXIT.
  ENDIF.
  STACK = ITAB-PARENT_ID.
  APPEND STACK.
ENDDO.

SELECT SINGLE TTEXT INTO TEXT FROM TSTCT WHERE TCODE = TRANS
                                   AND SPRSL = 'EN'.

* Display the result
FORMAT HOTSPOT ON.
WRITE: /(80) ICON_DISPLAY_MORE AS ICON,TEXT COLOR 3.
HIDE TRANS.
CLEAR TRANS.
WRITE: ICON_GIS_PAN AS ICON,
                       '<<<< Click on line to go to the transaction'.
FORMAT HOTSPOT OFF.
SKIP.
WRITE: /(80) 'Main Menu' COLOR 2.
SORT STACK.
LOOP AT STACK.
  I = I + 3.
  SELECT SINGLE * FROM SMENSAPT WHERE SPRAS = 'E'
                              AND OBJECT_ID = STACK-ID.
  WRITE: at /I icon_incoming_object as icon,
           (80) SMENSAPT-TEXT COLOR 2.
ENDLOOP.
SKIP 10.
FORMAT COLOR 4.
WRITE: /80 text-001 right-justified.

* Display the transaction when the user clicks on trans.
AT LINE-SELECTION.
  IF NOT TRANS IS INITIAL.
    SELECT SINGLE * FROM TSTC WHERE TCODE = TRANS.
    CALL TRANSACTION TRANS.
  ENDIF.
CLEAR TRANS.