Create dynamic structures dictionary

hi,
Is there anyway to create dynamic structures, fields and domains in dictionary with abap code insted of going through SE11 and then create?
tks in advanced

Function groups SIFD and SDIF have a few function modules for this purpose. None are released for use by the customer and should be treated with care.
Thomas

Similar Messages

Method t create dynamic structure if the field name contains space

HI all,
I am creating a dynamic internal table. Everything id fine but when creating dynamic structure if field name contains space its giving me dump.Can you please suggest me any other methos which takes space in the field name.
Iam using the following method:
gr_struct_typ ?= cl_abap_structdescr=>create( p_components = gt_component ).
In the gt_component i have one of the field with space like ( RU STAND) and its giving error.
Any help will be appreciated.
thanks
Suku.

Hello Sukumar
If the space in the fieldname is a mistake then you could simply use:
CONDENSE ld_fieldname NO-GAPS.
However, I guess your fieldname should contain this space:
>...suggest me any other methos which takes space in the field name.
>
Well, have you ever seen a field or column name in SAP standard containing a space in its name???
Regards
Uwe

Create Dynamic Structure based on Field-Symbol

Hi Experts!!
I need to create a structure with dynamic structure included within.
I have a parameter on sel. screen in which we provide table name.
PARAMETERS: p_table TYPE tabname.
FIELD-SYMBOLS: <gt_data> TYPE ANY TABLE.
CREATE DATA gr_data TYPE TABLE OF (p_table).
ASSIGN gr_data-* TO <gt_data>.
Now I need a structure like below:
TYPES: BEGIN OF type_test,
struct TYPE <gt_data>, " dynamic structure based on table name entered on sel. screen
fld1 TYPE c,
fld2 TYPE n,
END OF type_test.
Can somebody suggest how to achieve this?
Your help is highly appreciated. Thanks a lot

You can view this thread where our friend Marcin rocks .. Dynamically create a type
FIELD-SYMBOLS: <gt_data> TYPE ANY TABLE.
FIELD-SYMBOLS: <gs_wa> TYPE ANY.
data:wf_ref type ref to data.
DATA:i_comp TYPE cl_abap_structdescr=>component_table,
i_tot_comp TYPE cl_abap_structdescr=>component_table.
CREATE DATA gr_data TYPE TABLE OF (p_table).
ASSIGN gr_data-* TO <gt_data>.
create data wf_ref like line of <gt_data>.
assign wf_ref->* to <gs_wa>.
*--Getting Compoents from existing type
lf_struct ?= cl_abap_typedescr=>describe_by_name( '<GS_WA>' ).
i_comp = lf_struct->get_components( ).
APPEND LINES OF i_comp TO i_tot_comp.
The idea is Get all the field details available it to i_tot_comp, then append individual fields manually to
i_tot_comp as explained in the link and create a dynamic structure and table.

Create dynamic structure

Is there any way to create a dynamic work-area, similar to cl_alv_table_create=>create_dynamic_table????

hi jose
You can try to do something like this:
DATA: BEGIN OF itab_in OCCURS 0,
field1,
field2,
field3,
fieldn,
END OF itab_in.
DATA: index(3) TYPE n.
DATA: t_lvc TYPE lvc_t_fcat,
w_lvc TYPE lvc_s_fcat.
FIELD-SYMBOLS: <new_itab> TYPE table,
<wa_itab> TYPE table.
DATA: new_tab TYPE REF TO data,
wa_tab TYPE REF TO data.
FIELD-SYMBOLS: <wa_out>, <wa_in>.
DATA: field_idx TYPE i.
START-OF-SELECTION.
Create the structure of new table
LOOP AT itab_in.
MOVE sy-tabix TO index.
CONCATENATE 'WC' index INTO w_lvc-fieldname.
APPEND w_lvc TO t_lvc.
ENDLOOP.
Create new table
CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
it_fieldcatalog = t_lvc
IMPORTING
ep_table = new_tab.
ASSIGN new_tab->* TO <new_itab>.
Create workarea
CREATE DATA wa_tab LIKE LINE OF <new_itab>.
ASSIGN wa_tab->* TO <wa_itab>.
Transfer data: n = Number of fields of ITAB_IN
DATA: n TYPE i.
do n times.
field_idx = field_idx + 1.
LOOP AT itab_in.
ASSIGN COMPONENT sy-tabix OF STRUCTURE <wa_itab> TO <wa_out>.
ASSIGN COMPONENT field_idx OF STRUCTURE itab_in TO <wa_in>.
ENDLOOP.
IF sy-subrc = 0.
APPEND <wa_itab> TO <new_itab>.
ENDIF.
ENDDO.
Regards
navjot
reward if helpfull

Create Dynamic Structure at Runtime via ALV-Methods!

Hi Experts,
i try to create at the ABAP Runtime a new Structure.
FOR EXAMPLE: I have a internal Table "database" and i dont know their Structure or Typ.
MY Question: How can i get the structuretype for this internal Table "database" ??
                                I thought that it is possible with ALV-Methods, but i dont find the right way.
First Step:       I must get the structure of this internal Table.
Second Step: I must create a workarea/ line of this internal Table, that i can work row for row with the table.
Have someone an code example for me, because iám very confused about this Problem.
With kind regards.
Ersin Tosun

Hello,
For this specific requirement, SAP has provided RTTI class.
Below is a code snippet for your ready reference. In this example we're trying to get the structure of the dynamic table <ITAB> whose structure is not defined till run-time.
TYPE-POOLS: abap.
PARAMETERS: p_table TYPE tabname.
DATA: dref TYPE REF TO data.
FIELD-SYMBOLS <itab> TYPE STANDARD TABLE.
CREATE DATA dref TYPE STANDARD TABLE OF (p_table).
ASSIGN dref->* TO <itab>.
DATA: go_tab_descr TYPE REF TO cl_abap_tabledescr,
      go_struc_descr TYPE REF TO cl_abap_structdescr,
      wa_comp TYPE abap_compdescr.
go_tab_descr ?= cl_abap_tabledescr=>describe_by_data( <itab> ).
CHECK sy-subrc = 0.
go_struc_descr ?= go_tab_descr->get_table_line_type( ).
LOOP AT go_struc_descr->components INTO wa_comp.
WRITE: / wa_comp-name.
ENDLOOP.
I must create a workarea/ line of this internal Table, that i can work row for row with the table.
Sorry i missed the Step 2:
FIELD-SYMBOLS: <itab> TYPE STANDARD TABLE,
               <wa> TYPE ANY,
               <val> TYPE ANY.
LOOP AT <itab> ASSIGNING <wa>.
LOOP AT go_struc_descr->components INTO wa_comp.
*   To access the components of the structure dynamically
    ASSIGN COMPONENT wa_comp-name OF STRUCTURE <wa> TO <val>.
