Inserting data into dynamic internal tables

[Former Member]

Hello everyone, i need some suggestions on the following problem:

I have created a dynamic table that consist of storage locations(SL) belonging to a plant. Each record in the internal table would need to display all the SL on the same line. I have succesfully created it and displayed it on an ALV, the problem now is how to insert data for the dynamically created storage locations:

EXAMPLE: Created dynamic itab

colA | colB | SL1 | SL2 | ... | SLn | colC | <--header

-

---

data | data | 100 | 120 | ... | 200 | data | <--record

.

..

...

I would like to insert data from the fields of another itab into SL1 to SLn. How can i go about doing it?

Data from ColA to ColC has been filled through:

<i>loop at itab into w_itab.

move-corresponding w_itab to <dyn_tab>.

.

.

endloop.</i>

I cannot do the same to the SLs as the fields is dynamically created during runtime and the fieldname is different from the data that i am to insert in into.

Any ideas?

[athavanraja]

Welcome to SDN.

check out the below code sample to see how the data is insterted.

REPORT Y_RAJA_DYN_ITAB .

TYPE-POOLS: slis.

DATA: it_fcat TYPE slis_t_fieldcat_alv,
      is_fcat LIKE LINE OF it_fcat.
DATA: it_fieldcat TYPE lvc_t_fcat,
      is_fieldcat LIKE LINE OF it_fieldcat.
DATA: new_table TYPE REF TO data.
DATA: new_line  TYPE REF TO data.
FIELD-SYMBOLS: <l_table> TYPE ANY TABLE,
               <l_line>  TYPE ANY,
               <l_field> TYPE ANY.

is_fieldcat-fieldname = 'FIELD1'.
is_fieldcat-ref_field = 'MATNR'.
is_fieldcat-ref_table = 'MARA'.
APPEND is_fieldcat TO it_fieldcat.

is_fieldcat-fieldname = 'FIELD2'.
is_fieldcat-ref_field = 'SPRPS'.
is_fieldcat-ref_table = 'PA0001'.
APPEND is_fieldcat TO it_fieldcat.

is_fieldcat-fieldname = 'FIELD3'.
is_fieldcat-ref_field = 'BEGDA'.
is_fieldcat-ref_table = 'PA0002'.
APPEND is_fieldcat TO it_fieldcat.

CALL METHOD cl_alv_table_create=>create_dynamic_table
  EXPORTING
    it_fieldcatalog = it_fieldcat
  IMPORTING
    ep_table        = new_table.

ASSIGN new_table->* TO <l_table>.
CREATE DATA new_line LIKE LINE OF <l_table>.
ASSIGN new_line->* TO <l_line>.

DO 10 TIMES.
  ASSIGN COMPONENT 'FIELD1' OF STRUCTURE <l_line> TO <l_field>.
  <l_field> = '12345'.

  ASSIGN COMPONENT 'FIELD2' OF STRUCTURE <l_line> TO <l_field>.
  <l_field> = 'X'.

  ASSIGN COMPONENT 'FIELD3' OF STRUCTURE <l_line> TO <l_field>.
  <l_field> = sy-datum.

  INSERT <l_line> INTO TABLE <l_table>.
ENDDO.

LOOP AT <l_table> ASSIGNING <l_line>.
  WRITE  / <l_line>.
ENDLOOP.

Regards

Raja

[Former Member]

Hi,

I have the following code in my BADI:

ct_value_list is defined in the parameters of the method as a type standard table.

• Create values list reference

CREATE DATA lv_value_list_ref LIKE LINE OF ct_value_list.

ASSIGN lv_value_list_ref->* TO <lfs_value_list>.

IF CT_VALUE_LIST IS INITIAL.

lv_tabix = sy-tabix.

IF NOT LT_DATA[] IS INITIAL.

LOOP AT lt_data assigning <lfs_data>.

assign <lfs_data> to <lfs_value_list>.

• assign <lfs_value_list> to <lv_value_list>.

ASSIGN COMPONENT lc_prvar OF STRUCTURE <lfs_value_list>

TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• Get the material id

READ TABLE it_matkey_tab ASSIGNING <lfs_matkey>

WITH KEY matnr = <lfs_attribute>.

