How to use different field symbols to append data in a loop

Question

Hi experts!
I have to loop over a itab and I want to save different  into one table.
See my code below:
DATA: l_hours        TYPE i,
      grfk_ok_code    TYPE sy-ucomm,
      grfk_values     TYPE TABLE OF GPRVAL WITH HEADER LINE,
      grfk_coltxt     TYPE TABLE OF GPRTXT WITH HEADER LINE,
      wa_ztab         TYPE zqm_chq_prueflos,
      l_index      TYPE n,
      l_field      TYPE string,
      l_line_check TYPE string
FIELD-SYMBOLS:
      <fs_0102>   TYPE ANY,
      <fs_0304>   TYPE ANY,
      <fs_0506>   TYPE ANY,
      <fs_grenze> TYPE ANY
REFRESH: grfk_values.
CLEAR:   l_hours.
  LOOP AT ztab INTO wa_ztab.
  AT NEW qase_serialnr.
    CLEAR: l_line_check.
    IF wa_ztab-qase_serialnr CS '-01'
    OR wa_ztab-qase_serialnr CS '-02'.
        grfk_values-rowtxt = 'gelötet'.
        l_line_check = '0102'.
    ELSEIF wa_ztab-qase_serialnr CS '-03'
    OR     wa_ztab-qase_serialnr CS '-04'.
        grfk_values-rowtxt = 'geglüht'.
        l_line_check = '0304'.
    ELSEIF wa_ztab-qase_serialnr CS '-05'
    OR     wa_ztab-qase_serialnr CS '-06'.
        grfk_values-rowtxt = 'unbehandelt'.
        l_line_check = '0506'.
    ELSE.
      grfk_values-rowtxt = 'serialnr_wrong'.
    ENDIF.
  ENDAT.
***---------------------------------------------------->
  AT NEW qapp_usern1.
*   X-axis: values are:0,50,100,...,400
    grfk_coltxt-coltxt = wa_ztab-qapp_usern1.
    SHIFT grfk_coltxt-coltxt LEFT DELETING LEADING '0'.
    APPEND grfk_coltxt.
    UNASSIGN <fs_grenze>.
    CLEAR: l_index, l_field.
    l_index = sy-tabix.
    CONCATENATE 'grfk_values-val' l_index INTO l_field.
    ASSIGN (l_field) TO <fs_grenze>.
    IF sy-subrc <> 0.
      EXIT.
    ENDIF.
    <fs_grenze> = 10.
    APPEND grfk_values.
  ENDAT.
  IF l_line_check = '0102'.
      UNASSIGN <fs_0102>.
      CLEAR: l_index, l_field.
      l_index = sy-tabix.
      CONCATENATE 'grfk_values-val' l_index INTO l_field.
      ASSIGN (l_field) TO <fs_0102>.
      IF sy-subrc <> 0.
        EXIT.
      ENDIF.
      <fs_0102> = wa_ztab-cf_dgp.
  ELSEIF l_line_check = '0304'.
      UNASSIGN <fs_0304>.
      CLEAR: l_index, l_field.
      l_index = sy-tabix.
      CONCATENATE 'grfk_values-val' l_index INTO l_field.
      ASSIGN (l_field) TO <fs_0304>.
      IF sy-subrc <> 0.
        EXIT.
      ENDIF.
      <fs_0304> = wa_ztab-cf_dgp.
  ELSEIF l_line_check = '0506'.
      UNASSIGN <fs_0506>.
      CLEAR: l_index, l_field.
      l_index = sy-tabix.
      CONCATENATE 'grfk_values-val' l_index INTO l_field.
      ASSIGN (l_field) TO <fs_0506>.
      IF sy-subrc <> 0.
        EXIT.
      ENDIF.
      <fs_0506> = wa_ztab-cf_dgp.
  ENDIF.
ENDLOOP.
My goal should be to fill the graphic with 4 Lines:
1 is boarderline.
2-3 are the lines with the looped values in "ztab"
Do I have to use references to write the values in  into different rows of internal table "grfk_values"????
With this code I want to fill the itab which I need for the GFW_PRES_SHOW function.
The table I have to commit has the following structure:
-rowtxt
-val1
-val2
-val31
EDIT:
My current output are 2 lines the first has value 0 for each point and the second shows the correct values... The boarder which always should have value 10 is completly not shown.

Answer 1

hopen this will help
report zrich_0001 .
data: begin of itab1 occurs 0,
      fld1(10) type c,
      fld2(10) type c,
      fld3(10) type c,
      end of itab1.
data: begin of itab2 occurs 0,
    flda(10) type c,
    fldb(10) type c,
    fldc(10) type c,
    end of itab2.
field-symbols: <fs_table> type table,
               <fs_wa>,
               <fs>.
data: mod_field(10) type c.
itab1-fld1 = '1'. itab1-fld2 = '2'. itab1-fld3 = '3'. append itab1.
itab1-fld1 = '4'. itab1-fld2 = '5'. itab1-fld3 = '6'. append itab1.
itab2-flda = 'A'. itab2-fldb = 'B'. itab2-fldc = 'C'. append itab2.
itab2-flda = 'D'. itab2-fldb = 'E'. itab2-fldc = 'F'. append itab2.
assign itab1[] to <fs_table>.
assign itab1 to <fs_wa>.
mod_field = 'FLD2'.
perform modify_table.
perform write_table.
assign itab2[] to <fs_table>.
assign itab2 to <fs_wa>.
mod_field = 'FLDC'.
perform modify_table.
perform write_table.
      FORM modify_table                                             *
form modify_table.
  loop at <fs_table> into <fs_wa>.
    assign component mod_field of structure <fs_wa> to <fs>.
    <fs> = 'Modified'.
    modify <fs_table> from <fs_wa>.
  endloop.
endform.
      FORM write_table                                             *
form write_table.
  loop at <fs_table> into <fs_wa>.
    do.
      assign component sy-index of structure <fs_wa> to <fs>.
      if sy-subrc <> 0.
        exit.
      endif.
      if sy-index = 1.
        write:/ <fs>.
      else.
        write: <fs>.
      endif.
    enddo.
  endloop.
endform.
regards
navjot
reward points if helpfull