ENDLOOP.
ENDLOOP.
BR,
Suhas
Edited by: Suhas Saha on Nov 18, 2010 7:26 PM

Create deep structure to disable some cells in Dynamic ALV GRID

Hi,
I want to disable some cells in a Dynamic ALV Grid before calling "SET_tABLE_Display" Method.
I check the BCALV_EDIT_02, where some cells are grayed out by assign the CL_GUI_ALV_GRID-MC_STYLE_DISABLED to the field name.
But I want the same using Field symbol.
I'm creating Dynamic table and dynamic structure based on the Dynamic field catalog.
Example: <FT_TAB> TYPE STANDARD TABLE,
                <FS_TAB> TYPE ANY,
DATA: INT_TAB is my dynamic table values.
For the INT_TAB internal table, I created dynamic Structure and dynamic field symbol table.
LOOP AT INT_TAB.
ASSIGN COMPONENT 'MATNR' OF STRUCTURE <FS_TAB> TO <F_VALUE>
<F_VALUE> = INT_TAB-MATNR.
APPEND <FS_TAB> TO <FT_TAB>
"Here is the problem occurs, I want to grayed out the MATNR value based on some condition.
ENDLOOP.
I would like to set the 'MATNR' value to be grayed out by passing the CL_GUI_ALV_GRID-MC_STYLE_DISABLED.
and update into <FT_TAB>(       <FT_TAB> structure will have 2 structures)
Finally the fieldsymbol should have two structure ( <F_TAB> = DYNAMIC STRUCTURE + LVC_S_STYLE )
Display alv grid by passing <FT_TAB> to set_table_display method.
Thanks in advance,
Kumar.

Hi,
I am not sure whether I really understand your request. Let me try to help.
> Example: <FT_TAB> TYPE STANDARD TABLE,
>                 <FS_TAB> TYPE ANY,
>
> DATA: INT_TAB is my dynamic table values.
>
>
> LOOP AT INT_TAB.
> ASSIGN COMPONENT 'MATNR' OF STRUCTURE <FS_TAB> TO <F_VALUE>
> <F_VALUE> = INT_TAB-MATNR.
> APPEND <FS_TAB> TO <FT_TAB>
Here <FT_TAB> must already be assigned to some internal table with a given (dynamic) structure. Did this happen before this piece of code?
What I would do is to create a dynamic table (see documentation to CREATE DATA) with MATNR and the STYLE field (LVC_T_STYL). See the documentation for CREATE DATA - creation of internal tables. When collection the field descriptions for that internal table I would also build the field catalogue for the ALV.
Then assign <FT_TAB> to that newly created internal table, <FS_TAB> to a newly created structure (same as a table line).
Move the MATNR to component 1 (or component 'MATNR') of the table and fill the style table according to your needs. Then insert the <FS_TAB> into <FT_TAB>.
Finally call the ALV SET_TABLE... method with your dynamic table and your field catalogue.
Regards,
Gerd Rother

How to create dynamic strcture and accepting runtime value in work area

Hi,
I am using RFC_READ_TABLE for joining more than table and written select query but into clause work area value is passed but it is short dump is displaying with too few many fields in into clause .work area WA need some casting type conversion which accepts the some run time value and should have some structure for it.how to create dynamic structure?

hi
good
go through this and use in your report accordingly.
If you are trying to read some information from SAP and you can't find the right BAPI then RFC_READ_TABLE can do the job for you.
RFC_READ_TABLE is powerful RFC it gives you the access to all tables and views in SAP. I basically used RFC_READ_TABLE for Material Master Search application on the Intranet.
Now you may say there are lots of BAPI for this functionality. You are right but I had to work around the BAPI to get Prices (Moving Average Price) and it just did not work very well. Because of the nature of the application I had to use RFC_READ_TABLE because then I can use powerful SQL expression for searching. RFC_READ_TABLE give you the ability to code the where clause which is quite enough.
I have included part of the code use in asp page to read ENT1027 for Mgroup and M description & number but without object creation. The other part of the code reads MBEW for price & quantity.
Code
lt;%
'#######################Diming the Structures
Call BAPIRFC.DimAs("Rfc_Read_Table", "FIELDS", MaterialSelection_RS)
Call BAPIRFC.DimAs("Rfc_Read_Table", "OPTIONS", Selection_RS)
'########################Search Type########################
' C contanis
' S Start with
' E Ends with
if searchtype = "C" then
FormatedSearch_Keyword = "%" & Search_Keyword & "%"
elseif searchtype = "S" then
FormatedSearch_Keyword = Search_Keyword & "%"
else searchtype = "E" then
FormatedSearch_Keyword = "%" & Search_Keyword
end if
'################# Flaged for deletion Materials #####################
if showdeleted = "No" then
Selection_RS.AddNew Array("TEXT"),Array("LVORM <> 'X' AND")
end if
'############## users can search three material group ################
'############## GROUPS: OFFICESUP TECOMHARD TECOMSOFT ###############
'##USER STILL CAN NAROW THEIR SEARCH BY SELECTING ON OF THREE#########
if MGroup = "ALL" then
Selection_RS.AddNew Array("TEXT"),Array("MATKL IN ('OFFICESUP','TECOMHARD','TECOMSOFT')")
else
Selection_RS.AddNew Array("TEXT"),Array("MATKL = '"& MGroup &"' and ")
end if
'#######################ADDING SEARCH KEYWORD TO STRUCTURE##############
if not Search_Keyword = "" then
Selection_RS.AddNew Array("TEXT"),Array(" MAKTG LIKE '" & FormatedSearch_Keyword & "'")
end if
Selection_RS.Update
'#######################ADD RETURNED FIELDS#########################
MaterialSelection_RS.AddNew array("FIELDNAME","OFFSET","LENGTH","TYPE","FIELDTEXT"),array("MATNR","000000","000000" ,"","")
MaterialSelection_RS.AddNew array("FIELDNAME","OFFSET","LENGTH","TYPE","FIELDTEXT"),array("MATKL","000000","000000" ,"","")
MaterialSelection_RS.AddNew array("FIELDNAME","OFFSET","LENGTH","TYPE","FIELDTEXT"),array("MAKTG","000000","000000" ,"","")
MaterialSelection_RS.Update
call BAPIRFC.Rfc_Read_Table("ENT1027", Material_RS, MaterialSelection_RS, Selection_RS, "~", "", "0", "0")
If Err.Number > 0 then
               Response.Write "Error:" & "<BR>"
               Response.Write "   Err.number...... " & Err.Number & "<BR>"
               Response.Write "   Err.Description. " & Err.Description & "<BR>"
