Program search tool

Use this program to search for programs using a part of the description of the program.

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.