Logic for retreiving the values from a dynamic internal table

Question

Hi all,
I have an issue with the logic to fetch data from a dynamic internal table into fields. let me give you guys an example the sy-tfill = 9 (subject to vary). I need to populate the fields.
Regards,
Sukumar

Answer 1

Hi,
this is for printing out the info in a dynamic table,
it will work likewise to insert data.
PARAMETERS:
  p_tabnam TYPE tabname DEFAULT 'DB_TABLE_NAME'.
DATA:
  lv_dref TYPE REF TO data,
  ls_dd03l LIKE dd03l,
  lt_fieldname TYPE TABLE OF fieldname,
  ls_fieldname TYPE fieldname.
FIELD-SYMBOLS:
  <fs> TYPE STANDARD TABLE,
  <wa_comp> TYPE fieldname,
  <wa_data> TYPE ANY,
  <wa_field> TYPE ANY.
REFRESH lt_fieldname.
SELECT * FROM dd03l INTO ls_dd03l
                   WHERE as4local = 'A'
                     AND as4vers  = '0000'
                     AND tabname  = p_tabnam
                   ORDER BY position.
  ls_fieldname = ls_dd03l-fieldname.
  APPEND ls_fieldname TO lt_fieldname.
ENDSELECT.
IF NOT ( lt_fieldname[] IS INITIAL ).
  CREATE DATA lv_dref TYPE TABLE OF (p_tabnam).
  ASSIGN lv_dref->* TO <fs>.
  SELECT * FROM (p_tabnam) INTO TABLE <fs>.
  WRITE:
    / 'CONTENTS OF TABLE', p_tabnam.
  LOOP AT <fs> ASSIGNING <wa_data>.
    SKIP.
    WRITE:
      / 'LINE', sy-tabix.
    ULINE.
    LOOP AT lt_fieldname ASSIGNING <wa_comp>.
      ASSIGN COMPONENT sy-tabix OF STRUCTURE <wa_data> TO <wa_field>.
      WRITE:
        / <wa_comp>, <wa_field>.
    ENDLOOP.
  ENDLOOP.
ENDIF.
grtz
Koen