end if
'###########LOOP THROUGH RECORDSET
if not Material_RS is nothing then
do while not Material_RS.eof
loop
end if
%>
thanks
mrutyun^

How to create dynamic context based on a structure defined in the program?

Hi Experts,
         I need to create a dynamic context based on a structure wa_struc which i have define programatically.
When I pass wa_struc to structure_name parameter of create_nodeinfo_from_struc, i get a runtime error:
"Parameter STRUCTURE_NAME contains an invalid value wa_struc."
How to create dynamic context based on a structure defined in the program?
I have written the code like this:
TYPES: BEGIN OF t_type,
            v_carrid TYPE sflight-carrid,
            v_connid TYPE sflight-connid,
         END OF t_type.
Data: i_struc type table of t_type,
         wa_struc type t_type.
data: dyn_node   type ref to if_wd_context_node.
data: rootnode_info   type ref to if_wd_context_node_info.
rootnode_info = wd_context->get_node_info( ).
clear i_struc. refresh i_struc.
select carrid connid into corresponding fields of table i_struc from sflight where carrid = 'AA'.
cl_wd_dynamic_tool=>create_nodeinfo_from_struct(
parent_info = rootnode_info
node_name = 'dynflight'
structure_name = 'wa_struc'
is_multiple = abap_true ).
dyn_node = wd_context->get_child_node( name = 'dynflight' ).
dyn_node->bind_table( i_struc ).
Thanks
Gopal
Message was edited by: gopalkrishna baliga

Hi Michelle,
          First of all Special thanks for your informative answers to my other forum questions. I really appreciate your help.
Coming back to this question I am still waiting for an answer. Please help. Note that my structure is not in a dictionary.
I am trying to create a new node. That is
CONTEXT
- DYNFLIGHT
CARRID
CONNID
As you see above I am trying to create 'DYNFLIGHT' along with the 2 attributes which are inside this node. The structure of the node that is, no.of attributes may vary based on some condition. Thats why I am trying to create a node dynamically.
Also I cannot define the structure in the ABAP dictionary because it changes based on condition
I have updated my code like the following and I am getting error:
TYPES: BEGIN OF t_type,
CARRID TYPE sflight-carrid,
CONNID TYPE sflight-connid,
END OF t_type.
Data: i_struc type table of t_type,
dyn_node type ref to if_wd_context_node,
rootnode_info type ref to if_wd_context_node_info,
i_node_att type wdr_context_attr_info_map,
wa_node_att type line of wdr_context_attr_info_map.
wa_node_att-name = 'CARRID'.
wa_node_att-TYPE_NAME = 'SFLIGHT-CARRID'.
insert wa_node_att into table i_node_att.
wa_node_att-name = 'CONNID'.
wa_node_att-TYPE_NAME = 'SFLIGHT-CONNID'.
insert wa_node_att into table i_node_att.
clear i_struc. refresh i_struc.
select carrid connid into corresponding fields of table i_struc from sflight where carrid = 'AA'.
rootnode_info = wd_context->get_node_info( ).
rootnode_info->add_new_child_node( name = 'DYNFLIGHT'
attributes = i_node_att
is_multiple = abap_true ).
dyn_node = wd_context->get_child_node( 'DYNFLIGHT' ).
dyn_node->bind_table( i_struc ).
l_ref_interfacecontroller->set_data( dyn_node ).
But now I am getting the following error :
The following error text was processed in the system PET : Line types of an internal table and a work area not compatible.
The error occurred on the application server FMSAP995_PET_02 and in the work process 0 .
The termination type was: RABAX_STATE
The ABAP call stack was:
Method: IF_WD_CONTEXT_NODE~GET_STATIC_ATTRIBUTES_TABLE of program CL_WDR_CONTEXT_NODE_VAL=======CP
Method: GET_REF_TO_TABLE of program CL_SALV_WD_DATA_TABLE=========CP
Method: EXECUTE of program CL_SALV_WD_SERVICE_MANAGER====CP
Method: APPLY_SERVICES of program CL_SALV_BS_RESULT_DATA_TABLE==CP
Method: REFRESH of program CL_SALV_BS_RESULT_DATA_TABLE==CP
Method: IF_SALV_WD_COMP_TABLE_DATA~MAP_FROM_SOURCE_DATA of program CL_SALV_WD_C_TABLE_V_TABLE====CP
Method: IF_SALV_WD_COMP_TABLE_DATA~MAP_FROM_SOURCE of program CL_SALV_WD_C_TABLE_V_TABLE====CP
Method: IF_SALV_WD_COMP_TABLE_DATA~UPDATE of program CL_SALV_WD_C_TABLE_V_TABLE====CP
Method: IF_SALV_WD_VIEW~MODIFY of program CL_SALV_WD_C_TABLE_V_TABLE====CP
Method: IF_SALV_WD_COMPONENT~VIEW_MODIFY of program CL_SALV_WD_A_COMPONENT========CP
-Gopal
Message was edited by: gopalkrishna baliga

Create object/structure like dynamic internal table

Hi,
We have created dynamic internal table with some fields.
for the above how to create structure or internal table like dynamic internal table structure .
Scenario: internal table itab1 ( with header line) have 5 fields.
Based on some of the conditions in layout of the report.
we have to create dynamic internal table.
field-symbols: <FS> type standard table.
we are able to create dynamic internal table with 3 fields
with assignment <fs> = itab1[]
the columns are not appearing but data appearing in next column.
how to solve this one
Thanks
Ramesh

Hi Ramesh,
I hope this code works...
report yup_alv_datbase                         .
*-Display Database table contents in ALV Grid Format
>********************************************************************
This report displays data from SAP tables, views (like SE16)        *
FM : REUSE_ALV_GRID_DISPLAY                                         *
tables:
dd02l,                               " SAP tables
dd03l.                               " Table Fields
type-pools: slis.                      " ALV Global Types
selection-screen :
begin of line, comment 1(35) v_1 for field p_table.         "#EC NEEDED
parameters p_table like dd03l-tabname obligatory memory id dtb.
selection-screen end of line.
selection-screen :
begin of line, comment 1(35) v_2 for field p_max.           "#EC NEEDED
parameters p_max(2) type n default '20' obligatory.
selection-screen end of line.
at selection-screen.
select single * from dd02l where tabname = p_table
                               and as4local = 'A'
                               and as4vers = '0000'.
if sy-subrc ne 0.
Table & is not active in the Dictionary
    message e402(mo) with p_table.
elseif dd02l-tabclass = 'INTTAB'.
& is a structure, not a table
    message e403(mo) with p_table.
endif.
initialization.
v_1 = 'Table'.
v_2 = 'Maximum of records'.
start-of-selection.
perform f_display_data.
     Form F_DISPLAY_DATA