IF sy-subrc = 0.

lv_matid = <lfs_matkey>-matid.

ENDIF.

ENDIF.

ASSIGN COMPONENT lc_mktgr OF STRUCTURE <lfs_value_list>

TO <lfs_attribute>.

IF <lfs_value_list> IS ASSIGNED.

READ TABLE it_loc ASSIGNING <lfs_loc>

WITH KEY locno = <lfs_attribute>.

IF sy-subrc = 0.

lv_locid = <lfs_loc>-locid.

ENDIF.

READ TABLE it_matloc ASSIGNING <lfs_matloc_int>

WITH KEY matid = lv_matid

locid = lv_locid.

if sy-subrc = 0.

• MATLOC: Assignment of Values - START

ASSIGN COMPONENT 'MATLOCID'

OF STRUCTURE <lfs_matloc_int> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_matloc_int>-matlocid.

• INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

INSERT <lfs_matloc_int> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'PLANNER_SNP'

OF STRUCTURE <lfs_matloc_int> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_matloc_int>-planner_snp.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'AT101'

OF STRUCTURE <lfs_matloc_int> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_matloc_int>-at101.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'AT102'

OF STRUCTURE <lfs_matloc_int> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_matloc_int>-at102.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'AT103'

OF STRUCTURE <lfs_matloc_int> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_matloc_int>-at103.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'AT104'

OF STRUCTURE <lfs_matloc_int> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_matloc_int>-at104.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'AT105'

OF STRUCTURE <lfs_matloc_int> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_matloc_int>-at105.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

endif.

ENDIF.

ASSIGN COMPONENT 'PRVAR'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

<lfs_attribute> = <lfs_value_list>-prvar.

INSERT <lfs_value_list> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'PARPR'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-parpr.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'VARID'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-varid.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'VARCT'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-varct.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'VARTX'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-vartx.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'DMOAP'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-dmoap.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'PRDID'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-prdid.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'BRFAM'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-brfam.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'MATKL'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-matkl.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'BRDIF'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-brdif.

INSERT <lfs_attribute> INTO TABLE ct_value_list.

ENDIF.

ASSIGN COMPONENT 'MEIND'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-meind.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'MKLEN'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-mklen.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'PCKTY'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-pckty.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'ITPCK'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-itpck.

INSERT <lfs_attribute> INTO TABLE ct_value_list.

ENDIF.

ASSIGN COMPONENT 'PMEIN'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-pmein.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'MKTHK'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-mkthk.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'FLIND'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-flind.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'EDTID'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-edtid.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'BNDTY'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-bndty.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'ITBND'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-itbnd.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'ITCSE'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-itcse.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'TPCOL'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-tpcol.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'SPFLV'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-spflv.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'PRSHP'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-prshp.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'MKTGR'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-mktgr.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'SUBMK'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-submk.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'BOMHD'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-bomhd.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'BRDSC'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-brdsc.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'MKSTR'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-mkstr.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'EDDSC'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-eddsc.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'EDCAT'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-edcat.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'CCIND'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-ccind.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'CGSTY'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-cgsty.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'FLTTY'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-fltty.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'CPIND'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-cpind.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'MBIND'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-mbind.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'USPRP'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-usprp.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'EDDET'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-eddet.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'BRGEW'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-brgew.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'NTGEW'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-ntgew.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'GEWEI'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-gewei.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'VOLUM'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-volum.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'VOLEH'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-voleh.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'DMOAPP1'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-dmoapp1.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'MAKTX'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-maktx.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ASSIGN COMPONENT 'RPLVL'

OF STRUCTURE <lfs_value_list> TO <lfs_attribute>.

IF <lfs_attribute> IS ASSIGNED.

• <lfs_attribute> = <lfs_value_list>-rplvl.

INSERT <lfs_attribute> INTO TABLE <lv_value_list>.

ENDIF.

ENDLOOP.

ENDIF.

ENDIF.

I get a shortdump in the code for the above code. There are diff types of inserts that I am trying to do and each one gives a short dump.

Looking forward to your inputs.

Your program is not applicable in my case as I have ct_value_list passed as a changing parameter of type standard table in my APO BADI.

cheers

Aveek