Appending values to dynamically created fieldsymbol

Question

Hi ,
I have a requirement to append values to dynamically created fieldsymbols
from internal table   .
I am using the following code but it dosnt work
<F4> declared as line of <dyn_table>.
loop at it_tab into wa_tab .( this contain the data to be appended to dyn fieldsymbol)
loop at it_fieldcat into wa_fieldcat. ( this contains the fieldnames )
case wa_final_fieldcat-FIELDNAME.
when 'AAA'.
v_field_name = 'AAA.
when 'BBB'.
v_field_name = 'BBB'.
endcase.
ASSIGN COMPONENT v_field_name of STRUCTURE wa_tab to <F4>.
endloop.
append <f4> to <dyn_table>
********************************************8
But only get one value i.e field BBB  value appended to
<dyn_table>.
is there any way i can do the append to field symbol looping through internal
table ?
thanks
raj

Answer 1

i done it in alv so take the part you need .
1) to create dynamic table  :  CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
also create dynamic fieldcatalog .
2) you can pull data just one time from the DB to dynamic table
so i take the data in regulare it table and in the and i put it
in the dynamic table
hope i help  , if you didnt understand some part  , say so  .
  DATA  : LT_FCAT   TYPE LVC_T_FCAT  ,
         lo_struct TYPE REF TO data,
           LV_STRUC_NAME TYPE TABNAME VALUE 'YMM_ST_TNUOT_MLY'.
REFRESH ls_fcat.
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      I_STRUCTURE_NAME       = LV_STRUC_NAME
      I_BYPASSING_BUFFER     = 'X'
    CHANGING
      CT_FIELDCAT            = IT_COLUM_HEADER
    EXCEPTIONS
      INCONSISTENT_INTERFACE = 1
      PROGRAM_ERROR          = 2
      OTHERS                 = 3.
  IF SY-SUBRC <> 0.
   MESSAGE e402(mo) WITH lv_struc_name.
    EXIT.
  ENDIF.
  DATA INDX(3) .
  IF G_COUNETR_NUMBER_OF_KOSTL > 0 .
    DO G_COUNETR_NUMBER_OF_KOSTL TIMES.
      INDX = SY-INDEX.
      SHIFT INDX LEFT DELETING LEADING SPACE.
      CONCATENATE 'KOSTL' INDX INTO LS_FCAT-FIELDNAME.
      LS_FCAT-INTTYPE    = 'I'.
      LS_FCAT-COL_POS =  27 +  SY-INDEX .
      CONCATENATE TEXT-028    INDX INTO LS_FCAT-COLTEXT.
      LS_FCAT-OUTPUTLEN = 10.
      APPEND LS_FCAT TO IT_COLUM_HEADER.
    ENDDO.
  ENDIF.
  CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
      IT_FIELDCATALOG           = IT_COLUM_HEADER
    IMPORTING
      EP_TABLE                  = GT_TABLE
    EXCEPTIONS
      GENERATE_SUBPOOL_DIR_FULL = 1
      OTHERS                    = 2.
  ASSIGN GT_TABLE->* TO <DYN_TABLE>.
*--> Arbeitsbereich dynamisch erzeugen
  CREATE DATA LO_STRUCT LIKE LINE OF <DYN_TABLE>.
  ASSIGN LO_STRUCT->* TO <WA>.
  LOOP AT IT_COLUM_HEADER INTO LS_FCAT.
    IF LS_FCAT-FIELDNAME NE 'MANDT'.
      ADD 1 TO LS_FCAT-COL_POS.
      PERFORM TRANSLATE_HEADER.
      MODIFY IT_COLUM_HEADER FROM LS_FCAT.
    ENDIF.
  ENDLOOP.
=============   assigning to dynamic table
DATA  : FIELD(10)   ,
           INDX1(3) .
  DATA: WA_DREF TYPE REF TO DATA.
  DATA :  FS_SUM_GL LIKE LINE OF IT_YMM_ST_TNUOT_MLY.
  CREATE DATA LP_DATA LIKE LINE OF <DYN_TABLE>.
  ASSIGN LP_DATA->* TO <LS_LINE>.
  LOOP AT IT_YMM_ST_TNUOT_MLY.
    MOVE-CORRESPONDING IT_YMM_ST_TNUOT_MLY TO <LS_LINE>.
    INSERT <LS_LINE> INTO TABLE <DYN_TABLE>.
  ENDLOOP  .
  DATA L_COUNTER_ROLL TYPE I .
  LOOP AT <DYN_TABLE> INTO <LS_LINE> .
    MOVE-CORRESPONDING <LS_LINE> TO FS_SUM_GL.
    CLEAR : FIELD , INDX1 , L_COUNTER_ROLL .
    L_COUNTER_ROLL = 1 .
    LOOP AT IT_EKKN  WHERE EBELN = FS_SUM_GL-EBELN.
                    AND   EBELP = FS_SUM_GL-EBELP.
     IF SY-SUBRC  = 0  .
      INDX1 = L_COUNTER_ROLL.
      SHIFT INDX1 LEFT DELETING LEADING SPACE.
      CONCATENATE 'KOSTL'  INDX1 INTO FIELD .
      ASSIGN COMPONENT FIELD  OF STRUCTURE <LS_LINE> TO <FS1>.
      <FS1> = IT_EKKN-KOSTL .
      MODIFY <DYN_TABLE> INDEX SY-TABIX FROM  <LS_LINE> .
      L_COUNTER_ROLL = L_COUNTER_ROLL + 1 .
     ENDIF.
    ENDLOOP .
  ENDLOOP .