form f_display_data.
Macro definition
define m_sort.
    add 1 to ls_sort-spos.
    ls_sort-fieldname = &1.
    ls_sort-up = 'X'.
    append ls_sort to lt_sort.
end-of-definition.
data:
    l_long type i,
    lp_struct   type ref to data,
    lp_table    type ref to data,      " Pointer to dynamic table
    of_sdescr   type ref to cl_abap_structdescr,
    ls_lvc_cat type lvc_s_fcat,
    lt_lvc_cat type lvc_t_fcat,       " Field catalog
    ls_fieldcat type slis_fieldcat_alv,
    lt_fieldcat type slis_t_fieldcat_alv, " Field catalog
    ls_layout   type slis_layout_alv,
    lt_sort     type slis_t_sortinfo_alv, " Sort table
    ls_sort     type slis_sortinfo_alv.
field-symbols :
    <fieldcat>   type slis_fieldcat_alv,
    <lt_data>    type table,           " Data to display
    <fs>         type any,
    <components> type abap_compdescr.
Dynamic creation of a structure
create data lp_struct type (p_table).
assign lp_struct->* to <fs>.
Fields Structure
of_sdescr ?= cl_abap_typedescr=>describe_by_data( <fs> ).
loop at of_sdescr->components assigning <components>.
Field MANDT not displayed
    if sy-tabix = 1 and <components>-name = 'MANDT'.
      continue.                        " Next loop
    endif.
Build Fieldcatalog
    ls_lvc_cat-fieldname = <components>-name.
    ls_lvc_cat-ref_table = p_table.
    append ls_lvc_cat to lt_lvc_cat.
Build Fieldcatalog
    ls_fieldcat-fieldname = <components>-name.
    ls_fieldcat-ref_tabname = p_table.
    append ls_fieldcat to lt_fieldcat.
endloop.
Create internal table
call method cl_alv_table_create=>create_dynamic_table
    exporting it_fieldcatalog = lt_lvc_cat
    importing ep_table = lp_table.
assign lp_table->* to <lt_data>.
Read data
select * from (p_table) up to p_max rows
    into corresponding fields of table <lt_data>
   order by primary key.
if <lt_data>[] is initial.
No table entries found for specified key
    message i429(mo).
    exit.
endif.
Read key field to Build Sort Table
select * from dd03l where tabname = p_table
                        and fieldname <> '.INCLUDE'
                        and as4vers = '0000'
                        and as4local = 'A'
                      order by position.
    read table lt_fieldcat assigning <fieldcat>
                            with key fieldname = dd03l-fieldname.
    check sy-subrc eq 0.
    add dd03l-leng to l_long.
    if dd03l-keyflag = 'X'.
    Build Sort Table
      m_sort dd03l-fieldname.
      <fieldcat>-key = 'X'.
    elseif l_long > 150.
      <fieldcat>-tech = 'X'.
    endif.
endselect.
ls_layout-zebra = 'X'.
ls_layout-colwidth_optimize = 'X'.
call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            is_layout   = ls_layout
            it_fieldcat = lt_fieldcat
            it_sort     = lt_sort
       tables
            t_outtab    = <lt_data>.
endform.                               " F_DISPLAY_DATA
END OF PROGRAM Z_ALV_DYNAMIC_DATA *********************
Regards,
Sampath

How I create a structure in the ABAP DICTIONARY?

I need a structure for a FORM, how can I create a structure in the ABAP DICTIONARY?
Thanks!!

Hi Carlos,
Go to SE11(ABAP Dictionary).
Select the Data Type radio button.
Specify the name for your structure.
Note structure in customer namespace should start with Z or Y.
Press the create button.
Then in the next dialog box select the structure radio button.
Then you will get in to the structure screen.
Give a meaningful description for your structure.
Add the relevant fields and finally activate.
Regards,
Abdul

Dynamic structure creating based on the input parameter

Hi all,
How to create a dynamic structure based on the input parameter given in the selection screen. I have a file path given and it contains three fields in common, but after that depending upon the input given the fields get changed. For example, i have 0002 infotype given in the selection screen, my file path structure should contain pernr begda endda and PS0002 structure, if the infotype is changed the PS structure has to be changed dynamcially.
Thank you,
Usha.

Ans

How to create a structure which can hold a dynamic table as a field in DDIC

Hi ,
       I am designing a solution for a problem and have a unique requirement. I need to create a structure which can hold a field where dynamic table data can be stored. Let me illustrate with an example :
My structure ( say Z_output_struc ) will have the fields
Table_name Table_Data
My function module will have a table type of the above structure, so in effect ,my output can have multiple table names and related to each of them, there will be table data of that table name. The issue is how do I configure this in DDIC ?
I tried creating table_data as "Type ref to Data" but was stuck inside the func module when I tried to transfer data to this.
Any pointers as to how to think about this differently ?
Best Regards,
Girish

Hi Girish,
you start directly from the ref to data. You assign it to a field symbol and cast this to the type of the destination of your select. So you can directly add the reference to the cache:
I hope this example helps a bit (I took a form instead of a function module as it is easier to add here and used an hr table as kna1 is empty on my test system):
REPORT z_rwe_99_dyn_tab_cache.
* type definition
TYPES:
BEGIN OF _s_cache,
    table TYPE        tabname16,
    cache TYPE REF TO data,
END   OF _s_cache,
_t_cache TYPE STANDARD TABLE OF _s_cache.
* data declaration
DATA:
lv_table     TYPE tabname16,
lv_condition TYPE string,
lt_cache     TYPE _t_cache.
* define table and condition
lv_table     = 'HRP1000'.
lv_condition = 'plvar = ''01'' and otype = ''S'' and objid = ''50000016'''.
* get the result of a single table into the cache
PERFORM get_dyn_table USING
                        lv_table
                        lv_condition
                      CHANGING
                        lt_cache.
* form to read a single table
FORM get_dyn_table USING
                     iv_table     TYPE tabname16
                     iv_condition TYPE string
                   CHANGING
                     ct_cache     TYPE _t_cache.
FIELD-SYMBOLS:
    <lt_table> TYPE ANY TABLE.
DATA:
    ls_cache TYPE        _s_cache,
    lr_data TYPE REF TO data.
CREATE DATA lr_data TYPE STANDARD TABLE OF (iv_table).
ASSIGN lr_data->* TO <lt_table>.
SELECT * FROM (iv_table) INTO TABLE <lt_table>
    WHERE
      (iv_condition).
ls_cache-table = lv_table.
ls_cache-cache = lr_data.
APPEND ls_cache TO ct_cache.
ENDFORM.                    "get_dyn_table
If you have more questions just give another post.
Best Regards
Roman

