Program search tool
Use this program to search for programs using a part of the description of the program.
Use this program to search for programs using a part of the description of the program.
Continue Reading This Article
Enjoy this article as well as all of our content, including E-Guides, news, tips and more.
*This tool is case-insensitive and provides a Full Text search for the description(there is no need to specify asterisks).
*This tool displays the program in SE38 by double-clicking the program name.
REPORT ZPRGPRGDESC. TABLES : D010SINF,TRDIRT. CONSTANTS: C_TABCOL TYPE I VALUE 1, C_TABDESCCOL TYPE I VALUE 42. DATA: BEGIN OF IT OCCURS 10, PROG LIKE D010SINF-PROG, TEXT LIKE TRDIRT-TEXT, END OF IT. DATA: WS_FOUND TYPE I VALUE 0. DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE. DATA: FLD(30), VAL LIKE D010SINF-PROG. PARAMETERS: P_DESC(50). INITIALIZATION. SELECT D010SINF~PROG TRDIRT~TEXT FROM TRDIRT INNER JOIN D010SINF ON D010SINF~PROG = TRDIRT~NAME INTO TABLE IT WHERE TRDIRT~SPRSL = 'E' AND D010SINF~SUBC ='1'. START-OF-SELECTION. MOVE 0 TO SY-TABIX. WS_FOUND = 0. DO. SY-TABIX = SY-TABIX + 1. SEARCH IT FOR P_DESC STARTING AT SY-TABIX. IF SY-SUBRC NE 0. EXIT. ENDIF. WS_FOUND = 1. READ TABLE IT INDEX SY-TABIX. WRITE AT : /C_TABCOL IT-PROG, C_TABDESCCOL IT-TEXT. ENDDO. IF WS_FOUND NE 1. WRITE 'NO PROGRAMS FOUND'. ENDIF. AT LINE-SELECTION. GET CURSOR FIELD FLD VALUE VAL. IF FLD = 'IT-PROG'. REFRESH BDCDATA. CLEAR BDCDATA. BDCDATA-PROGRAM = 'SAPLWBABAP'. BDCDATA-DYNPRO = '0100'. BDCDATA-DYNBEGIN = 'X'. APPEND BDCDATA. CLEAR BDCDATA. BDCDATA-FNAM = 'RS38M-PROGRAMM'. BDCDATA-FVAL = VAL. APPEND BDCDATA. CLEAR BDCDATA. BDCDATA-FNAM = 'BDC_OKCODE'. BDCDATA-FVAL = 'SHOP'. APPEND BDCDATA. ENDIF.
Start the conversation
0 comments