Report to retrieve all Z_Programs

Question

Dear Gurus,
I am looking for a report which retrieves all the Z_Programs from the system. I have checked the table TRDIR and TADIR and tried looking through the Where used list but couldnt fine any Report which retrieves all the Z_Programs.
Can anyone help me for the same... Thanks in advance
Regards
Pr

Answer 1

Hi
This is something I put together a little while ago, you may need to remove references to the Z messages etc. Please reward points if it helps you.
   NAME        : GGL: Program List
   DESCRIPTION : List of Programs/Reports by GGL
             M O D I F I C A T I O N   L O G
   CREATED BY : Brad Gorlicki
   DATE       : 10 OCTOBER 2007
REPORT ZGGLPROGRAMS MESSAGE-ID ZEW01.
TABLE DEFINITION
TABLES: TRDIR,     "Program Names
        TSTC,      "SAP Transaction Codes
        TSTCT.     "Transaction Code Text
INTERNAL TABLE DEFINITION
Program Names
DATA: BEGIN OF I_TRDIR OCCURS 0,
        NAME LIKE TRDIR-NAME,
        CNAM LIKE TRDIR-CNAM,
        CDAT LIKE TRDIR-CDAT,
        UNAM LIKE TRDIR-UNAM,
        UDAT LIKE TRDIR-UDAT,
        TCODE LIKE TSTC-TCODE,
        TTEXT LIKE TSTCT-TTEXT,
        Z TYPE C,
      END OF I_TRDIR.
SAP Transaction Codes
DATA: BEGIN OF I_TSTC OCCURS 0,
        TCODE LIKE TSTC-TCODE,
        PGMNA LIKE TSTC-PGMNA,
      END OF I_TSTC.
Transaction Code Text
DATA: BEGIN OF I_TSTCT OCCURS 0,
        TCODE LIKE TSTCT-TCODE,
        TTEXT LIKE TSTCT-TTEXT,
      END OF I_TSTCT.
Search Criteria table
DATA: BEGIN OF I_SEARCHDATA OCCURS 0,
        NAME(50) TYPE C,
      END OF I_SEARCHDATA.
General Variables
DATA: BEGIN OF VAR,
         FOUND(1)             TYPE C,            "Search Found
         FIELD(80)            TYPE C,
         POS                  TYPE I,
      END OF VAR.
ABAP LIST VIEWER DEFINITIONS
TYPE-POOLS: SLIS.
DATA: FIELDCAT      TYPE SLIS_T_FIELDCAT_ALV,
      FIELDCAT_LN   LIKE LINE OF FIELDCAT.
DATA: COL_POS TYPE I.
DATA: GS_LAYOUT   TYPE SLIS_LAYOUT_ALV.
DATA: EVENTS        TYPE SLIS_T_EVENT.
CONSTANTS : C_USER_COMMAND TYPE SLIS_FORMNAME VALUE 'USER_COMMAND'.
SELECTION SCREEN
*     SELECTION CRITERIA
SELECTION-SCREEN BEGIN OF BLOCK 01 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_NAME  FOR TRDIR-NAME.
SELECT-OPTIONS: S_CNAM  FOR TRDIR-CNAM.
SELECT-OPTIONS: S_TCODE FOR TSTC-TCODE.
SELECTION-SCREEN END OF BLOCK 01.
SELECTION-SCREEN BEGIN OF BLOCK BOX2 WITH FRAME TITLE TEXT-002.
PARAMETERS: P_SEARCH(80).
SELECTION-SCREEN SKIP.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN COMMENT 1(79) T1.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN COMMENT 2(79) T2.
SELECTION-SCREEN END OF BLOCK BOX2.
EVENT: INITIALIZATION
*     PRE PROCESSING
AT SELECTION-SCREEN OUTPUT.
  T1 = 'A multiple keyword search requires a comma seperator ie. Technical, Help, SAP'.
  T2 = 'NB! - If ANY of the keywords are found, record(s) will be displayed'.
EVENT     START OF SELECTION
START-OF-SELECTION.
  PERFORM DOCUMENT_SEARCH.
  PERFORM F????_FETCH_DATA.
  PERFORM F????_BUILD_DATA.
  PERFORM F????_BUILD_ALV_COLUMNS.
  PERFORM F????_START_LIST_VIEWER.
FORM          FETCH_DATA
FORM: F????_FETCH_DATA.
If no transaction code entered select all programs
first then select the transaction code
  IF S_TCODE[] IS INITIAL.
    SELECT NAME CNAM CDAT UNAM UDAT
      FROM TRDIR
      INTO CORRESPONDING FIELDS OF TABLE I_TRDIR
     WHERE NAME IN S_NAME
       AND CNAM IN S_CNAM
       AND NAME LIKE 'Z%'.
    SORT I_TRDIR BY NAME.