Create dynamic internal table with dynamic structure

I have an internal table itab1 that have 12 amount fields from period1 thru period12. I need to create a dynamic table with dynamic structure for the period column if the total amount of each column is > 0. Any idea on how to do that?
For example if my itab1 has 20 rows and the sum of period1 = 35, sum of period2 = 0, sum of period3 = 5, sum of period4 =0, sum of period5 = 2 then I need to create a dynamic structure for the field column that have the total > 0, i.e structure struct1 have field period1, period3 and period5 only. Then I will need to load the data to itab2 from itab1. Can someone help.
Thanks. I am on 4.7 and will upgrade to ERP 6.0 soon.

go throgh this....
REPORT yusmm_text1 NO STANDARD PAGE HEADING
                     LINE-SIZE 199.
T A B L E S
TABLES: MARA,
        MAKT,
        THEAD.
GLOBAL TYPE-POOLS
TYPE-POOLS : SLIS.
   GLOBAL TYPES
TYPES : BEGIN OF TP_FINAL,
       MATNR TYPE MARA-MATNR,
       BEGRU TYPE MARA-BEGRU,
       MTART TYPE MARA-MTART,
       MAKTX TYPE MAKT-MAKTX,
       SPRAS TYPE MAKT-SPRAS,
       LTXT(2000) TYPE C ,
       SRNO TYPE N ,
      END OF TP_FINAL.
TYPES : BEGIN OF TP_T002,
        SPRAS TYPE T002-SPRAS,
        LAISO TYPE T002-LAISO,
        SRNO TYPE N ,
        END OF TP_T002.
TYPES : BEGIN OF TP_MARA_MAKT,
        MATNR TYPE MARA-MATNR,
        BEGRU TYPE MARA-BEGRU,
        MTART TYPE MARA-MTART,
        SPRAS TYPE MAKT-SPRAS,
        MAKTX TYPE MAKT-MAKTX,
       END OF TP_MARA_MAKT.
Types: BEGIN OF tp_matnr,
       matnr TYPE mara-matnr,
       END OF tp_matnr.
   GLOBAL ELEMENTARY VARIABLES
DATA : gv_date TYPE sy-datum.
DATA : gv_repid TYPE sy-repid.
DATA : g_var1(10) TYPE C.
DATA : gv_index TYPE sy-tabix.
DATA: gv_strg TYPE string,
      gv_strg1(2000) TYPE C.
DATA : gv_lang TYPE sy-langu.
DATA : g_v(3) TYPE N .
DATA : gv_lines(3) TYPE N .
DATA : gv_var(3) TYPE N .
DATA : gv_var1(3) TYPE N.
DATA: gv_str TYPE STRING.
DATA: gv_str1 TYPE STRING.
DATA : gv_li TYPE I,
       gv_lit TYPE I,
       gv_lin TYPE I.
DATA: g_var11(3) TYPE N,
      gv_li1(3) TYPE N,
      g_var2(3) TYPE N.
DATA : gv_i1 TYPE I.
DATA : gv_i TYPE I.
DATA: gl_lenght TYPE I.
   GLOBAL STRUCTURES
DATA:   T_NEWTABLE TYPE REF TO DATA,
        T_NEWLINE TYPE REF TO DATA,
        T_FLDCAT1   TYPE SLIS_T_FIELDCAT_ALV,
        T_FLDCAT   TYPE LVC_T_FCAT,
        WA_IT_FLDCAT TYPE LVC_S_FCAT,
        WA_IT_FLDCAT1 TYPE SLIS_FIELDCAT_ALV,
        WA_COLNO(2) TYPE N,
        WA_FLNAME(5) TYPE C,
        L_LT TYPE SLIS_LAYOUT_ALV.
   GLOBAL INTERNAL TABLES (WITH INCLUDE STRUCTURE)
DATA : IG_MARA_MAKT TYPE STANDARD TABLE OF TP_MARA_MAKT,
       WG_MARA_MAKT TYPE TP_MARA_MAKT.
DATA : IG_T002 TYPE STANDARD TABLE OF TP_T002,
       WG_T002 TYPE TP_T002.
DATA : IG_FINAL TYPE STANDARD TABLE OF TP_FINAL,
       WG_FINAL TYPE TP_FINAL.
data : IG_MATNR TYPE STANDARD TABLE OF TP_MATNR WITH HEADER LINE,
       WG_MATNR TYPE TP_MATNR.
DATA:BEGIN OF IG_THEAD OCCURS 0.
        INCLUDE STRUCTURE THEAD .
DATA: END OF IG_THEAD.
DATA:BEGIN OF IG_TLINE OCCURS 0.
        INCLUDE STRUCTURE TLINE .
DATA:END OF IG_TLINE.
FIELD-SYMBOLS
FIELD-SYMBOLS: <T_DYNTABLE> TYPE STANDARD TABLE,"Dynamic internal
                                                        "tablename
               <FS_DYNTABLE>, "Field symbol to create work area
              <FS_FLDVAL> TYPE ANY.   " Field symbol to assign values
COMPULSORY
FIELD-SYMBOLS: <FS_DATA> TYPE REF TO DATA,
               <FS_DATA1> TYPE REF TO DATA,
               <FS_2>    TYPE STANDARD TABLE,
               <FS_22>   TYPE STANDARD TABLE,
               <FS_1>,
               <FS_11>,
               <F>,
               <FA>,
               <LWA_LINE_WA>,
               <LWA_LINE_WA1>.
------- Create Dyn Table From FC
DATA: LT_DATA        TYPE   REF TO DATA,
      LT_DATA1        TYPE   REF TO DATA,
      LWA_LINE       TYPE   REF TO DATA,
      LWA_LINE1       TYPE   REF TO DATA,
      LI_FIELD_CAT   TYPE   LVC_T_FCAT,
      LWA_FIELD_CAT TYPE   LVC_S_FCAT.
   PARAMETERS & SELECT-OPTIONS
SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_SPRAS FOR MAKT-SPRAS NO INTERVALS DEFAULT 'EN'
                                                        OBLIGATORY ,
                 S_MATNR FOR MARA-MATNR,
                 S_MTART FOR MARA-MTART.
PARAMETERS: GP_SIZE TYPE I DEFAULT '200'.
SELECTION-SCREEN : END OF BLOCK B1.
   INITIALIZATION
INITIALIZATION.
gv_repid = sy-repid.
gv_date = sy-datum.
AT SELECTION-SCREEN
AT SELECTION-SCREEN.
IF GP_SIZE < 0.
   MESSAGE E002(00).
ENDIF.
IF GP_SIZE > 50000.
   MESSAGE W130(26) WITH TEXT-004.
    SET CURSOR FIELD 'gp_size'.
