Dynamic typing error

Question

Hi *,
I'm trying to build a generic application to check values into any table.
But I'm facing the following problem:
FIELD-SYMBOLS: <fstable> TYPE table,
               <fscond> TYPE table,
               <fs_line> TYPE ANY,
               <dyn_wa> TYPE any,
               <dyn_field> TYPE any.
data: tipo(20) TYPE c VALUE '/FRE/SUBST_ASSMT'.
data:       dy_line  type ref to data.
ASSIGN it_data TO <fstable> CASTING TYPE (tipo).
  create data dy_line TYPE (tipo)."like line of <fstable>.
  assign dy_line->* to <dyn_wa> CASTING TYPE (tipo).
LOOP at <fstable> INTO <dyn_wa>.
--->  if <dyn_wa>-subst_c = '0'.
-->    endif.
    do.
     assign component  sy-index of structure <dyn_wa> to <dyn_field>.
      if sy-subrc <> 0.
      exit.
      endif.
    enddo.
ENDLOOP.
It's clear that since the variable is untyped I can not perform this check. SE80 says that there is no structure, therefore no component.
Let's say, I've got a table, MARA and I want to check if a field is 0, and then later on I have to check if MARC has field 'X' to 0... I want to reuse the code.
Any ideas how can achieve that?
Any help will be apprecitad,
Isidoro!

Answer 1

Hi,
Your solution is not bad, actually I like it, but I solved the problem in a different way. Have a look at:
FIELD-SYMBOLS: <fstable> TYPE table,
               <fscond> TYPE table,
               <fs_line> TYPE ANY,
               <dyn_wa> TYPE any,
               <dyn_field> TYPE any.
data:  lt_wheres         TYPE rsds_twhere,
       lrt_cond          TYPE STANDARD TABLE OF rsds_range,
       lrs_cond          LIKE LINE OF lrt_cond.
data:  dy_line  type ref to data.
DATA: lr_rtti_struc TYPE REF TO cl_abap_structdescr.
DATA: lt_comp TYPE cl_abap_structdescr=>component_table.
DATA: ls_comp LIKE LINE OF lt_comp.
data: campos type DDFIELDS,
      ls_campos LIKE LINE OF campos.
DATA: index TYPE i VALUE '1'.
*Assign the dynamic structures.
ASSIGN it_data TO <fstable>.
create data dy_line like line of <fstable>.
assign dy_line->* to <dyn_wa>.
*get the description of the elements from DDIC
lr_rtti_struc ?= cl_abap_structdescr=>DESCRIBE_BY_DATA_REF( dy_line ).
lr_rtti_struc->GET_DDIC_FIELD_LIST( EXPORTING P_INCLUDING_SUBSTRUCTRES = 'X'
                                    RECEIVING P_FIELD_LIST = campos ).
LOOP at campos INTO ls_campos.
    if ls_campos-fieldname = 'SUBST_CTRL'.
      index = sy-tabix.
    endif.
ENDLOOP.
LOOP at <fstable> INTO <dyn_wa>.
    do.
     assign component  sy-index of structure <dyn_wa> to <dyn_field>.
      if sy-subrc <> 0.
      exit.
      endif.
if sy-index = index.
if  <dyn_field> = '3'.
  WRITE / 'OK!