Function to Get Menu path

Question

Hi,
Is there any function in abap to get a menu path
(File->open)in a particular screen,given the fcode.
thanx

Answer 1

Hi Kaushik!
Not directly - and I never found a transaction, where only one menue-path exists, there were always several hits.
But maybe you want to put parts of the following coding into a own FM:
TEXT_UPPER_CASE = TEXT.
TRANSLATE TEXT_UPPER_CASE TO UPPER CASE.
select * from smensapnew into table i_smensapnew.
select * from smensapt into table i_smensapt where spras = sy-langu.
DESCRIBE TABLE I_SMENSAPNEW LINES LIN.
IF LIN = 0.
  MESSAGE S265(SF).
ENDIF.
SORT I_SMENSAPT BY OBJECT_ID.
SORT I_SMENSAPNEW BY OBJECT_ID.
LOOP AT I_SMENSAPNEW.
  CLEAR SWITCH.
  IF I_SMENSAPNEW-REPORT = TEXT
                               OR I_SMENSAPNEW-REPORT = TEXT_UPPER_CASE.
    SWITCH = 'X'.
  ENDIF.
  READ TABLE I_SMENSAPT WITH KEY OBJECT_ID = I_SMENSAPNEW-OBJECT_ID
                                          BINARY SEARCH.
  IF SY-SUBRC NE 0.
    I_SMENSAPT-TEXT = '???'.
  ENDIF.
  SEARCH I_SMENSAPT-TEXT FOR TEXT.
  IF SY-SUBRC = 0.
    SWITCH = 'X'.
  ENDIF.
  IF SWITCH = ' '.  CONTINUE. EXIT.  ENDIF.
  READ TABLE I_SMENSAPT WITH KEY OBJECT_ID = I_SMENSAPNEW-OBJECT_ID
                                          BINARY SEARCH.
  IF SY-SUBRC NE 0.
    I_SMENSAPT-TEXT = '???'.
  ENDIF.
  WRITE: /  TEXT-015, AT 20 I_SMENSAPNEW-REPORT(20),
                            AT 40 I_SMENSAPT-TEXT(40).
  FORMAT INTENSIFIED OFF.
  DO.
    READ TABLE I_SMENSAPNEW WITH KEY OBJECT_ID = I_SMENSAPNEW-PARENT_ID
                                                          BINARY SEARCH.
    IF SY-SUBRC NE 0. EXIT. ENDIF.
    IF SY-SUBRC EQ 0.
      READ TABLE I_SMENSAPT WITH KEY OBJECT_ID = I_SMENSAPNEW-OBJECT_ID
                                                          BINARY SEARCH.
    ELSE.
      I_SMENSAPT-TEXT = '???'.
    ENDIF.
    IF I_SMENSAPNEW-REPORTTYPE = SPACE.
      CLEAR I_SMENSAPNEW-REPORT.
    ENDIF.
    WRITE: / TEXT-016, AT 20 I_SMENSAPNEW-REPORT(20),
                                  AT 40 I_SMENSAPT-TEXT(40).
  ENDDO.
  FORMAT INTENSIFIED ON.
  ULINE.
ENDLOOP.
Regards,
Christian