Custom Program List

Question

I want to prepare list of all custom objects in system for UPgrade purpose.
Forms - List output type , print program and smart forms/scripts - Printer type used for printing
Interfaces - Reports - Inventory report etc
Extensions -
Is there any T-code to list all outputs. If not whats the best way to do so.
Thank you.
AP

Answer 1

Hi AP,
I have copied few more lines. The rest of the portion in my program is very specific to our organization and i cant share the entire program as its against our policy to do so.
I am sure you should be able to take it forward from here.
1). Define selection screen
2). Based on the selection screen define the where clause.
3). USe the Get_Data form mentioned in my earlier post to get the basic data
4). USe the PROCESS_DATA form to process your data.
     ( the code is attached )
5). Write your report output.
FORM PROCESS_DATA .
  DATA : COUNT TYPE I,
         PNAME LIKE TFDIR-PNAME,
         RNAME LIKE TRDIR-NAME,
         WA_DNAM LIKE TDCT-DNAM.         " Dialogue Module
  DATA : LEN TYPE I,
         WA_MCONAME LIKE DD23T-MCONAME.
  TABLES : TFDIR, TRDIR.
  DATA LOC_TAB LIKE ITAB OCCURS 0 WITH HEADER LINE.
  DATA ITAB_MAIN LIKE ITAB OCCURS 0 WITH HEADER LINE.
* Get FMs for Function Group
  LOOP AT ITAB WHERE OBJECT EQ 'FUGR'
           AND DEVCLASS IN SDEV.
    CLEAR : PNAME.
    CONCATENATE 'SAPL' ITAB-OBJ_NAME INTO PNAME.
    CONDENSE PNAME.
    SELECT * FROM TFDIR WHERE PNAME EQ PNAME.
      CLEAR TADIR.
      MOVE : 'LIMU' TO TADIR-PGMID,
             'FUNC' TO TADIR-OBJECT,
             TFDIR-FUNCNAME TO TADIR-OBJ_NAME,
             ITAB-DEVCLASS TO TADIR-DEVCLASS.
      PERFORM OBJ_EXIST_CHECK.
      CLEAR OBJEXIST.
      IF OBJEXIST EQ 'X'.
        CLEAR : LOC_TAB, RNAME, TRDIR.
        CONCATENATE 'L' ITAB-OBJ_NAME 'U' TFDIR-INCLUDE INTO RNAME.
        CONDENSE RNAME.
        SELECT SINGLE * FROM TRDIR WHERE NAME EQ RNAME.
        MOVE-CORRESPONDING TADIR TO LOC_TAB.
        MOVE TRDIR-UNAM TO LOC_TAB-AUTHOR.
        MOVE ITAB-SRCSYSTEM TO LOC_TAB-SRCSYSTEM.
        IF TRDIR-UDAT EQ SPACE.
          MOVE TRDIR-CDAT TO LOC_TAB-LCDATE.
        ELSE.
          MOVE TRDIR-UDAT TO LOC_TAB-LCDATE.
        ENDIF.
        APPEND LOC_TAB.
      ENDIF.
    ENDSELECT.
  ENDLOOP.
* Link Higher level Objects.
* Sub Objects of Dialogue Module 'DIAL'.
  LOOP AT ITAB_MAIN WHERE OBJECT EQ 'DIAL'
           AND DEVCLASS IN SDEV.
    CLEAR WA_DNAM.
    MOVE ITAB_MAIN-OBJ_NAME TO WA_DNAM.
    CLEAR PNAME.
    SELECT SINGLE PROG INTO PNAME FROM TDCT
       WHERE DNAM EQ WA_DNAM.
    READ TABLE ITAB WITH KEY PGMID = 'R3TR'
                                OBJECT = 'PROG'
                                OBJ_NAME = PNAME.
    IF SY-SUBRC EQ 0.
      MOVE ITAB_MAIN-REFOBNUM TO ITAB-HLOBNUM .
      MODIFY ITAB INDEX SY-TABIX.
    ENDIF.
  ENDLOOP.
* Match Code Objects -> Match Code ID
  LOOP AT ITAB WHERE OBJECT EQ 'MCID'
           AND DEVCLASS IN SDEV.
    LEN = STRLEN( ITAB-OBJ_NAME ).
*    DESCRIBE FIELD ITAB-OBJ_NAME LENGTH LEN .
    LEN = LEN - 1.
    WA_MCONAME = ITAB-OBJ_NAME(LEN).
    READ TABLE ITAB_MAIN WITH KEY PGMID = 'R3TR'
                               OBJECT = 'MCOB'
                               OBJ_NAME = WA_MCONAME.
    IF SY-SUBRC EQ 0.
      MOVE ITAB_MAIN-REFOBNUM TO ITAB-HLOBNUM .
      MODIFY ITAB .
    ENDIF.
  ENDLOOP.
* Include Programs.
  LOOP AT ITAB WHERE OBJECT EQ 'PROG'
                     AND HLOBNUM EQ SPACE
    CHECK ITAB-DEVCLASS IN SDEV.
    CLEAR RNAME.
    SELECT SINGLE MASTER INTO RNAME FROM D010INC
     WHERE INCLUDE = ITAB-OBJ_NAME.
    CHECK SY-SUBRC EQ 0.
    IF RNAME(4) EQ 'SAPL'.                " Function Group
      MOVE RNAME+4 TO PNAME.
      READ TABLE ITAB_MAIN WITH KEY PGMID = 'R3TR'
                                    OBJECT = 'FUGR'
                                    OBJ_NAME = PNAME.
      IF SY-SUBRC EQ 0.
        MOVE ITAB_MAIN-REFOBNUM TO ITAB-HLOBNUM .
        MODIFY ITAB .
      ENDIF.
    ELSE.
      READ TABLE ITAB_MAIN WITH KEY PGMID = 'R3TR'
                                    OBJECT = 'PROG'
                                   OBJ_NAME = RNAME.
      IF SY-SUBRC EQ 0.
        MOVE ITAB_MAIN-REFOBNUM TO ITAB-HLOBNUM .
        MODIFY ITAB .
      ENDIF.
    ENDIF.
  ENDLOOP.
* Function Modules.
  LOOP AT ITAB WHERE OBJECT EQ 'FUNC'
           AND DEVCLASS IN SDEV.
    CLEAR : TFDIR, PNAME.
    SELECT SINGLE * FROM TFDIR WHERE FUNCNAME EQ ITAB-OBJ_NAME.
    MOVE TFDIR-PNAME+4 TO PNAME.
    READ TABLE ITAB_MAIN WITH KEY PGMID = 'R3TR'
                                  OBJECT = 'FUGR'
                                  OBJ_NAME = PNAME.
    IF SY-SUBRC EQ 0.
      MOVE ITAB_MAIN-REFOBNUM TO ITAB-HLOBNUM .
      MODIFY ITAB .
    ENDIF.
  ENDLOOP.
ENDFORM.                    " PROCESS_DATA
I hope the above helps
Cheers
VJ
Message was edited by: Vijayendra  Rao