topic Re: Creating Dynamic Internal Table in Application Development and Automation Discussions

topic Re: Creating Dynamic Internal Table in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/creating-dynamic-internal-table/m-p/2091079#M434736 <HTML><HEAD></HEAD><BODY><P>Hi..</P><P></P><P>go through this..</P><P></P><P>Please use this code.</P><P>for above WAS 6.20 .</P><P></P><P>report yes_tjung_sflight_test.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>Data Declaration</P></LI></UL></UL></UL><P></P><P>data: sflighttype type ref to cl_abap_structdescr,</P><P>tabletype type ref to cl_abap_tabledescr,</P><P>comp_tab type cl_abap_structdescr=>component_table,</P><P>new_comp_tab like comp_tab,</P><P>linetype type ref to cl_abap_structdescr,</P><P>dref type ref to data.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>Field Symbols</P></LI></UL></UL></UL><P></P><P>field-symbols: <wa_comp> like line of comp_tab.</P><P>field-symbols: <table> type any table.</P><P></P><P></P><P>sflighttype ?= cl_abap_typedescr=>describe_by_name('SFLIGHT').</P><P>comp_tab = sflighttype->get_components( ).</P><P></P><P></P><P>loop at comp_tab assigning <wa_comp>.</P><P>case <wa_comp>-name.</P><P>when 'CARRID' or 'CONNID' or 'FLDATE' or 'PRICE' or 'CURRENCY'.</P><P>append <wa_comp> to new_comp_tab.</P><P>endcase.</P><P>endloop.</P><P></P><P></P><P>linetype = cl_abap_structdescr=>create( new_comp_tab ).</P><P>tabletype = cl_abap_tabledescr=>create(</P><P>p_line_type = linetype</P><P>p_table_kind = cl_abap_tabledescr=>tablekind_std ).</P><P></P><P></P><P>create data dref type handle tabletype.</P><P>assign dref->* to <table>.</P><P></P><P></P><P>select * from sflight into corresponding fields of table <table>.</P><P></P><P></P><P>field-symbols: <wa_data> type any.</P><P>field-symbols: <wa_field> type any.</P><P>loop at <table> assigning <wa_data>.</P><P>write: /.</P><P>loop at new_comp_tab assigning <wa_comp>.</P><P>assign component sy-tabix of structure <wa_data> to <wa_field>.</P><P>write: <wa_field>.</P><P>endloop.</P><P>endloop.</P><P></P><P>For was 6.20</P><UL><UL><UL><LI level="3" type="ul"><P>Tables</P></LI></UL></UL></UL><P>DATA: LT_DATA type ref to DATA.</P><P>DATA: LT_FIELDCATALOG type LVC_T_FCAT.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>Structure</P></LI></UL></UL></UL><P>DATA: LS_FIELDCATALOG type LVC_S_FCAT.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>Data References</P></LI></UL></UL></UL><P>DATA: NEW_LINE type ref to data.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>Field Symbols</P></LI></UL></UL></UL><P>FIELD-SYMBOLS: <FS_DATA> type ref to DATA,</P><P><FS_1> type any table,</P><P><FS_2>,</P><P><FS_3>.</P><P></P><P>LS_FIELDCATALOG-FIELDNAME = 'MANDT'. </P><P>append LS_FIELDCATALOG to LT_FIELDCATALOG.</P><P></P><P>LS_FIELDCATALOG-FIELDNAME = 'CARRID'. "Fieldname</P><P>LS_FIELDCATALOG-INTTYPE = 'C'. "Internal Type C-> Character</P><P>append LS_FIELDCATALOG to LT_FIELDCATALOG.</P><P></P><P>LS_FIELDCATALOG-FIELDNAME = 'CONNID'.</P><P>LS_FIELDCATALOG-INTTYPE = 'N'.</P><P>append LS_FIELDCATALOG to LT_FIELDCATALOG.</P><P></P><P>LS_FIELDCATALOG-FIELDNAME = 'FLDATE'.</P><P>LS_FIELDCATALOG-INTTYPE = 'D'.</P><P>append LS_FIELDCATALOG to LT_FIELDCATALOG.</P><P></P><P>LS_FIELDCATALOG-FIELDNAME = 'PRICE'.</P><P>LS_FIELDCATALOG-INTTYPE = 'P'.</P><P>append LS_FIELDCATALOG to LT_FIELDCATALOG.</P><P></P><P>LS_FIELDCATALOG-FIELDNAME = 'CURRENCY'.</P><P>LS_FIELDCATALOG-INTTYPE = 'C'.</P><P>append LS_FIELDCATALOG to LT_FIELDCATALOG.</P><P>assign LT_DATA to <FS_DATA>.</P><P></P><P>call method cl_alv_table_create=create_dynamic_table</P><P>exporting</P><P>it_fieldcatalog = LT_FIELDCATALOG</P><P>importing</P><P>ep_table = FS_DATA</P><P>exceptions</P><P>generate_subpool_dir_full = 1</P><P>others = 2</P><P>.</P><P>if sy-subrc <> 0.</P><P>endif.</P><P></P><P></P><UL><UL><UL><LI level="3" type="ul"><P>So <FS_1> now points to our dynamic internal table.</P></LI></UL></UL></UL><P></P><P>assign <FS_DATA>->* to <FS_1>.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>Next step is to create a work area for our dynamic internal table.</P></LI></UL></UL></UL><P></P><P>create data NEW_LINE like line of <FS_1>.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>A field-symbol to access that work area</P></LI></UL></UL></UL><P>assign NEW_LINE->* to <FS_2>.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>And to put the data in the internal table</P></LI></UL></UL></UL><P>select MANDT CARRID CONNID FLDATE PRICE CURRENCY</P><P>from SFLIGHT</P><P>into corresponding fields of table <FS_1>.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>Access contents of internal table</P></LI></UL></UL></UL><P>loop at <FS_1> assigning <FS_2>.</P><P></P><P>assign component 1 of structure <FS_2> to <FS_3>.</P><P>write: / <FS_3>.</P><P>endloop.</P><P></P><P>data: lv_tablename type string value 'SFLIGHT'.</P><P>data: lv_dref type ref to DATA.</P><P></P><P>CREATE DATA lv_dref type table of (lv_tablename).</P><P></P><P>FIELD-SYMBOLS: <FS> TYPE STANDARD TABLE.</P><P></P><P>ASSIGN lv_dref->* TO <FS>.</P><P></P><P>select *</P><P>from sflight</P><P>into table <FS>.</P></BODY></HTML> Wed, 11 Apr 2007 05:40:08 GMT Former Member 2007-04-11T05:40:08Z Creating Dynamic Internal Table https://community.sap.com/t5/application-development-and-automation-discussions/creating-dynamic-internal-table/m-p/2091078#M434735 <HTML><HEAD></HEAD><BODY><P>Hi</P><P> I want to create dynamic table. The problem that i am facing is with field catalog population. The below is the entire scenario mentioned:</P><P></P><P></P><P>TYPES: BEGIN OF ty_map,</P><P> charname TYPE char30, "Characteristics Name</P><P> doc TYPE char30, "Document Info Record</P><P> charvalue TYPE char30, "Characteristics Value</P><P> END OF ty_map.</P><P></P><P>Data: i_map type standard table of ty_map initial size 0.</P><P></P><P>This internal table is populated with data.My dynamic table will contain the number of colums which will be equal to number of rows in internal table.</P><P></P><P>were as the dynamic table field label will be same as that of the i_map-doc.</P><P></P><P></P><P>When I am doing the above there is problem with field catalog population as a result when the dynamic table creation method is called it is giving dump.</P><P></P><P>So how shohld I populate field catalog.</P></BODY></HTML> Wed, 11 Apr 2007 05:32:12 GMT https://community.sap.com/t5/application-development-and-automation-discussions/creating-dynamic-internal-table/m-p/2091078#M434735 Former Member 2007-04-11T05:32:12Z Re: Creating Dynamic Internal Table https://community.sap.com/t5/application-development-and-automation-discussions/creating-dynamic-internal-table/m-p/2091079#M434736 <HTML><HEAD></HEAD><BODY><P>Hi..</P><P></P><P>go through this..</P><P></P><P>Please use this code.</P><P>for above WAS 6.20 .</P><P></P><P>report yes_tjung_sflight_test.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>Data Declaration</P></LI></UL></UL></UL><P></P><P>data: sflighttype type ref to cl_abap_structdescr,</P><P>tabletype type ref to cl_abap_tabledescr,</P><P>comp_tab type cl_abap_structdescr=>component_table,</P><P>new_comp_tab like comp_tab,</P><P>linetype type ref to cl_abap_structdescr,</P><P>dref type ref to data.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>Field Symbols</P></LI></UL></UL></UL><P></P><P>field-symbols: <wa_comp> like line of comp_tab.</P><P>field-symbols: <table> type any table.</P><P></P><P></P><P>sflighttype ?= cl_abap_typedescr=>describe_by_name('SFLIGHT').</P><P>comp_tab = sflighttype->get_components( ).</P><P></P><P></P><P>loop at comp_tab assigning <wa_comp>.</P><P>case <wa_comp>-name.</P><P>when 'CARRID' or 'CONNID' or 'FLDATE' or 'PRICE' or 'CURRENCY'.</P><P>append <wa_comp> to new_comp_tab.</P><P>endcase.</P><P>endloop.</P><P></P><P></P><P>linetype = cl_abap_structdescr=>create( new_comp_tab ).</P><P>tabletype = cl_abap_tabledescr=>create(</P><P>p_line_type = linetype</P><P>p_table_kind = cl_abap_tabledescr=>tablekind_std ).</P><P></P><P></P><P>create data dref type handle tabletype.</P><P>assign dref->* to <table>.</P><P></P><P></P><P>select * from sflight into corresponding fields of table <table>.</P><P></P><P></P><P>field-symbols: <wa_data> type any.</P><P>field-symbols: <wa_field> type any.</P><P>loop at <table> assigning <wa_data>.</P><P>write: /.</P><P>loop at new_comp_tab assigning <wa_comp>.</P><P>assign component sy-tabix of structure <wa_data> to <wa_field>.</P><P>write: <wa_field>.</P><P>endloop.</P><P>endloop.</P><P></P><P>For was 6.20</P><UL><UL><UL><LI level="3" type="ul"><P>Tables</P></LI></UL></UL></UL><P>DATA: LT_DATA type ref to DATA.</P><P>DATA: LT_FIELDCATALOG type LVC_T_FCAT.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>Structure</P></LI></UL></UL></UL><P>DATA: LS_FIELDCATALOG type LVC_S_FCAT.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>Data References</P></LI></UL></UL></UL><P>DATA: NEW_LINE type ref to data.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>Field Symbols</P></LI></UL></UL></UL><P>FIELD-SYMBOLS: <FS_DATA> type ref to DATA,</P><P><FS_1> type any table,</P><P><FS_2>,</P><P><FS_3>.</P><P></P><P>LS_FIELDCATALOG-FIELDNAME = 'MANDT'. </P><P>append LS_FIELDCATALOG to LT_FIELDCATALOG.</P><P></P><P>LS_FIELDCATALOG-FIELDNAME = 'CARRID'. "Fieldname</P><P>LS_FIELDCATALOG-INTTYPE = 'C'. "Internal Type C-> Character</P><P>append LS_FIELDCATALOG to LT_FIELDCATALOG.</P><P></P><P>LS_FIELDCATALOG-FIELDNAME = 'CONNID'.</P><P>LS_FIELDCATALOG-INTTYPE = 'N'.</P><P>append LS_FIELDCATALOG to LT_FIELDCATALOG.</P><P></P><P>LS_FIELDCATALOG-FIELDNAME = 'FLDATE'.</P><P>LS_FIELDCATALOG-INTTYPE = 'D'.</P><P>append LS_FIELDCATALOG to LT_FIELDCATALOG.</P><P></P><P>LS_FIELDCATALOG-FIELDNAME = 'PRICE'.</P><P>LS_FIELDCATALOG-INTTYPE = 'P'.</P><P>append LS_FIELDCATALOG to LT_FIELDCATALOG.</P><P></P><P>LS_FIELDCATALOG-FIELDNAME = 'CURRENCY'.</P><P>LS_FIELDCATALOG-INTTYPE = 'C'.</P><P>append LS_FIELDCATALOG to LT_FIELDCATALOG.</P><P>assign LT_DATA to <FS_DATA>.</P><P></P><P>call method cl_alv_table_create=create_dynamic_table</P><P>exporting</P><P>it_fieldcatalog = LT_FIELDCATALOG</P><P>importing</P><P>ep_table = FS_DATA</P><P>exceptions</P><P>generate_subpool_dir_full = 1</P><P>others = 2</P><P>.</P><P>if sy-subrc <> 0.</P><P>endif.</P><P></P><P></P><UL><UL><UL><LI level="3" type="ul"><P>So <FS_1> now points to our dynamic internal table.</P></LI></UL></UL></UL><P></P><P>assign <FS_DATA>->* to <FS_1>.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>Next step is to create a work area for our dynamic internal table.</P></LI></UL></UL></UL><P></P><P>create data NEW_LINE like line of <FS_1>.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>A field-symbol to access that work area</P></LI></UL></UL></UL><P>assign NEW_LINE->* to <FS_2>.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>And to put the data in the internal table</P></LI></UL></UL></UL><P>select MANDT CARRID CONNID FLDATE PRICE CURRENCY</P><P>from SFLIGHT</P><P>into corresponding fields of table <FS_1>.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>Access contents of internal table</P></LI></UL></UL></UL><P>loop at <FS_1> assigning <FS_2>.</P><P></P><P>assign component 1 of structure <FS_2> to <FS_3>.</P><P>write: / <FS_3>.</P><P>endloop.</P><P></P><P>data: lv_tablename type string value 'SFLIGHT'.</P><P>data: lv_dref type ref to DATA.</P><P></P><P>CREATE DATA lv_dref type table of (lv_tablename).</P><P></P><P>FIELD-SYMBOLS: <FS> TYPE STANDARD TABLE.</P><P></P><P>ASSIGN lv_dref->* TO <FS>.</P><P></P><P>select *</P><P>from sflight</P><P>into table <FS>.</P></BODY></HTML> Wed, 11 Apr 2007 05:40:08 GMT https://community.sap.com/t5/application-development-and-automation-discussions/creating-dynamic-internal-table/m-p/2091079#M434736 Former Member 2007-04-11T05:40:08Z Re: Creating Dynamic Internal Table https://community.sap.com/t5/application-development-and-automation-discussions/creating-dynamic-internal-table/m-p/2091080#M434737 <HTML><HEAD></HEAD><BODY><P>Hi Praveen,</P><P> </P><P> Just click here for complete details about Dynamic Internal table:</P><P></P><P><A href="http://www.saptechnical.com/Tutorials/ABAP/DynamicInternaltable/DynamicInternalTable.htm" target="test_blank">http://www.saptechnical.com/Tutorials/ABAP/DynamicInternaltable/DynamicInternalTable.htm</A></P><P></P><P><b>Reward,if helpful.</b></P><P></P><P>Regards,</P><P>V.Raghavender.</P></BODY></HTML> Wed, 11 Apr 2007 05:44:20 GMT https://community.sap.com/t5/application-development-and-automation-discussions/creating-dynamic-internal-table/m-p/2091080#M434737 Former Member 2007-04-11T05:44:20Z Re: Creating Dynamic Internal Table https://community.sap.com/t5/application-development-and-automation-discussions/creating-dynamic-internal-table/m-p/2091081#M434738 <HTML><HEAD></HEAD><BODY><P>Praveen,</P><P></P><P>You can acheive this through Macro.</P><P></P><P></P><P>Regards,</P><P>Ramganesan K.</P></BODY></HTML> Wed, 11 Apr 2007 05:47:52 GMT https://community.sap.com/t5/application-development-and-automation-discussions/creating-dynamic-internal-table/m-p/2091081#M434738 former_member189631 2007-04-11T05:47:52Z Re: Creating Dynamic Internal Table https://community.sap.com/t5/application-development-and-automation-discussions/creating-dynamic-internal-table/m-p/2091082#M434739 <HTML><HEAD></HEAD><BODY><P>Hi Praveen,</P><P></P><P>Go through the following link.</P><P><A href="http://saptechnical.com/Tutorials/ABAP/DynamicInternaltable/DynamicInternalTable.htm" target="test_blank">http://saptechnical.com/Tutorials/ABAP/DynamicInternaltable/DynamicInternalTable.htm</A></P><P></P><P>Regards,</P><P>Sandhya</P></BODY></HTML> Wed, 11 Apr 2007 05:51:41 GMT https://community.sap.com/t5/application-development-and-automation-discussions/creating-dynamic-internal-table/m-p/2091082#M434739 Former Member 2007-04-11T05:51:41Z Re: Creating Dynamic Internal Table https://community.sap.com/t5/application-development-and-automation-discussions/creating-dynamic-internal-table/m-p/2091083#M434740 <HTML><HEAD></HEAD><BODY><P>hi,</P><P> </P><P> PLS GO THROUGH THIS CODE</P><P></P><P>TYPE-POOLS: slis. </P><P></P><P>DATA: it_fcat TYPE slis_t_fieldcat_alv, </P><P>is_fcat LIKE LINE OF it_fcat. </P><P>DATA: it_fieldcat TYPE lvc_t_fcat, </P><P>is_fieldcat LIKE LINE OF it_fieldcat. </P><P>DATA: new_table TYPE REF TO data. </P><P>DATA: new_line TYPE REF TO data. </P><P>FIELD-SYMBOLS: <l_table> TYPE ANY TABLE, </P><P><l_line> TYPE ANY, </P><P><l_field> TYPE ANY. </P><P></P><UL><LI level="1" type="ul"><P>Build fieldcat </P></LI></UL><P>CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE' </P><P>EXPORTING </P><P>i_structure_name = 'SYST' </P><P>CHANGING </P><P>ct_fieldcat = it_fcat[]. </P><P>LOOP AT it_fcat INTO is_fcat WHERE NOT reptext_ddic IS initial. </P><P>MOVE-CORRESPONDING is_fcat TO is_fieldcat. </P><P>is_fieldcat-fieldname = is_fcat-fieldname. </P><P>is_fieldcat-ref_field = is_fcat-fieldname. </P><P>is_fieldcat-ref_table = is_fcat-ref_tabname. </P><P>APPEND is_fieldcat TO it_fieldcat. </P><P>ENDLOOP. </P><P></P><UL><LI level="1" type="ul"><P>Create a new Table </P></LI></UL><P>CALL METHOD cl_alv_table_create=>create_dynamic_table </P><P>EXPORTING </P><P>it_fieldcatalog = it_fieldcat </P><P>IMPORTING </P><P>ep_table = new_table. </P><P></P><UL><LI level="1" type="ul"><P>Create a new Line with the same structure of the table. </P></LI></UL><P>ASSIGN new_table->* TO <l_table>. </P><P>CREATE DATA new_line LIKE LINE OF <l_table>. </P><P>ASSIGN new_line->* TO <l_line>. </P><P></P><UL><LI level="1" type="ul"><P>Test it... </P></LI></UL><P>DO 30 TIMES. </P><P>ASSIGN COMPONENT 'SUBRC' OF STRUCTURE <l_line> TO <l_field>. </P><P><l_field> = sy-index. </P><P>INSERT <l_line> INTO TABLE <l_table>. </P><P>ENDDO. </P><P></P><P>LOOP AT <l_table> ASSIGNING <l_line>. </P><P>ASSIGN COMPONENT 'SUBRC' OF STRUCTURE <l_line> TO <l_field>. </P><P>WRITE <l_field>. </P><P>ENDLOOP.</P><P></P><P></P><P>PLS REWARD IF IT HELPFUL</P><P></P><P>REGARDS</P><P>Vana</P></BODY></HTML> Wed, 11 Apr 2007 06:04:14 GMT https://community.sap.com/t5/application-development-and-automation-discussions/creating-dynamic-internal-table/m-p/2091083#M434740 Former Member 2007-04-11T06:04:14Z