fill dynamic table program

Former Member — Tue, 23 Oct 2012 14:22:32 GMT

hi guru,

I need to creatre a abap program (SAP CRM) that allows me to load all the tables (obviously one at a time) via a CSV file.

the input parameters of the program are in fact 2:

path and file name of the table.

I am experiencing various problems for the creation of dynamic internal tables and structures.

could you give me a hand? you've done a similar program?

thanks in advance

Valerio

Moderator Message: Please use "english" language from next time. I have translated for you this time.

Message was edited by: Kesavadas Thekkillath

Re: fill dynamic table program

Former Member — Tue, 23 Oct 2012 15:46:33 GMT

Hello

Hope this code solve your query.

TYPE-POOLS : abap.

FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE,

<dyn_wa>,

<dyn_field>.

DATA: dy_table TYPE REF TO data,

dy_line TYPE REF TO data,

xfc TYPE lvc_s_fcat,

ifc TYPE lvc_t_fcat.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.

PARAMETERS: p_table(30) TYPE c DEFAULT 'T001'.

SELECTION-SCREEN END OF BLOCK b1.

START-OF-SELECTION.

PERFORM get_structure.

PERFORM create_dynamic_itab.

*******Creates a dynamic internal table*********

PERFORM get_data.

PERFORM write_out.

*&---------------------------------------------------------------------*

*& Form get_structure

*&---------------------------------------------------------------------*

FORM get_structure.

DATA : idetails TYPE abap_compdescr_tab,

xdetails TYPE abap_compdescr.

DATA : ref_table_des TYPE REF TO cl_abap_structdescr.

* Get the structure of the table.

ref_table_des ?=

cl_abap_typedescr=>describe_by_name( p_table ).

idetails[] = ref_table_des->components[].

LOOP AT idetails INTO xdetails.

CLEAR xfc.

xfc-fieldname = xdetails-name .

* xfc-datatype = xdetails-type_kind.

CASE xdetails-type_kind.

WHEN 'C'.

xfc-datatype = 'CHAR'.

WHEN 'N'.

xfc-datatype = 'NUMC'.

WHEN 'D'.

xfc-datatype = 'DATE'.

WHEN 'P'.

xfc-datatype = 'PACK'.

WHEN OTHERS.

xfc-datatype = xdetails-type_kind.

ENDCASE.

xfc-inttype = xdetails-type_kind.

xfc-intlen = xdetails-length.

xfc-decimals = xdetails-decimals.

APPEND xfc TO ifc.

ENDLOOP.

ENDFORM. "get_structure

*&---------------------------------------------------------------------*

*& Form create_dynamic_itab

*&---------------------------------------------------------------------*

FORM create_dynamic_itab.

* Create dynamic internal table and assign to FS

CALL METHOD cl_alv_table_create=>create_dynamic_table

EXPORTING

it_fieldcatalog = ifc

i_length_in_byte = 'X' "added by Paul Robert Oct 28, 2009 17:04

IMPORTING

ep_table = dy_table.

ASSIGN dy_table->* TO <dyn_table>.

* Create dynamic work area and assign to FS

CREATE DATA dy_line LIKE LINE OF <dyn_table>.

ASSIGN dy_line->* TO <dyn_wa>.

ENDFORM. "create_dynamic_itab

*&---------------------------------------------------------------------*

*& Form get_data

*&---------------------------------------------------------------------*

FORM get_data.

* Select Data from table.

SELECT * INTO TABLE <dyn_table>

FROM (p_table).

ENDFORM. "get_data

*&---------------------------------------------------------------------*

*& Form write_out

*&---------------------------------------------------------------------*

FORM write_out.

LOOP AT <dyn_table> INTO <dyn_wa>.

DO.

ASSIGN COMPONENT sy-index

OF STRUCTURE <dyn_wa> TO <dyn_field>.

IF sy-subrc <> 0.

EXIT.

ENDIF.

IF sy-index = 1.

WRITE:/ <dyn_field>.

ELSE.

WRITE: <dyn_field>.

ENDIF.

ENDDO.

ENDLOOP.

ENDFORM. "write_out

Happy Coding

Sandeep

Re: fill dynamic table program

RaymondGiuseppi — Tue, 23 Oct 2012 18:31:45 GMT

If you are uploading data from csv (Il mio italiano non è molto buono, isn't it) just use a dynamic internal table via

Try to execute a small code like :

FIELD-SYMBOLS: <itab> TYPE ANY TABLE.
CREATE DATA dref TYPE STANDARD TABLE OF (dbtab).
ASSIGN dref->* to <itab>.
CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
    FILENAME             = 'C:\test.csv'
    FILETYPE             = 'ASC'
    HAS_FIELD_SEPARATOR  = ',' " Put your actual csv separator "," or other
  TABLES
    DATA_TAB              = <itab>
* ...

Regards,

Raymond

topic Re: fill dynamic table program in Application Development and Automation Discussions

fill dynamic table program

Re: fill dynamic table program

Re: fill dynamic table program