Help for dynamic selection

Question

Hello guy,
I want to dynamically search for the occurrence of certain words in each data record(each field) in each table. Below is my code
Parameters: p_tabname like dd02l-tabname.
SELECT * FROM dd02l
  INTO  TABLE itab
  WHERE as4local = 'A'
   AND tabname = p_tabname
LOOP AT itab INTO w_tab.
CREATE DATA ref_itab TYPE STANDARD TABLE OF (w_tab-tabname).
    ASSIGN ref_itab->* TO <fs_itab>.
CREATE DATA ref_wa TYPE (w_tab-tabname).
    ASSIGN ref_wa->* TO <fs_wa>.
SELECT * FROM (w_tab-tabname)
    INTO CORRESPONDING FIELDS OF TABLE <fs_itab>.
   DESCRIBE TABLE  itab. "check if the table contains entries.
   IF sy-tfill > 0.
LOOP AT <fs_itab> INTO <fs_wa>. " loop at each table that contains entries and search for the strings or characters
SEARCH <fs_wa> for 'bbbb_' and '3456*' and '8970*' and '2980*'  "this is not working
* If any of the entries exist in a table, I would like to give out the table name, the field which contains this entry and the dataelement
* of the field that contain the entry
      ENDLOOP.
ENDIF.
ENDLOOP.
Can some one please show me how to move forward to achieve this?
Thank you
Nadin

Answer 1

Thank you so much Micky. It works perfectly. I really much appreciate your help. I will award points.
Now I want to do some thing more. I want to output the data element and description,fieldname  tabledescription for example. I know that the dataelement of a field and the description can be found in the TABLE dd04t OR FM: DDIF_FIELDINFO_GET but you need to know the exact position of the field element dynamically. My problem now is I want to get the table description of SPFLI from dd02t, all the dataelements and the descriptions of the field 'TOKYO' and perhaps AIRPTO 'KIX'. Have adjusted my code as follows but still have trouble: Could you please Micky or any body show me how to achieve this?
It is kind of tricky because the sy-tabix can be 2 but the TOKYO is at the 5th field. Thank you.
Parameters: p_tabname like dd02l-tabname default 'spfli'.
DATA: t_dd02l   TYPE STANDARD TABLE OF dd02l.
DATA: t_dd03l   TYPE STANDARD TABLE OF dd03l.
DATA: t_dfies   TYPE STANDARD TABLE OF dfies.
DATA: ref_itab   TYPE REF TO data.
DATA: ref_wa    TYPE REF TO data.
DATA: ref_itab_temp TYPE REF TO data.
DATA: ref_wa_temp   TYPE REF TO data.
DATA: w_dd02l  TYPE dd02l.
DATA: w_dd03l  TYPE dd03l.
DATA: w_dfies   TYPE  dfies.
DATA: w_string  TYPE string.
DATA: w_fieldname   TYPE string.
DATA: w_fieldnamestring  TYPE string.
DATA: w_tabix TYPE sy-tabix.
DATA: w_dd02t  TYPE dd02t.
DATA: w_dd04t     TYPE dd04t.
DATA: w_datenelement TYPE rollname.
DATA: w_dfies_tmp TYPE dfies.
FIELD-SYMBOLS:
<fs_itab>          TYPE ANY TABLE,
<fs_itab_temp> TYPE ANY TABLE,
<fs_wa_temp>  TYPE ANY,
<fs_wa>           TYPE ANY,
<component>  TYPE ANY.
  CLEAR t_dd02l.
  SELECT * FROM dd02l
  INTO  TABLE t_dd02l
  WHERE as4local = 'A'
  AND tabclass   = 'TRANSP'
    AND tabname IN so_tab.
  LOOP AT t_dd02l INTO w_dd02l.
    CREATE DATA ref_itab TYPE STANDARD TABLE OF (w_dd02l-tabname).
    ASSIGN ref_itab->* TO <fs_itab>.
    ASSIGN ref_itab->* TO <fs_itab_temp>.
    CREATE DATA ref_wa TYPE (w_dd02l-tabname).
    ASSIGN ref_wa->* TO <fs_wa>.
    ASSIGN ref_wa->* TO <fs_wa_temp>.
    SELECT * FROM dd03l
    INTO  TABLE t_dd03l
   WHERE tabname = w_dd02l-tabname
   AND  as4local      = 'A'
   AND   datatype    = 'CHAR'.
    CLEAR: w_dd03l, w_fieldnamestring.
    LOOP AT t_dd03l INTO w_dd03l.
      CLEAR w_fieldname.
      w_fieldname = w_dd03l-fieldname.
      CONCATENATE w_fieldname w_fieldnamestring INTO
    w_fieldnamestring SEPARATED BY space IN CHARACTER MODE.
    ENDLOOP.
    CREATE DATA ref_itab_temp TYPE STANDARD TABLE OF (w_dd03l-tabname).
    ASSIGN ref_itab_temp->* TO <fs_itab_temp>.
    CREATE DATA ref_wa_temp TYPE (w_dd03l-tabname).
    ASSIGN ref_wa_temp->* TO <fs_wa_temp>.
    SELECT (w_fieldnamestring) FROM (w_dd03l-tabname)
    INTO CORRESPONDING FIELDS OF TABLE <fs_itab_temp>.
    DESCRIBE TABLE <fs_itab_temp>.
    IF sy-tfill > 0.
      CLEAR w_tabix.
      CLEAR w_nut.
      LOOP AT <fs_itab_temp> INTO <fs_wa_temp>.
        CLEAR w_longstring.
        w_tabix = w_tabix + 1.
        IF <fs_wa_temp> IS NOT INITIAL.
          DO.
            ASSIGN COMPONENT sy-index OF STRUCTURE <fs_wa_temp> TO <component>.
            CLEAR w_string.
            IF sy-subrc <> 0.
              EXIT.
            ENDIF.
            CLEAR: w_string.
            IF NOT <component> IS INITIAL.
              MOVE <component> TO w_string.
              CONCATENATE w_string w_longstring INTO w_longstring
              SEPARATED BY ';'.
              IF w_string CS 'TOKYO'.
                CLEAR w_dd02t.
                SELECT SINGLE * FROM dd02t INTO w_dd02t
                WHERE tabname    =  w_dd03l-tabname
                  AND ddlanguage = 'DE'.
                CLEAR t_dfies.
                CALL FUNCTION 'DDIF_FIELDINFO_GET'
                  EXPORTING
                    tabname        = w_dd03l-tabname
                  TABLES
                    dfies_tab      = t_dfies
                  EXCEPTIONS
                    not_found      = 1
                    internal_error = 2
                    OTHERS         = 3.
                IF sy-subrc = 0.
                  CLEAR w_dfies.
                  READ TABLE t_dfies INTO w_dfies
                  WITH KEY tabname = w_dd03l-tabname.
                  READ TABLE t_dfies INDEX  w_tabix INTO w_dfies_tmp.
                  SELECT SINGLE * FROM dd04t INTO w_dd04t
                  WHERE rollname    = w_dfies_tmp-rollname
                  AND   ddlanguage  = 'EN'
                  AND    as4local   = 'A'.
                  WRITE:/ w_dfies-tabname, w_dd02t-ddtext, w_string, w_dd04t-rollname, w_dd04t-ddtext, w_longstring.
                ENDIF.
              ENDIF.
            ENDIF.
          ENDDO.
        ENDIF.
      ENDLOOP.
    ENDIF.
  ENDLOOP.
Edited by: nadin ram on Apr 11, 2008 7:06 PM