Select all Transaction Codes
    SELECT TCODE PGMNA
      FROM TSTC
      INTO CORRESPONDING FIELDS OF TABLE I_TSTC
       FOR ALL ENTRIES IN I_TRDIR
     WHERE PGMNA = I_TRDIR-NAME
       AND TCODE IN S_TCODE.
    SORT I_TSTC BY PGMNA.
If there was a Transaction Code entered select this first
  ELSEIF NOT S_TCODE[] IS INITIAL.
    SELECT TCODE PGMNA
      FROM TSTC
      INTO CORRESPONDING FIELDS OF TABLE I_TSTC
     WHERE TCODE IN S_TCODE.
    SORT I_TSTC BY PGMNA.
    IF NOT I_TSTC[] IS INITIAL.
If Transaction Code entered select all programs related now
      SELECT NAME CNAM CDAT UNAM UDAT
        FROM TRDIR
        INTO CORRESPONDING FIELDS OF TABLE I_TRDIR
         FOR ALL ENTRIES IN I_TSTC
       WHERE NAME = I_TSTC-PGMNA
         AND CNAM IN S_CNAM
         AND NAME IN S_NAME.
      SORT I_TRDIR BY NAME.
    ENDIF.
  ENDIF.
Select Transaction Code Text
  SELECT TCODE TTEXT
    FROM TSTCT
    INTO CORRESPONDING FIELDS OF TABLE I_TSTCT
     FOR ALL ENTRIES IN I_TSTC
   WHERE TCODE = I_TSTC-TCODE
     AND SPRSL = 'E'.
  SORT I_TSTCT BY TCODE.
ENDFORM.                    "F????_FETCH_DATA
FORM          BUILD_DATA
FORM: F????_BUILD_DATA.
Read Transaction Codes and Text
  LOOP AT I_TRDIR.
    READ TABLE I_TSTC WITH KEY PGMNA = I_TRDIR-NAME
                                      BINARY SEARCH.
    I_TRDIR-TCODE = I_TSTC-TCODE.
    IF SY-SUBRC = 0.
      READ TABLE I_TSTCT WITH KEY TCODE = I_TRDIR-TCODE
                                        BINARY SEARCH.
      I_TRDIR-TTEXT = I_TSTCT-TTEXT.
      IF NOT I_SEARCHDATA[] IS INITIAL.
        LOOP AT I_SEARCHDATA.
Search for transaction Text
          SEARCH I_TRDIR-TTEXT FOR I_SEARCHDATA-NAME.
          IF SY-SUBRC NE 0.
            DELETE I_TRDIR.
            VAR-FOUND = 'X'.
          ELSE.
            CLEAR VAR-FOUND.
          ENDIF.
        ENDLOOP.
      ENDIF.
    ENDIF.
Check record is to be modified
    IF VAR-FOUND = ''.
    MODIFY I_TRDIR TRANSPORTING TCODE TTEXT.
    ENDIF.
    IF NOT I_SEARCHDATA[] IS INITIAL.
Check the program has transaction code text
      IF I_TRDIR-TTEXT = SPACE.
        DELETE I_TRDIR.
      ENDIF.
    ENDIF.
    CLEAR: I_TRDIR, I_TSTC, I_TSTCT.
  ENDLOOP.
ENDFORM.                    "F????_BUILD_DATA
FORM: DOCUMENT_SEARCH
*     CREATE KEYWORDS TO SEARCH FOR INTO INTERNAL TABLE
FORM DOCUMENT_SEARCH .
  IF P_SEARCH CS ',' AND P_SEARCH NE ','.
    TRANSLATE P_SEARCH TO UPPER CASE.
Multiple search
    WHILE P_SEARCH <> ''.
      IF P_SEARCH CS ','.
        VAR-FIELD = P_SEARCH+0(SY-FDPOS).
        I_SEARCHDATA-NAME = VAR-FIELD.
        CONDENSE I_SEARCHDATA-NAME NO-GAPS.
        APPEND I_SEARCHDATA.
        VAR-POS = SY-FDPOS + 1.
        P_SEARCH = P_SEARCH+VAR-POS.
      ELSEIF P_SEARCH NE SPACE.
        I_SEARCHDATA-NAME = P_SEARCH.
        CONDENSE I_SEARCHDATA-NAME NO-GAPS.
        APPEND I_SEARCHDATA.
        CLEAR P_SEARCH.
      ENDIF.
    ENDWHILE.
  ELSEIF NOT P_SEARCH IS INITIAL.
Single search
    I_SEARCHDATA-NAME = P_SEARCH+0(SY-FDPOS).
    APPEND I_SEARCHDATA.
  ENDIF.
