How to Use Transcation Code Search IMG Menu Path ?
2010-09-09 13:51
387 查看
如何通过T-Code 查询后台IMG路径 ?
ABAP Source Code as Below:
*----------------------------------------------------------------------
* Program ID/Name: ZW_ALV_GRID_STD Date Written: 2010.09.09
* Author's Name: Lilo.Zhu Last Update:
* Program Title:
* Project Name: ABAP Tools
* Version: 1.0
*----------------------------------------------------------------------
* Description: (Via T-Code Get IMG Menu Path.)
*----------------------------------------------------------------------
* Change History
*----------------------------------------------------------------------
* Date | Programmer | Corr. # | Description
* 2010.09.09 | Lilo.Zhu | | New Create
* | | |
* | | |
*-----------------------------------------------------------------------
REPORT ZW_TCODE_GET_IMG .
*------Data Define------
DATA: L_TCODE TYPE CUS_IMGACH-TCODE.
DATA: T_ACTIV TYPE STANDARD TABLE OF CUS_IMGACH WITH HEADER LINE.
DATA: T_ACTIV_X TYPE STANDARD TABLE OF CUS_IMGACH WITH HEADER LINE.
*DATA: BEGIN OF T_ACTIV OCCURS 0,
* INCLUDE LIKE CUS_IMGACH.
*DATA: END OF T_ACTIV.
*---SELECTION SCREEN---
SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS: P_TCODE TYPE SY-UCOMM.
SELECTION-SCREEN: END OF BLOCK B1.
START-OF-SELECTION.
PERFORM GET_IMG_ACTIV.
PERFORM DISP_IMG_ACTIV.
*&---------------------------------------------------------------------*
*& Form GET_IMG_ACTIV
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM GET_IMG_ACTIV .
CLEAR: L_TCODE,
T_ACTIV,
T_ACTIV[].
MOVE P_TCODE TO L_TCODE.
CALL FUNCTION 'S_CUS_IMG_ACTIVITY_GET_W_TCODE'
EXPORTING
TCODE = L_TCODE
TABLES
ACTIVITIES_FOUND = T_ACTIV
* EXCEPTIONS
* NO_TCODE_GIVEN = 1
* NOT_USED_IN_IMG_ACTIVITIES = 2
* OTHERS = 3
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " GET_IMG_ACTIV
*&---------------------------------------------------------------------*
*& Form DISP_IMG_ACTIV
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM DISP_IMG_ACTIV .
IF NOT T_ACTIV[] IS INITIAL.
LOOP AT T_ACTIV.
WRITE: / T_ACTIV-ACTIVITY ,
T_ACTIV-DOCU_ID ,
T_ACTIV-ATTRIBUTES ,
T_ACTIV-C_ACTIVITY.
HIDE: T_ACTIV-ACTIVITY,
T_ACTIV-DOCU_ID ,
T_ACTIV-ATTRIBUTES ,
T_ACTIV-C_ACTIVITY.
ENDLOOP.
ELSE.
ENDIF.
ENDFORM. " DISP_IMG_ACTIV
AT LINE-SELECTION.
IF T_ACTIV-ACTIVITY NE ''.
CLEAR: T_ACTIV_X,
T_ACTIV_X[].
T_ACTIV_X = T_ACTIV.
APPEND T_ACTIV_X.
CALL FUNCTION 'S_CUS_IMG_ENTRY_VIA_ACTIVITY'
* EXPORTING
* USE_PROJECT_IMG = ' '
* PROJECT_NUMBER_OBLIGATORY = ' '
* USE_PROJECT_NUMBER = ' '
* SHOW_ALL_ENTRIES_AT_ONCE = ' '
* ACTIVITY = 'M'
* LANGUAGE = SY-LANGU
* IMPORTING
* ES_MESSAGE =
TABLES
IMG_ACTIVITIES = T_ACTIV_X
* DOCU_IDS =
* NODE_IDS =
* EXCEPTIONS
* NO_ACTIVITIES_GIVEN = 1
* NOT_FOUND_IN_IMG = 2
* NOT_FOUND_IN_PROJECT = 3
* OTHERS = 4
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.
ABAP Source Code as Below:
*----------------------------------------------------------------------
* Program ID/Name: ZW_ALV_GRID_STD Date Written: 2010.09.09
* Author's Name: Lilo.Zhu Last Update:
* Program Title:
* Project Name: ABAP Tools
* Version: 1.0
*----------------------------------------------------------------------
* Description: (Via T-Code Get IMG Menu Path.)
*----------------------------------------------------------------------
* Change History
*----------------------------------------------------------------------
* Date | Programmer | Corr. # | Description
* 2010.09.09 | Lilo.Zhu | | New Create
* | | |
* | | |
*-----------------------------------------------------------------------
REPORT ZW_TCODE_GET_IMG .
*------Data Define------
DATA: L_TCODE TYPE CUS_IMGACH-TCODE.
DATA: T_ACTIV TYPE STANDARD TABLE OF CUS_IMGACH WITH HEADER LINE.
DATA: T_ACTIV_X TYPE STANDARD TABLE OF CUS_IMGACH WITH HEADER LINE.
*DATA: BEGIN OF T_ACTIV OCCURS 0,
* INCLUDE LIKE CUS_IMGACH.
*DATA: END OF T_ACTIV.
*---SELECTION SCREEN---
SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS: P_TCODE TYPE SY-UCOMM.
SELECTION-SCREEN: END OF BLOCK B1.
START-OF-SELECTION.
PERFORM GET_IMG_ACTIV.
PERFORM DISP_IMG_ACTIV.
*&---------------------------------------------------------------------*
*& Form GET_IMG_ACTIV
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM GET_IMG_ACTIV .
CLEAR: L_TCODE,
T_ACTIV,
T_ACTIV[].
MOVE P_TCODE TO L_TCODE.
CALL FUNCTION 'S_CUS_IMG_ACTIVITY_GET_W_TCODE'
EXPORTING
TCODE = L_TCODE
TABLES
ACTIVITIES_FOUND = T_ACTIV
* EXCEPTIONS
* NO_TCODE_GIVEN = 1
* NOT_USED_IN_IMG_ACTIVITIES = 2
* OTHERS = 3
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " GET_IMG_ACTIV
*&---------------------------------------------------------------------*
*& Form DISP_IMG_ACTIV
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM DISP_IMG_ACTIV .
IF NOT T_ACTIV[] IS INITIAL.
LOOP AT T_ACTIV.
WRITE: / T_ACTIV-ACTIVITY ,
T_ACTIV-DOCU_ID ,
T_ACTIV-ATTRIBUTES ,
T_ACTIV-C_ACTIVITY.
HIDE: T_ACTIV-ACTIVITY,
T_ACTIV-DOCU_ID ,
T_ACTIV-ATTRIBUTES ,
T_ACTIV-C_ACTIVITY.
ENDLOOP.
ELSE.
ENDIF.
ENDFORM. " DISP_IMG_ACTIV
AT LINE-SELECTION.
IF T_ACTIV-ACTIVITY NE ''.
CLEAR: T_ACTIV_X,
T_ACTIV_X[].
T_ACTIV_X = T_ACTIV.
APPEND T_ACTIV_X.
CALL FUNCTION 'S_CUS_IMG_ENTRY_VIA_ACTIVITY'
* EXPORTING
* USE_PROJECT_IMG = ' '
* PROJECT_NUMBER_OBLIGATORY = ' '
* USE_PROJECT_NUMBER = ' '
* SHOW_ALL_ENTRIES_AT_ONCE = ' '
* ACTIVITY = 'M'
* LANGUAGE = SY-LANGU
* IMPORTING
* ES_MESSAGE =
TABLES
IMG_ACTIVITIES = T_ACTIV_X
* DOCU_IDS =
* NODE_IDS =
* EXCEPTIONS
* NO_ACTIVITIES_GIVEN = 1
* NOT_FOUND_IN_IMG = 2
* NOT_FOUND_IN_PROJECT = 3
* OTHERS = 4
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.
相关文章推荐
- How to Use Transcation Code Search IMG Menu Path ?
- Two useful transaction codes to search the T-TCODE where is in SAP menu tree
- How to search All-In-OneCode Framework with google or Bing
- How to use Metadata as search parameter in Advance Search Web Part
- How to use Google search engine
- How to search for a taglib's code (from wiki)
- 如何使用代码美化器Uncrustify (How to use code beautifier Uncrustify)
- How to use ContextMenu menu.
- How to use C# code to get the windows components
- How to use Coffee-Bytes code folding
- How to use a man page Faster than a Google search
- Java ThreadLocal - How to use and code sample
- 如何使用代码美化器Uncrustify (How to use code beautifier Uncrustify)
- How can we use transfer function to skip search page while going from one component to another?
- How to use "vi" edit the docs or source code files
- Java ThreadLocal - How to use and code sample
- How to Use the Format Fortran Indent Plugin for Code::Blocks ?
- Java ThreadLocal - How to use and code sample
- how to manually traverse the ZODB tree in your code to locate objects by their path?
- How to add a path to matlab search path permanently