Using field-symbols with FOR ALL ENTRIES IN ...

Question

Hi all of you,
Is it possible to use field symbol by the FOR ALL THE ENTRIES IN itab.
Normally, isn't possible.
So my problem is that I'm having duplicate code.
I've something like this.
      IF ap_objcl EQ omaterial.
        SELECT objectid
        INTO TABLE i_cdpos
        FROM cdpos
        FOR ALL ENTRIES IN otf_materials
        WHERE objectclas = ap_objcl AND
              tabname = otf_materials-tablename AND
              fname = otf_materials-fieldname.
     ELSEIF ap_objcl EQ otf_documents...
And I'm looking to use otf_materials and otf_documents
So, instead to duplicate the code, I'm looking for a way to restrain the code by using maybe field symbols.
Ideal :
FIELD-SYMBOLS : <otf_mats_docs> LIKE OTF_TABLE.
IF ap_objcl EQ omaterial
ASSIGN local copy of otf_materials TO <otf_mats_docs> CASTING.
ELSEIF ap_objcl EQ odocuments
ASSIGN local copy of otf_documents TO <otf_mats_docs> CASTING.
ENDIF.
        SELECT objectid
        INTO TABLE i_cdpos
        FROM cdpos
        FOR ALL ENTRIES IN <otf_mats_docs>
        WHERE objectclas = ap_objcl AND
              tabname = <otf_mats_docs>-tablename AND
              fname = <otf_mats_docs>-fieldname.
IF ap_objcl EQ omaterials.
*Do nothing
ELSEIF ap_objcl EQ odocuments.
*Do something with the date in otf_documents.
ENDIF.
Regards,
Kais

Answer 1

Hi,
Ok, using forms is great things to deal with it.
But, may be it'll slow down the program and I need a really rapid program.
I tried using form.
The problem by pushing the FOR ALL ENTRIES IN <structure>
didn't works.
It tells me that the structure that I pushed via "using" is not an internal table.
The same structure work find in the global program.
What should I do ?.
The structure is given by as a parameters in Function Module.
FORM data_search
  USING
    object_cl TYPE j_objnr
    table_data LIKE ****structure****
  CHANGING
    global_lst TYPE ANY TABLE.
      DATA : BEGIN OF otf_list OCCURS 0,
           objectid TYPE cdpos-objectid,
         END OF otf_list.
  DATA : ii_cdpos LIKE TABLE OF otf_list WITH HEADER LINE.
     IF table_data IS NOT INITIAL.
        SELECT objectid
        INTO TABLE ii_cdpos
        FROM cdpos
        FOR ALL ENTRIES IN table_data
        WHERE objectclas = object_cl AND
              tabname = table_data-tablename AND
              fname = table_data-fieldname.
      ELSE.
        SELECT objectid
        INTO TABLE i_cdpos
        FROM cdpos
        WHERE objectclas = ap_objcl.
      ENDIF.
      SELECT DISTINCT objectid
      INTO TABLE global_lst
      FROM cdhdr
      FOR ALL ENTRIES IN ii_cdpos
      WHERE ( ( udate GT from_date AND udate LT to_date ) OR
              ( udate EQ from_date AND udate NE to_date AND utime GE from_time ) OR
*              ( udate NE from_date AND udate EQ to_date AND utime LE to_time ) OR
*              ( udate EQ from_date AND udate EQ to_date AND utime GE from_time AND utime LE to_time )
              ( udate EQ to_date AND (
                                       udate NE from_date OR
                                       utime GE from_time
                                 AND utime LE to_time )
            ) AND
            objectclas = ap_objcl AND
            objectid = ii_cdpos-objectid.
ENDFORM.