ENDFORM.                    " document_search
FORM          BUILD_EVENT_TOPOFPAGE
FORM BUILD_EVENT_TOPOFPAGE USING LT_EVENTS TYPE SLIS_T_EVENT.
  DATA: LS_EVENTS TYPE SLIS_ALV_EVENT.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE = 0
    IMPORTING
      ET_EVENTS   = LT_EVENTS.
Double Click Event
  READ TABLE EVENTS WITH KEY NAME = SLIS_EV_USER_COMMAND
                    INTO LS_EVENTS.
  IF SY-SUBRC = 0.
    MOVE C_USER_COMMAND TO LS_EVENTS-FORM.
    APPEND LS_EVENTS TO LT_EVENTS.
  ENDIF.
ENDFORM.                    "BUILD_EVENT_TOPOFPAGE
FORM          USER_COMMAND
Subroutine for at user command for calling transaction
FORM USER_COMMAND USING P_UCOMM LIKE SY-UCOMM
LS_SELFIELD TYPE SLIS_SELFIELD.
  CASE P_UCOMM.
    WHEN '&IC1'.                                           "Double Click
      READ TABLE I_TRDIR INDEX LS_SELFIELD-TABINDEX.
      IF SY-SUBRC = 0.
        SET PARAMETER ID 'RID' FIELD I_TRDIR-NAME.
        CALL TRANSACTION 'SE38' AND SKIP FIRST SCREEN.
      ENDIF.
  ENDCASE.
ENDFORM.                    "generate_usercommand
FORM          BUILD_ALV_COLUMNS
FORM F????_BUILD_ALV_COLUMNS.
  CLEAR FIELDCAT_LN.
  ADD 1 TO COL_POS.
  FIELDCAT_LN-REF_TABNAME = 'TRDIR'.
  FIELDCAT_LN-FIELDNAME = 'NAME'.
  FIELDCAT_LN-KEY = 'X'.
  FIELDCAT_LN-COL_POS = COL_POS.
  APPEND FIELDCAT_LN TO FIELDCAT.
  CLEAR FIELDCAT_LN.
  ADD 2 TO COL_POS.
  FIELDCAT_LN-REF_TABNAME = 'TRDIR'.
  FIELDCAT_LN-FIELDNAME = 'CNAM'.
  FIELDCAT_LN-COL_POS = COL_POS.
  APPEND FIELDCAT_LN TO FIELDCAT.
  CLEAR FIELDCAT_LN.
  ADD 3 TO COL_POS.
  FIELDCAT_LN-REF_TABNAME = 'TRDIR'.
  FIELDCAT_LN-FIELDNAME = 'CDAT'.
  FIELDCAT_LN-COL_POS = COL_POS.
  APPEND FIELDCAT_LN TO FIELDCAT.
  CLEAR FIELDCAT_LN.
  ADD 4 TO COL_POS.
  FIELDCAT_LN-REF_TABNAME = 'TRDIR'.
  FIELDCAT_LN-FIELDNAME = 'UNAM'.
  FIELDCAT_LN-COL_POS = COL_POS.
  APPEND FIELDCAT_LN TO FIELDCAT.
  CLEAR FIELDCAT_LN.
  ADD 5 TO COL_POS.
  FIELDCAT_LN-REF_TABNAME = 'TRDIR'.
  FIELDCAT_LN-FIELDNAME = 'UDAT'.
  FIELDCAT_LN-COL_POS = COL_POS.
  APPEND FIELDCAT_LN TO FIELDCAT.
  CLEAR FIELDCAT_LN.
  ADD 6 TO COL_POS.
  FIELDCAT_LN-REF_TABNAME = 'TSTC'.
  FIELDCAT_LN-FIELDNAME = 'TCODE'.
  FIELDCAT_LN-COL_POS = COL_POS.
  APPEND FIELDCAT_LN TO FIELDCAT.
  CLEAR FIELDCAT_LN.
  ADD 7 TO COL_POS.
  FIELDCAT_LN-REF_TABNAME = 'TSTCT'.
  FIELDCAT_LN-FIELDNAME = 'TTEXT'.
  FIELDCAT_LN-COL_POS = COL_POS.
  APPEND FIELDCAT_LN TO FIELDCAT.
ENDFORM.                    " F????_BUILD_ALV_COLUMNS
FORM          START_LIST_VIEWER
FORM F????_START_LIST_VIEWER .
  PERFORM BUILD_EVENT_TOPOFPAGE USING EVENTS[].
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = 'ZBRADTEST4'
      I_GRID_TITLE       = 'GGL Program List'
      IS_LAYOUT          = GS_LAYOUT
      IT_FIELDCAT        = FIELDCAT
      IT_EVENTS          = EVENTS[]
      I_SAVE             = 'A'
    TABLES
      T_OUTTAB           = I_TRDIR.
ENDFORM.                    " F????_START_LIST_VIEWER