FM to get table names for a given Apllication Component.

Question

Hai Friends,
I have to create a function module which functions exactly as the INFORMATION SYSTEM button in se16 table help.
i have written something like this but this is not giving exact results as INFORMATION SYSTEM IN SE16.
for ex.  for componet sd-bil it gives 376 records where as in se16 you get only  30 to 40 table...
So pls help me with the tables and logic...
SELECT
          B~DEVCLASS
          INTO CORRESPONDING FIELDS OF TABLE IT_TDEVC
          FROM DF14L AS A
          INNER JOIN TDEVC AS B
          ON A~FCTR_ID = B~COMPONENT
          WHERE A~PS_POSID = COMPONENT.
  LOOP AT IT_TDEVC.
   SELECT TABNAME TABCLASS FROM DD02L
                  appending corresponding fields of table  TABLE_LIST
                  WHERE APPLCLASS = IT_TDEVC-DEVCLASS
                  AND ( TABCLASS = 'TRANSP'
                  OR TABCLASS = 'POOL' OR TABCLASS = 'CLUSTER')
                  AND AS4LOCAL = 'A'.
*                  append table_list.
* endselect.
   ENDLOOP.
This is just a test program so ignore the performance issues .
Waiting for your help..
Reshali.

Answer 1

Hi,
Try the below code....
REPORT  zsen_information_system.
PARAMETER w_comp TYPE ufps_posid.
TYPES : BEGIN OF y_tdevc ,
          devclass TYPE devclass,
        END OF y_tdevc.
TYPES : BEGIN OF y_table ,
          tabname  TYPE tabname,
          tabclass TYPE tabclass,
        END OF y_table.
DATA : it_tdevc TYPE STANDARD TABLE OF y_tdevc WITH HEADER LINE
     , it_tab_list TYPE STANDARD TABLE OF y_table WITH HEADER LINE
SELECT b~devclass
  INTO TABLE it_tdevc
  FROM df14l AS a
  INNER JOIN tdevc AS b
  ON afctr_id = bcomponent
  WHERE a~ps_posid = w_comp.
SELECT tabname FROM info_tabl
  INTO TABLE it_tab_list
  FOR ALL ENTRIES IN it_tdevc
  WHERE as4local IN ('L','A','N')
    AND tabclass IN ('TRANSP','VIEW','CLUSTER','POOL')
    AND devclass = it_tdevc-devclass.
IF sy-subrc EQ 0.
  LOOP AT it_tab_list.
    WRITE /: it_tab_list-tabname.
  ENDLOOP.
ENDIF.
Hope this will solve your problem
Thanks and regards,
Senthil Kumar Anantham.