ENDIF.
START-OF-SELECTION
START-OF-SELECTION.
PERFORM FIELDCAT.
PERFORM LAYOUT.
PERFORM DATA_FETCH.
PERFORM READ_DATA_TO_FINAL.
SORT ig_final BY matnr spras.
gv_lin = gv_li.
gv_li = gv_li - 2.
LOOP AT ig_final INTO wg_final.
    ASSIGN COMPONENT 1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
    <FA> = 'Material Number'.
    ASSIGN COMPONENT 2 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
    <FA> = 'Authorization Group'.
    g_VAR11 = wg_final-srno + 2.
    gv_li1 = gv_li1 + 2.
    MOVE : g_var11 TO gv_i1.
    ASSIGN COMPONENT g_var11 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
    <FA> = 'MatDesc'.
    g_var2 = g_var11 + gv_lines.
    ASSIGN COMPONENT g_var2 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
    <FA> = 'BasicData'.
    APPEND <LWA_LINE_WA1> TO <FS_22>.
    EXIT.
   ENDLOOP.
LOOP AT ig_final INTO wg_final.
    AT NEW matnr.
      gv_index = sy-tabix.
      ASSIGN COMPONENT 1 OF STRUCTURE <LWA_LINE_WA> TO <F>.
      <F> = wg_final-matnr.
      ENDAT.
    AT NEW MATNR.
    GV_INDEX = SY-TABIX.
    ASSIGN COMPONENT 1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
    <FA> = wg_final-matnr.
     ENDAT.
    ASSIGN COMPONENT 2 OF STRUCTURE <LWA_LINE_WA> TO <F>.
    <F> = wg_final-begru.
    ASSIGN COMPONENT 2 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
    <FA> = wg_final-begru.
    gv_var = wg_final-srno + 2.
    gv_li = gv_li + 2.
    MOVE : gv_var TO gv_i.
    ASSIGN COMPONENT gv_var OF STRUCTURE <LWA_LINE_WA> TO <F>.
    <F> = wg_final-maktx.
    ASSIGN COMPONENT gv_var OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
    <FA> = wg_final-maktx.
    gv_var1 = gv_var + gv_lines .
    ASSIGN COMPONENT gv_var1 OF STRUCTURE <LWA_LINE_WA> TO <F>.
   <F> = wg_final-ltxt.
    ASSIGN COMPONENT gv_var1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
    <FA> = wg_final-ltxt.
    AT END OF matnr.
      APPEND <LWA_LINE_WA> TO <FS_2>.
      CLEAR <LWA_LINE_WA>.
    ENDAT.
    AT END OF matnr.
     APPEND <LWA_LINE_WA1> TO <FS_22>.
     CLEAR <LWA_LINE_WA1>.
    ENDAT.
ENDLOOP.
PERFORM display..
*&      Form data_fetch
      text
--> p1        text
<-- p2        text
FORM DATA_FETCH .
SELECT matnr
          from mara up to gp_size rows
         appending corresponding fields of table ig_matnr
         where matnr in s_matnr
         and mtart in s_mtart.
loop at ig_matnr.
SELECT MARA~MATNR
          MARA~BEGRU
          MARA~MTART
          MAKT~SPRAS
          MAKT~MAKTX FROM MARA INNER JOIN MAKT
    ON MARAMATNR = MAKTMATNR
   appending corresponding fields of TABLE ig_mara_makt UP TO GP_SIZE
ROWS
    WHERE makt~spras IN s_spras
    AND   mara~matnr IN s_matnr
    AND   mara~mtart IN s_mtart
    AND   mara~matnr EQ ig_matnr-matnr.
    endloop.
IF sy-subrc = 0.
    SORT ig_mara_makt.
ENDIF.
ENDFORM.                    " data_fetch
*&      Form read_data_to_final
      text
--> p1        text
<-- p2        text
FORM READ_DATA_TO_FINAL .
LOOP AT ig_mara_makt INTO wg_mara_makt .
    wg_final-MATNR = wg_mara_makt-MATNR.
    wg_final-BEGRU = wg_mara_makt-BEGRU.
    wg_final-MTART = wg_mara_makt-MTART.
    wg_final-SPRAS = wg_mara_makt-SPRAS.
    wg_final-MAKTX = wg_mara_makt-MAKTX.
    READ TABLE ig_t002 INTO wg_t002 WITH KEY spras = wg_final-spras.
    IF sy-subrc = 0.
      wg_final-srno = wg_t002-srno.
    ENDIF.
    CLEAR ig_thead[].
    ig_thead-TDOBJECT = 'MATERIAL'.
    ig_thead-TDNAME   = wg_final-matnr.
    ig_thead-TDID     = 'GRUN'.
    ig_thead-TDSPRAS = wg_final-spras.
    CALL FUNCTION 'TEXT_READ'
      EXPORTING
        I_HEADER   = IG_THEAD
        I_READONLY = 'X'
      IMPORTING
        E_HEADER   = IG_THEAD
      TABLES
        T_LINES    = IG_TLINE[]
      EXCEPTIONS
        NOTFOUND   = 1.
    IF sy-subrc EQ 0.
      LOOP AT ig_tline.
        gv_strg = ig_tline-tdline.
        IF gv_strg1 <> ' '.
          CONCATENATE gv_strg1 ';' gv_strg INTO gv_strg1.
        ELSE.
          gv_strg1 = gv_strg.
        ENDIF.
      ENDLOOP.
      wg_final-ltxt = gv_strg1.
      APPEND wg_final TO ig_final.
      CLEAR wg_final.
      gv_strg1 = ' '.
    ELSE.
      APPEND wg_final TO ig_final.
    ENDIF.
ENDLOOP.
ENDFORM.                    " read_data_to_final
" read_data_to_final
*&      Form layout
      text
--> p1        text
<-- p2        text
FORM LAYOUT .
CLEAR L_LT.
L_LT-ZEBRA = 'X'.
L_LT-COLWIDTH_OPTIMIZE = 'X'.
L_LT-WINDOW_TITLEBAR = 'MATERIAL DETAILS'.
ENDFORM.                    " layout
*&      Form fieldcat
      text
--> p1        text
<-- p2        text
FORM FIELDCAT .
SELECT SPRAS
           LAISO FROM t002 INTO CORRESPONDING FIELDS OF TABLE ig_t002
      WHERE spras IN s_spras.
DESCRIBE TABLE ig_t002 LINES gv_lines.
LOOP AT ig_t002 INTO wg_t002.
    g_v = g_v + 1.
    Wg_t002-srno = g_v.
    MODIFY ig_t002 FROM wg_t002 TRANSPORTING SRNO.
ENDLOOP.
LOOP AT ig_t002 INTO wg_t002.
    CLEAR WA_IT_FLDCAT.
    MOVE SY-INDEX TO WA_COLNO.
    CONCATENATE 'MD-' wg_t002-LAISO
                      WA_COLNO
                     INTO WA_FLNAME.
    WA_IT_FLDCAT-FIELDNAME = WA_FLNAME.
    WA_IT_FLDCAT-DATATYPE = 'CHAR'.
    WA_IT_FLDCAT-SELTEXT = WA_FLNAME.
    WA_IT_FLDCAT-INTLEN = 250.
    WA_IT_FLDCAT-TABNAME = '<FS_2>'.
    APPEND WA_IT_FLDCAT TO T_FLDCAT.
    CLEAR wg_t002.
    ENDLOOP.
LOOP AT ig_t002 INTO wg_t002.
    CLEAR WA_IT_FLDCAT.
    MOVE SY-INDEX TO WA_COLNO.
    CONCATENATE 'BD-' wg_t002-LAISO
                       WA_COLNO
                    INTO WA_FLNAME.
    WA_IT_FLDCAT-FIELDNAME = WA_FLNAME.
    WA_IT_FLDCAT-DATATYPE = 'CHAR'.
    WA_IT_FLDCAT-SELTEXT = WA_FLNAME.
    WA_IT_FLDCAT-INTLEN = 250.
    WA_IT_FLDCAT-TABNAME = '<FS_2>'.
    APPEND WA_IT_FLDCAT TO T_FLDCAT.
    CLEAR wg_t002.
    ENDLOOP.
MOVE 'MATNR' TO WA_FLNAME.
WA_IT_FLDCAT-FIELDNAME = WA_FLNAME.
WA_IT_FLDCAT-DATATYPE = 'CHAR'.
WA_IT_FLDCAT-SELTEXT = 'Material No'.
WA_IT_FLDCAT-INTLEN = 18.
WA_IT_FLDCAT-TABNAME = '<FS_2>'.
INSERT WA_IT_FLDCAT INTO T_FLDCAT INDEX 1.
MOVE 'BEGRU' TO WA_FLNAME.
WA_IT_FLDCAT-FIELDNAME = WA_FLNAME.
WA_IT_FLDCAT-DATATYPE = 'CHAR'.
WA_IT_FLDCAT-SELTEXT = 'Authorization Group'.
WA_IT_FLDCAT-INTLEN = 4.
WA_IT_FLDCAT-TABNAME = '<FS_2>'.
INSERT WA_IT_FLDCAT INTO T_FLDCAT INDEX 2.
DESCRIBE TABLE T_FLDCAT LINES gv_li.
ASSIGN LT_DATA TO <FS_DATA>.
Creating the Dynamic Internal Table
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
      IT_FIELDCATALOG           = T_FLDCAT         " Fieldcatalogue
    IMPORTING
      EP_TABLE                  = <FS_DATA>   " Dynamic Internal Table
    EXCEPTIONS
      GENERATE_SUBPOOL_DIR_FULL = 1
      OTHERS                    = 2.
Assign Dyn Table To Field Sumbol
ASSIGN <FS_DATA>->* TO <FS_1>.
Assigning the Internal Table TYPE ANY to Standard internal Table
ASSIGN <FS_1> TO <FS_2>.
Creating a Workarea
CREATE DATA LWA_LINE LIKE LINE OF <FS_2> .
Assigning the Content to the workares as a Pointer
ASSIGN LWA_LINE->* TO <LWA_LINE_WA>.
LOOP AT T_FLDCAT INTO WA_IT_FLDCAT.
    WA_IT_FLDCAT1-FIELDNAME = WA_IT_FLDCAT-FIELDNAME.
    WA_IT_FLDCAT1-TABNAME = WA_IT_FLDCAT-TABNAME.
    WA_IT_FLDCAT1-SELTEXT_L = WA_IT_FLDCAT-SELTEXT.
   WA_IT_FLDCAT1-REF_TABNAME = 'MARC'.
    APPEND WA_IT_FLDCAT1 TO T_FLDCAT1.
    CLEAR : WA_IT_FLDCAT,WA_IT_FLDCAT1.
ENDLOOP.
ASSIGN LT_DATA1 TO <FS_DATA1>.
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
      IT_FIELDCATALOG           = T_FLDCAT         " Fieldcatalogue
    IMPORTING
      EP_TABLE                  = <FS_DATA1> " Dynamic Internal table
    EXCEPTIONS
      GENERATE_SUBPOOL_DIR_FULL = 1
      OTHERS                    = 2.
Assign Dyn Table To Field Sumbol
ASSIGN <FS_DATA1>->* TO <FS_11>.
Assigning the Internal Table TYPE ANY to Standard internal Table
ASSIGN <FS_11> TO <FS_22>.
Creating a Workarea
CREATE DATA LWA_LINE1 LIKE LINE OF <FS_22> .
Assigning the Content to the workares as a Pointer
ASSIGN LWA_LINE1->* TO <LWA_LINE_WA1>.
ENDFORM.                    " fieldcat
*&      Form show
      text
--> p1        text
<-- p2        text
FORM Display .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
   I_INTERFACE_CHECK                 = ' '
   I_BYPASSING_BUFFER                = ' '
   I_BUFFER_ACTIVE                   = ' '
     I_CALLBACK_PROGRAM                = GV_REPID
    I_CALLBACK_PF_STATUS_SET          = 'PF_STATUS_SET'
    I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
   I_CALLBACK_TOP_OF_PAGE            = ' '
   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
   I_CALLBACK_HTML_END_OF_LIST       = ' '
   I_STRUCTURE_NAME                  =
   I_BACKGROUND_ID                   = ' '
   I_GRID_TITLE                      =
   I_GRID_SETTINGS                   =
    IS_LAYOUT                         = L_LT
     IT_FIELDCAT                       = T_FLDCAT1[]
   IT_EXCLUDING                      =
   IT_SPECIAL_GROUPS                 =
   IT_SORT                           =
   IT_FILTER                         =
   IS_SEL_HIDE                       =
   I_DEFAULT                         = 'X'
   I_SAVE                            = ' '
   IS_VARIANT                        =
   IT_EVENTS                         =
   IT_EVENT_EXIT                     =
   IS_PRINT                          =
   IS_REPREP_ID                      =
   I_SCREEN_START_COLUMN             = 0
   I_SCREEN_START_LINE               = 0
   I_SCREEN_END_COLUMN               = 0
   I_SCREEN_END_LINE                 = 0
   I_HTML_HEIGHT_TOP                 = 0
   I_HTML_HEIGHT_END                 = 0
   IT_ALV_GRAPHICS                   =
   IT_HYPERLINK                      =
   IT_ADD_FIELDCAT                   =
   IT_EXCEPT_QINFO                   =
   IR_SALV_FULLSCREEN_ADAPTER        =
IMPORTING
   E_EXIT_CAUSED_BY_CALLER           =
   ES_EXIT_CAUSED_BY_USER            =
    TABLES
      T_OUTTAB                          = <FS_2>
EXCEPTIONS
   PROGRAM_ERROR                     = 1
   OTHERS                            = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " display
FORM PF_STATUS_SET USING RS_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'DISPLAY' .
ENDFORM. "PF_STATUS_SET
*& Form Name: user_command *
*& Form Desc: For Handling USER_COMMAND *
FORM USER_COMMAND USING IF_UCOMM TYPE SY-UCOMM
                     IS_SELFIELD TYPE SLIS_SELFIELD.
CASE IF_UCOMM.
    WHEN 'DOWNLOAD'.
      CALL FUNCTION 'POPUP_TO_CONFIRM'
        EXPORTING
TITLEBAR                    = ' '
DIAGNOSE_OBJECT             = ' '
          TEXT_QUESTION               = 'Data download to excel'
TEXT_BUTTON_1               = 'Ja'(001)
ICON_BUTTON_1               = ' '
TEXT_BUTTON_2               = 'Nein'(002)
ICON_BUTTON_2               = ' '
DEFAULT_BUTTON              = '1'
DISPLAY_CANCEL_BUTTON       = 'X'
USERDEFINED_F1_HELP         = ' '
START_COLUMN                = 25
START_ROW                   = 6
POPUP_TYPE                  =
IMPORTING
ANSWER                      =
TABLES
PARAMETER                   =
EXCEPTIONS
TEXT_NOT_FOUND              = 1
OTHERS                      = 2
      IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      CALL FUNCTION 'GUI_DOWNLOAD'
        EXPORTING
    BIN_FILESIZE                  =
          FILENAME                     = 'C:\Material-Text.xls'
         FILETYPE                      = 'ASC'
    APPEND                        = ' '
     WRITE_FIELD_SEPARATOR         = 'X'
    HEADER                        = '00'
     TRUNC_TRAILING_BLANKS         = 'X'
    WRITE_LF                      = 'X'
    COL_SELECT                    = ' '
    COL_SELECT_MASK               = ' '
     DAT_MODE                      = 'X'
   IMPORTING
     FILELENGTH                    = GL_LENGHT
        TABLES
          DATA_TAB                      = <FS_22>
EXCEPTIONS
    FILE_WRITE_ERROR              = 1
    NO_BATCH                      = 2
    GUI_REFUSE_FILETRANSFER       = 3
    INVALID_TYPE                  = 4
    NO_AUTHORITY                  = 5
    UNKNOWN_ERROR                 = 6
    HEADER_NOT_ALLOWED            = 7
    SEPARATOR_NOT_ALLOWED         = 8
    FILESIZE_NOT_ALLOWED          = 9
    HEADER_TOO_LONG               = 10
    DP_ERROR_CREATE               = 11
    DP_ERROR_SEND                 = 12
    DP_ERROR_WRITE                = 13
    UNKNOWN_DP_ERROR              = 14
    ACCESS_DENIED                 = 15
    DP_OUT_OF_MEMORY              = 16
    DISK_FULL                     = 17
    DP_TIMEOUT                    = 18
    FILE_NOT_FOUND                = 19
    DATAPROVIDER_EXCEPTION        = 20
    CONTROL_FLUSH_ERROR           = 21
    OTHERS                        = 22
      IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      IF GL_LENGHT NE 0.
        MESSAGE S398(00) WITH 'DATA downloaded to EXCEL'.
      ENDIF.
ENDCASE.
ENDFORM.                    "user_command
Thanks

Create dynamic data type in structure

Hi Experts,
I am new to ABAP.
In my scenario data type is varying for the field. for that I need to create dynamic data type in structure, this structure I am using for internal table for OVS search input.
Please suggest the solution for this.
Advance thanks,
Regards,
BBC

Thanks for your quick reply,
I used your logic like this.
data:
ls_component type abap_componentdescr,
lt_component type abap_component_tab.
*... (1) define structure components :
clear ls_component.
ls_component-name = 'NVALUE'.
ls_component-type ?= cl_abap_typedescr=>describe_by_name( <fs_seg_v>-fieldname ).
insert ls_component into table lt_component.
*... (2) create structure
data lr_strucdescr type ref to cl_abap_structdescr.
data lr_data_struc type ref to data.
lr_strucdescr = cl_abap_structdescr=>create( lt_component ).
create data lr_data_struc type handle lr_strucdescr.
field-symbols <fs> TYPE any.
assign lr_data_struc->* to <fs>.
your logic is working fine.
here I am getting feild name (<fs_seg_v>-fieldname) from internal table.
But I need to assign same field name structure to query parameter.
FIELD-SYMBOLS: <ls_query_params> TYPE lty_stru_input.
Please can you suggest how I can refer the field name structure?
Regards,
BBC

Failure in creating a dynamic structure

Hi Guys,
i get a strange failure while creating a structure from components.
lr_out_tab ?= cl_abap_tabledescr=>describe_by_data( it_outtab ).
lr_out_struc ?= lr_out_tab->get_table_line_type( ).
lt_out_comp = lr_out_struc->get_components( ).
lr_new_struc = cl_abap_structdescr=>create( lt_out_comp ). <-- cx_sy_struct_comp_name exception
I get this failure, when i have component-names like xxx-yyyy. Does somebody have an idea how to slove this.
Greetings
André

Hello Andre,
You're getting the error message because the param P_STRICT of the method CREATE( ) is set to TRUE(by default).
If you set the creation mode as "strict"(P_STRICT = CL_ABAP_STRUCTDESCR=>TRUE), no special characters are allowed in the column names! Since your component names contain a '-' you're getting the exception CX_SY_STRUCT_COMP_NAME.
If you set the creation mode as "non-strict"(P_STRICT = CL_ABAP_STRUCTDESCR=>FALSE), following spl. characters are allowed:
#$%&*-/;<=>?@^{ | }
So in your call you need to set the "non-strict" mode while creating the dynamic structure:
*   Get the Dynamic structure definition
    TRY.
        lo_structdescr =
          cl_abap_structdescr=>create(
              p_components = lt_struc_comp
              p_strict     = cl_abap_structdescr=>false ).
      CATCH cx_sy_struct_creation .                     "#EC NO_HANDLER
    ENDTRY.
Hope i'm clear.
BR,
Suhas
PS: Check the source code of CREATE( ) if you want to validate

Create dynamic structures dictionary

Similar Messages

Maybe you are looking for