Dump In Dynamic Internal Table

REPORT ZDYNAMIC_INTERNAL_TABLE.
TYPE-POOLS : abap.
FIELD-SYMBOLS: <fs_table> TYPE STANDARD TABLE,
               <fs_wa>,
               <fs_field>.
DATA: it_table TYPE REF TO data,
      it_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.
PERFORM get_data.
PERFORM write_out.
*&      Form get_structure
      text
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.
    xfc-inttype = xdetails-type_kind.
    xfc-intlen = xdetails-length.
    xfc-decimals = xdetails-decimals.
    APPEND xfc TO ifc.
   WA_XFC-FIELDNAME = P_NAME.
   WA_XFC-DATATYPE = 'C'.
   WA_XFC-INTTYPE = 'C'.
   WA_XFC-INTLEN = P_LEN.
   WA_XFC-DECIMALS = 0.
   APPEND WA_XFC TO IST_IFC.
ENDLOOP.
ENDFORM.                    "get_structure
*&      Form create_dynamic_itab
      text
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
    IMPORTING
      ep_table        = it_table.
ASSIGN it_table->* TO <fs_table>.
Create dynamic work area and assign to FS
CREATE DATA it_line LIKE LINE OF <fs_table>.
ASSIGN it_line->* TO <fs_wa>.
ENDFORM.                    "create_dynamic_itab
*&      Form get_data
      text
FORM get_data.
Select Data from table.
SELECT * INTO CORRESPONDING FIELDS OF TABLE <fs_table>
             FROM (p_table).
ENDFORM.                    "get_data
*&      Form write_out
      text
FORM write_out.
Print data from table.
*call function 'reuse_alv_grid_display'.
*pass <fs_table> as internal table to the function **
BREAK-POINT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
      EXPORTING
        I_CALLBACK_PROGRAM       = SY-REPID
        IT_FIELDCAT              = ifc[]
       IT_SORT                  = IST_SORT_SUBTOTAL[]
       IT_EVENTS                = IST_EVENT[]
       IS_LAYOUT                = WA_LAYOUT
        I_CALLBACK_PF_STATUS_SET = 'PF_STATUS'
        I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
        I_SAVE                   = 'X'
      TABLES
        T_OUTTAB                 = <fs_table>.
ENDFORM.                    "write_out
It was tried to transfer the internal table "IFC" to the formal parameter
"IT_FIELDCAT". In doing so, a type conflict occurred between the formal.
here how can i resolve it.
thanks ,
rajan.

Try like following
TYPE-POOLS : abap,SLIS.
FIELD-SYMBOLS: <TABLE> TYPE STANDARD TABLE.
DATA: it_table TYPE REF TO data,
      it_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.
PERFORM get_data.
PERFORM write_out.
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.
   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.
* Create dynamic internal table and assign to FS
CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog = ifc
    IMPORTING
      ep_table = it_table.
ASSIGN it_table->* TO <TABLE>.
* Create dynamic work area and assign to FS
* CREATE DATA it_line LIKE LINE OF .
* ASSIGN it_line->* TO .
ENDFORM. "create_dynamic_itab
FORM get_data.
* Select Data from table.
SELECT * INTO CORRESPONDING FIELDS OF TABLE <TABLE> FROM (p_table).
ENDFORM.
"get_data
FORM write_out.
*REPLACE FM REUSE_ALV_GRID_DISPLAY WITH REUSE_ALV_GRID_DISPLAY_LVC
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
   EXPORTING
     I_CALLBACK_PROGRAM = SY-REPID
     IT_FIELDCAT_LVC        = ifc[]
     I_CALLBACK_PF_STATUS_SET = 'PF_STATUS'
     I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
     I_SAVE = 'X'
TABLES
     T_OUTTAB = <TABLE>.
ENDFORM.

Similar Messages

How to delete data from dynamic internal table

Hi,
I have dynamic internal table and I have some slection screen fields , using these selection screen fields
(select -options), I have to filter the data? assigning will work with READ , but I have select options not the parametre,
and also delete will not work for dynamic table..
as we cannot use assigning with delete..
So how to do this?
and one more thing is , I cannot filter the data while selection( in select, I cannot filter the data-> as it's not coming directly from table, it's coming from buffer),
so now after selection of data, I need to filter the data from dynamic table.
Is there any way to do this?
Regards,
Mrunal

Hi matt,
I tried with below code as you said. But I am getting dump. can you help?
here is my piece of code.
FIELD-SYMBOLS: <LS_DATA> type any,
                           <LT_DATA> TYPE table,
                            <L_FIELD> type any.
    ASSIGN <l_buffer_entry>-dataptr->* TO <LS_DATA>.
    ASSIGN <l_buffer_entry>-dataptr->* TO <LT_DATA>.
LOOP AT <LT_DATA> ASSIGNING <LS_DATA>.
ASSIGN COMPONENT 'BUKRS' OF STRUCTURE <LS_DATA> TO <L_FIELD>.
IF <L_FIELD> NOT IN SO_BUKRS.
DELETE <LT_DATA>.
ENDIF.
UNASSIGN <L_FIELD>.
ASSIGN COMPONENT 'BELNR' OF STRUCTURE <LS_DATA> TO <L_FIELD>.
IF <L_FIELD> NOT IN SO_BELNR.
DELETE <LT_DATA>.
ENDIF.
UNASSIGN <L_FIELD>.
ENDLOOP.
and here is the description of my dump:->>>
You attempted to access an unassigned field symbol
(data segment 32772).
This error may occur for any of the following reasons:
- You address a typed field symbol before it is set using ASSIGN
- You address a field symbol that points to a line in an internal table
that has been deleted
- You address a field symbol that had previously been reset using
UNASSIGN, or that pointed to a local field that no longer exists
- You address a global function interface parameter, even
though the relevant function module is not active,
that is it is not in the list of active calls. You can get the list
of active calls from the this short dump.

Dynamic Internal Table creation and population

Hi gurus !
my issue refers to the slide 10 provided in this slideshow : https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/b332e090-0201-0010-bdbd-b735e96fe0ae
My example is gonna sound dumb, but anyway: I want to dynamically select from a table into a dynamically created itab.
Letu2019s use only EKPO, and only field MENGE.
For this, I use Classes cl_abap_elemdescr, cl_sql_result_set and the Data Ref for table creation. But while fetching the resultset, program dumps when fields like MENGE, WRBTR are accessed. Obviously their type are not correctly taken into account by my program.
Here it comes:
DATA: element_ref             TYPE REF TO cl_abap_elemdescr,
      vl_fieldname               TYPE string,
             tl_components         TYPE abap_component_tab,
             sl_components         LIKE LINE OF tl_components_alv,
linetype_lcl               TYPE REF TO cl_abap_structdescr,
ty_table_type            TYPE REF TO cl_abap_tabledescr,
g_resultset             TYPE REF TO cl_sql_result_set
u2026
CONCATENATE sg_columns-table_name '-' sg_columns-column_name INTO vl_fieldname.
* sg_columns-table_name contains 'EKPO'
* sg_columns-column_name contains 'MENGE'
* getting the element as a component
element_ref ?= cl_abap_elemdescr=>describe_by_name( vl_fieldname ).
sl_components-name = sg_columns-column_name.
sl_components-type ?= element_ref.
APPEND sl_components TO tl_components.
* dynamic creation of internal table
linetype_lcl = cl_abap_structdescr=>create( tl_components ).
ty_table_type = cl_abap_tabledescr=>create(
                  p_line_type = linetype_lcl ).
u2026
* Then I will create my field symbol table and line. Code has been cut here.
CREATE DATA dy_line LIKE LINE OF <dyn_table>.
u2026
* Then I will execute my query. Here itu2019s: Select MENGE From EKPO Where Rownum = 1.
g_resultset = g_stmt_ref->execute_query( stmt_str ).
* Then structure for the Resultset is set
CALL METHOD g_resultset->set_param_struct
    EXPORTING
      struct_ref = dy_line.
* Fetching the lines of the resultset => Dumpu2026
WHILE g_resultset->next( ) > 0.
    ASSIGN dy_line->* TO <dyn_wa>.
    APPEND <dyn_wa> TO <dyn_table>.
ENDWHILE.
Anyone has any clue to how prevent my Dump ??
The component for MENGE seems to be described as a P7 with 2 decimals. And the resultset wanna use a QUAN type... or something like that !

Hello
I have expanded your sample coding for selecting three fields out of EKPO:
*& Report ZUS_SDN_SQL_RESULT_SET
*& Thread: Dynamic Internal Table creation and population
*& <a class="jive_macro jive_macro_thread" href="" __jive_macro_name="thread" modifiedtitle="true" __default_attr="1375510"></a>
*& NOTE: Coding for dynamic structure / itab creation taken from:
*& Creating Flat and Complex Internal Tables Dynamically using RTTI
*& https://wiki.sdn.sap.com/wiki/display/Snippets/Creating+Flat+and+
*& Complex+Internal+Tables+Dynamically+using+RTTI
REPORT zus_sdn_sql_result_set.
TYPE-POOLS: abap.
DATA:
go_sql_stmt       TYPE REF TO cl_sql_statement,
go_resultset      TYPE REF TO cl_sql_result_set,
gd_sql_clause     TYPE string.
DATA:
gd_tabfield      TYPE string,
go_table         TYPE REF TO cl_salv_table,
go_sdescr_new    TYPE REF TO cl_abap_structdescr,
go_tdescr        TYPE REF TO cl_abap_tabledescr,
gdo_handle       TYPE REF TO data,
gdo_record       TYPE REF TO data,
gs_comp          TYPE abap_componentdescr,
gt_components    TYPE abap_component_tab.
FIELD-SYMBOLS:
<gs_record>   TYPE ANY,
<gt_itab>     TYPE STANDARD TABLE.
START-OF-SELECTION.
continued.

SET_TABLE_FOR_DISPLAY - Edited value from dynamic internal table need to be captured

Hi all,
I have created 2 tabstrip screns which contain ALV GRID DISPLAY in a container with dynamic internal table and editable columns .I want to capture the edited value from this ALV GRID display.I have used SET_TABLE_FOR_DISPLAY and for this dynamc internal table is passed which is Field symbol and editable columns have to be captured for further updation into another ztable.
When i used check_changed_data i am getting dump as field symbol not assigned.
Below is the code : How can i get edited column value from below code
call method alv_list->set_table_for_first_display
    exporting
            is_layout                     = gs_layout
    changing
      it_outtab                     = <fs_dynamic_table>
      it_fieldcatalog               = it_fieldcat[]
    exceptions
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      others                        = 4.
if sy-subrc <> 0.
* Implement suitable error handling here
endif.
Kindly help me to solve this.
With Thanks,
Dina.

please provide more info about the dump to try to help you
as max said, it could be because the field symbol is not global and if its global maybe you are not refering well to the column
i assume that you are using "ASSIGN COMPONENT comp OF STRUCTURE struc TO <fs>" to capture the value changed
validate always the sy-subrc after the assignment.
but the check changed data have parameters that have the old and new values
please provide more info...
Regards

Dynamic internal table problem in FM - HR_INFOTYPE_OPERATIONS

Dear All,
I have a problem when I use a Dynamic internal table in FM - HR_INFOTYPE_OPERTATION..
Please suggest me on the way to overcome this problem..
We wanted to have a dynamic Program for Info type operations which can be used for any info types as we are changing only BEGDA and the related actions
So in my program I have the parameters to accept
P_BEGDA - 01.10.2007
P_INFTY - P0008
P_ACTIO - COPY
I am able to create a dynamic table based on the parameters P_INFTY and able to read it also using the FM - HR_READ_INFOTYPE
BUT when I pass the dynamic internal table to a FM - HR_INFOTYPE_OPERTATION I am getting a DUMP
The DUMP is at the below statement from FM - HR_INFOTYPE_OPERTATION
ASSIGN record TO <record> CASTING TYPE (tabname). "XDP UniCode
It gives the below possiblities
"ASSIGN_BASE_TOO_SHORT" C
"SAPLHRMM" or "LHRMMU03"
"HR_INFOTYPE_OPERATION"
But If I use the below internal table
Data : g_t_0008 like P0008 occurs 0 with header line.
And If I use the internal table g_t_0008 instead of dynamic tables then it works. So I strongly feel it's due to not having a header in the dynamic table below see below the sample code on how I am generating a dynamic internal table
field-symbols: <dyn_table> type standard table.
data: dy_table type ref to data,
      dy_line type ref to data,
      xfc type lvc_s_fcat,
      ifc type lvc_t_fcat.
to get the srurcute
perform get_structure using l_f_table.
perform create_dynamic_itab .
assign dy_table->* to <dyn_table>.
perform get_data tables <dyn_table01>
                  using pernr-pernr p_infty.
below are the forms routine.
form get_structure using p_table.
data : idetails type abap_compdescr_tab,
       xdetails type abap_compdescr.
data : ref_table_des type ref to cl_abap_structdescr.
clear : ifc[], dy_table.
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.
    xfc-inttype = xdetails-type_kind.
    xfc-intlen = xdetails-length.
    xfc-decimals = xdetails-decimals.
    append xfc to ifc.
endloop.
endform.
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
               importing
                  ep_table        = dy_table.
endform.
*&      Form get_data
form get_data tables   p_table
               using    p_pernr
                        p_infty.
clear : p_table, p_table[].
CALL FUNCTION 'HR_READ_INFOTYPE'
       EXPORTING
            PERNR           = P_PERNR
            INFTY           = p_infty
            BEGDA           = p_datum
            ENDDA           = p_datum
       TABLES
            INFTY_TAB       = p_table
       EXCEPTIONS
            INFTY_NOT_FOUND = 1
            OTHERS          = 2.
CHECK SY-SUBRC EQ 0.
IF lines( p_table ) GT 0.
*write :/'Record exist' , 'IT', p_infty.
clear p_table.
PERFORM hr_operation tables p_table
                     using g_t_t588d-actio g_t_t588d-INFTY
                            g_t_t588d-SUBTY.
else.
PERFORM append_status using g_t_itab-pernr p_infty ' '
                            'Error' 'No records'.
ENDIF.
endform.                    " get_data
form hr_operation tables    p_table
                   using     p_actio P_INFTY P_SUBTY.
data: l_f_return    LIKE bapireturn1.
ASSIGN COMPONENT 'BEGDA' OF STRUCTURE p_table TO <l_field>.
      <l_field> = p_begda.
        CALL FUNCTION 'HR_INFOTYPE_OPERATION'
          EXPORTING
            infty         = P_infty
            number        = G_T_ITAB-PERNR
            subtype       = P_subty
            validityend   = g_f_endda
            validitybegin = P_datum
            record        = P_TABLE
            operation     = p_actio
          IMPORTING
            return        = l_f_return.
IF sy-subrc NE 0.
ENDIF.
ENDFORM.

try
using field symbol for a wrk area instead of Field symbol for a table
loop your inernal table (again a field symbol) assigning to <fs_wrkarea>
in loop call HR_INFO.._OP..
reward if helpful

Are field symbols and Dynamic internal tables consistant?

Hi,
Are field symbols and Dynamic internal tables
always consistent?
In my program I m creating a dynamic itab and assignig values to it using <FS>, sometimes the program fails to execute assign <Fs> statement...
this happens once in 3 to 4 runs
any solution...
I have proper clear and refresh statements in program.
Thanks,
Hardik

Anurag,
Thanks for a quick reply. Here I am sending a small piece of my code.
MOVE-CORRESPONDING OUTTAB TO DYNTAB.
      CLEAR IT_UDATE.
      CLEAR : T_KBETR .
      READ TABLE IT_UDATE WITH KEY UDATE = OUTTAB-UDATE.
      CONCATENATE 'DYNTAB-KBETR' IT_UDATE-CO_POS INTO T_KBETR.
      ASSIGN (T_KBETR) TO <FS> .
      SUBRC5 = SY-SUBRC .
      IF SUBRC5 = 0 .
          <FS> = OUTTAB-KBETR .
      ENDIF .
read statement will always return CO_POS .
while debuging this code a few times
<b>ASSIGN (T_KBETR) TO <FS> .</b>
returns sy-subrc = 4
and that was leading the program to short dump earlier.
now, as I have a check DYNTAB-KBETR holds no value on display.
this happens very few times. (most of the times report is displaying desired output)
Thanks,
Hardik

Defining Dynamic Internal Table

Hi everybody,
I would like to create a dynamic internal table without knowing its structure. I have stored the DDIC field elements that have to be used in a customizing table. I would like to create the internal table depending on the field elements order. The goal is to be able to pass this internal table to an Adobe Forms.
For example, in some cases I might have to print fieldu2019s content 1, 2, 3, and 4 but in other cases I might have to print fields 3, 1, 4 and 2. I do not know in which order the fields have to be printed.
I am struggling with the techniques I should use to create my internal table. I do not know if I should use Field Symbols or else.
Could you provide any coding examples?
Thanks in advance for your help.
Best regards,
Sylvain

Hi Sylvain
I have the same requirement to pass the internal table with varying number of columns in the adobe form and the same should be display in the form.,
i have passed the dynamic internal table from the abap code to the adobe interface and checked teh same value are passed.
Tried the below solution:
1)Defined the field symbol of the type Standard table(beacuse the structure for table is not fixed) in the adobe Interface.
2)Assign the values of the internal table into the field symbol by:
READ TABLE im_t_output INTO ls_output INDEX 1.
ASSIGN ls_output-ZALVTAB->* TO <GT_T_OUTPUT>.
Already checked , the values are coming into the <GT_T_OUTPUT> field symbols.
3) Drag the field symbol <GT_T_OUTPUT> from the adobe interface to the data context of the form.
when i am running the program its giving dump with the following error.
"You attempted to move one data object to another.
This is not possible here because the conversion of a data object
of type "h" to type "g" is not supported."
I think that is beacuse in the form it ia taking the field symbol as the text value not the internal table .
As you have already solved the problem to pass the internal table of varying number of columns in the adobe for.
Request you to provide me the code or some guidelines so that i can achieve the same and also request to share hoe you have read the values of the internal table in the adobe form through the adove form language.
Thanks in advance.
Regards,
Sourabh Makhija

Problem with dynamic internal table updation

Hello Folks,
I created a dynamic internal table
CALL METHOD cl_alv_table_create=>create_dynamic_table
      EXPORTING
        it_fieldcatalog           = i_fieldcat
      IMPORTING
        ep_table                  = i_dyntab
      EXCEPTIONS
        generate_subpool_dir_full = 1
        OTHERS                    = 2.
ASSIGN i_dyntab->* TO <f_dyntable>.
and created a work area
CREATE DATA wg_f_split LIKE LINE OF <f_dyntable>.
    ASSIGN wg_f_split->* TO <f_wg_dyntable>.
My requirement is that , i have to loop a normal internal table and append those records to the filed symbol internal table.
READ TABLE i_normal_itab INTO wg_split INDEX wl_rows-index.
      IF sy-subrc EQ 0.
        ASSIGN wg_split to <f_wg_dyntable>.
         APPEND <f_wg_dyntable> to <f_dyntable>.
       endif.
here i am geeting dump as "MOVE src TO dst" ... i can get the data in the work area FSymbol but cannot append it in Internal table Field Symbol.. Please help..
<Added code tags>
Edited by: Suhas Saha on Aug 3, 2011 10:52 AM

Hello Sandra,
Thanks for the reply..
First i tried appending the normal work area to the fieldsymbol internal table.
append wg_split to <f_dyntable>
This is hiting dump the same dump and so i created a fieldsymbol work area. ( <f_wg_dyntable>.)and tried to append the field symbol internal table with this work area. which is again giving the dump
APPEND <f_wg_dyntable> to <f_dyntable>. ( Again a Dump)
Edited by: Charan-SAP on Aug 2, 2011 9:40 PM
Edited by: Charan-SAP on Aug 2, 2011 9:42 PM

How to populate data in dynamic internal table

Hi Expert,
fyi. My dynamic internal table field is created base on data selected. Eg. select table qpcd has 5 records. These 5 recods will become fieldname to my dynamic internal table. My dynamic internal table will be
...itab
      01
      02
      03
      04
      05
The 5 records from qpcd is populated in another table call viqmel. I need to find the occurance of each code in viqmel and populate the number of occurance in itab in each of column. The final dynamic itab will be like this
table itab
01       02     03    04     05   -
> field name
2         0        1     0       1    -
> data
my source code like below
Report ZPLYGRND2.
TABLES: mara, makt.
TYPE-POOLS: slis, sydes.
DATA:it_fcat TYPE slis_t_fieldcat_alv,
     is_fcat LIKE LINE OF it_fcat,
     ls_layout TYPE slis_layout_alv.
DATA: it_fieldcat TYPE lvc_t_fcat,
      is_fieldcat LIKE LINE OF it_fieldcat.
DATA: new_table TYPE REF TO data,
      new_line TYPE REF TO data,
      ob_cont_alv TYPE REF TO cl_gui_custom_container,
      ob_alv TYPE REF TO cl_gui_alv_grid,
      vg_campos(255) TYPE c,
      i_campos LIKE TABLE OF vg_campos,
      vg_campo(30) TYPE c,
      vg_tables(60) TYPE c.
types : begin of t_qpcd,
         codegruppe like qpcd-codegruppe,
         code like qpcd-code,
        end of t_qpcd.
data:wa_qpcd type t_qpcd,
     i_qpcd type standard table of t_qpcd initial size 0.
FIELD-SYMBOLS: <l_table> TYPE table,
               <l_line> TYPE ANY,
               <l_field> TYPE ANY.
select * into corresponding fields of wa_qpcd from qpcd
where katalogart = 'D'
and   codegruppe = 'OOT01'.
append wa_qpcd to i_qpcd.
endselect.
loop at i_qpcd into wa_qpcd.
is_fcat-fieldname = wa_qpcd-code.
APPEND is_fcat TO it_fcat.
endloop.
LOOP AT it_fcat INTO is_fcat.
    is_fieldcat-fieldname = is_fcat-fieldname.
    is_fieldcat-ref_field = is_fcat-ref_fieldname.
    is_fieldcat-ref_table = is_fcat-ref_tabname.
    APPEND is_fieldcat TO it_fieldcat.
ENDLOOP.
*... Create the dynamic internal table
CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
        it_fieldcatalog = it_fieldcat
    IMPORTING
        ep_table = new_table.
if sy-subrc = 0.
endif.
*... Create a new line
ASSIGN new_table->* TO <l_table>.
CREATE DATA new_line LIKE LINE OF <l_table>.
ASSIGN new_line->* TO <l_line>.
LOOP AT <l_table> INTO <l_line>.
ENDLOOP.

hello dear i m giving u a code in this a dynamic table is made on the basis of table in database , and u can download this data correct it , see it, or even change it....and upload in tht table help full if u dont know the table name...in advance.
also the code to populate data in dynamic table is in this code like:
SELECT * FROM (MTABLE_N)
INTO CORRESPONDING FIELDS OF TABLE <FS_ITAB> .
look at the whole program .hope this solve ur problem thanks.
REPORT ZTESTA MESSAGE-ID ZIMM    .
TYPES : DATA_OBJECT TYPE REF TO DATA.
DATA : MITAB TYPE REF TO DATA .
TYPE-POOLS : SLIS .
DATA : IT_FIELDCAT TYPE STANDARD TABLE OF SLIS_FIELDCAT_ALV
WITH HEADER LINE .
DATA : IT_FIELDCATALOG TYPE LVC_T_FCAT .
DATA : WA_FIELDCATALOG TYPE LVC_S_FCAT .
DATA : I_STRUCTURE_NAME LIKE DD02L-TABNAME .
DATA : I_CALLBACK_PROGRAM LIKE SY-REPID .
DATA : DYN_LINE TYPE DATA_OBJECT .
FIELD-SYMBOLS : <FS_ITAB> TYPE STANDARD TABLE .
DATA : TABLE_NAME_IS_VALID TYPE C .
DATA : DYNAMIC_IT_INSTANTIATED TYPE C .
CONSTANTS BUTTONSELECTED TYPE C VALUE 'X' .
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) T_TABL.
PARAMETERS : MTABLE_N LIKE RSRD1-TBMA_VAL
MATCHCODE OBJECT DD_DBTB_16 OBLIGATORY .
DATA CHECKTABLED.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) T_FILE.
PARAMETERS : MFILENAM LIKE RLGRAP-FILENAME .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) T_DOWN.
PARAMETERS : P_DOWNLD RADIOBUTTON GROUP GRP1
USER-COMMAND M_UCOMM .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) T_CHKF.
PARAMETERS : P_CHKFIL RADIOBUTTON GROUP GRP1 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) T_UPLD.
PARAMETERS : P_UPLOAD RADIOBUTTON GROUP GRP1 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) T_SHOW.
PARAMETERS : P_SHOW_T RADIOBUTTON GROUP GRP1 .
SELECTION-SCREEN END OF LINE.
AT SELECTION-SCREEN OUTPUT .
PERFORM CHECK_FILENAME .
AT SELECTION-SCREEN.
IF SY-UCOMM = 'ONLI'.
    CHECKTABLED = MTABLE_N+0(1).
    IF CHECKTABLED NE 'Z'.
      MESSAGE I017.
      LEAVE TO SCREEN 1000.
    ENDIF.
    IF SY-UNAME NE 'KAMESH.K'.
      MESSAGE I023 WITH SY-UNAME.
      LEAVE TO SCREEN 1000.
    ENDIF.
ENDIF.
IF SY-UCOMM = 'PRIN'.
    CHECKTABLED = MTABLE_N+0(1).
    IF CHECKTABLED NE 'Z'.
      MESSAGE I017.
      LEAVE TO SCREEN 1000.
    ENDIF.
    IF SY-UNAME NE 'KAMESH.K'.
      MESSAGE I023 WITH SY-UNAME.
      LEAVE TO SCREEN 1000.
    ENDIF.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR MFILENAM .
PERFORM F4_FOR_FILENAME .
INITIALIZATION .
T_TABL = 'Table Name' .
T_FILE = 'File Name' .
T_DOWN = 'Download Table' .
T_CHKF = 'Check File to Upload' .
T_UPLD = 'Upload File' .
T_SHOW = 'Show Table Contents' .
START-OF-SELECTION .
PERFORM CHECK_TABLE_NAME_IS_VALID .
END-OF-SELECTION .
IF TABLE_NAME_IS_VALID EQ ' ' .
    MESSAGE I398(00) WITH 'INVALID TABLE NAME' .
ELSE .
    PERFORM INSTANTIATE_DYNAMIC_INTERNAL_T .
    CHECK DYNAMIC_IT_INSTANTIATED = 'X' .
    CASE BUTTONSELECTED .
      WHEN P_DOWNLD .
        PERFORM SELECT_AND_DOWNLOAD .
      WHEN P_CHKFIL .
        PERFORM CHECK_FILE_TO_UPLOAD .
      WHEN P_UPLOAD .
        PERFORM UPLOAD_FROM_FILE .
      WHEN P_SHOW_T .
        PERFORM SHOW_CONTENTS .
    ENDCASE .
ENDIF .
FORM CHECK_TABLE_NAME_IS_VALID.
DATA MCOUNT TYPE I .
TABLES DD02L .
CLEAR TABLE_NAME_IS_VALID .
SELECT COUNT(*) INTO MCOUNT FROM TADIR
WHERE PGMID = 'R3TR'
AND OBJECT = 'TABL'
AND OBJ_NAME = MTABLE_N .
IF MCOUNT EQ 1 .
    CLEAR DD02L .
    SELECT SINGLE * FROM DD02L WHERE TABNAME = MTABLE_N .
    IF SY-SUBRC EQ 0.
      IF DD02L-TABCLASS = 'TRANSP' .
        TABLE_NAME_IS_VALID = 'X' .
      ENDIF .
    ENDIF.
ENDIF .
ENDFORM. " CHECK_TABLE_NAME_IS_VALID
FORM SELECT_AND_DOWNLOAD.
CLEAR : <FS_ITAB> .
SELECT * FROM (MTABLE_N)
INTO CORRESPONDING FIELDS OF TABLE <FS_ITAB> .
PERFORM CHECK_FILENAME.
CALL FUNCTION 'WS_DOWNLOAD'
       EXPORTING
            FILENAME                = MFILENAM
            FILETYPE                = 'DAT'
       TABLES
            DATA_TAB                = <FS_ITAB>
       EXCEPTIONS
            FILE_OPEN_ERROR         = 1
            FILE_WRITE_ERROR        = 2
            INVALID_FILESIZE        = 3
            INVALID_TYPE            = 4
            NO_BATCH                = 5
            UNKNOWN_ERROR           = 6
            INVALID_TABLE_WIDTH     = 7
            GUI_REFUSE_FILETRANSFER = 8
            CUSTOMER_ERROR          = 9
            OTHERS                  = 10.
IF SY-SUBRC EQ 0.
    MESSAGE I398(00) WITH 'Table' MTABLE_N
    'successfully downloaded to '
    MFILENAM .
ENDIF.
ENDFORM. " SELECT_AND_DOWNLOAD
FORM UPLOAD_FROM_FILE.
DATA : ANS TYPE C .
DATA : LINES_OF_ITAB TYPE I .
DATA : MSY_SUBRC TYPE I .
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
       EXPORTING
            TEXTLINE1 = 'Are you sure you wish to upload'
            TEXTLINE2 = 'data from ASCII File to DB table '
            TITEL     = 'Confirmation of Data Upload'
       IMPORTING
            ANSWER    = ANS.
IF ANS = 'J' .
    PERFORM CHECK_FILENAME.
    CLEAR MSY_SUBRC .
    CALL FUNCTION 'WS_UPLOAD'
         EXPORTING
              FILENAME                = MFILENAM
              FILETYPE                = 'DAT'
         TABLES
              DATA_TAB                = <FS_ITAB>
         EXCEPTIONS
              CONVERSION_ERROR        = 1
              FILE_OPEN_ERROR         = 2
              FILE_READ_ERROR         = 3
              INVALID_TYPE            = 4
              NO_BATCH                = 5
              UNKNOWN_ERROR           = 6
              INVALID_TABLE_WIDTH     = 7
              GUI_REFUSE_FILETRANSFER = 8
              CUSTOMER_ERROR          = 9
              OTHERS                  = 10.
    MSY_SUBRC = MSY_SUBRC + SY-SUBRC .
    IF SY-SUBRC EQ 0.
      DESCRIBE TABLE <FS_ITAB> LINES LINES_OF_ITAB .
      IF LINES_OF_ITAB GT 0 .
        MODIFY (MTABLE_N) FROM TABLE <FS_ITAB> .
        MSY_SUBRC = MSY_SUBRC + SY-SUBRC .
      ENDIF .
    ENDIF.
    IF MSY_SUBRC EQ 0 .
      MESSAGE I398(00) WITH LINES_OF_ITAB
      'Record(s) inserted in table'
      MTABLE_N .
    ELSE .
      MESSAGE I398(00) WITH
      'Errors occurred No Records inserted in table'
      MTABLE_N .
    ENDIF .
ENDIF .
ENDFORM. " UPLOAD_FROM_FILE
FORM F4_FOR_FILENAME.
CALL FUNCTION 'WS_FILENAME_GET'
       EXPORTING
            DEF_PATH         = 'C:\'
            MASK             = ',.,..'
            MODE             = '0'
       IMPORTING
            FILENAME         = MFILENAM
       EXCEPTIONS
            INV_WINSYS       = 1
            NO_BATCH         = 2
            SELECTION_CANCEL = 3
            SELECTION_ERROR = 4
            OTHERS           = 5.
ENDFORM. " F4_FOR_FILENAME
FORM CHECK_FILENAME.
IF MFILENAM IS INITIAL
AND NOT ( MTABLE_N IS INITIAL )
AND P_SHOW_T NE BUTTONSELECTED.
    CONCATENATE 'C:\'
    MTABLE_N '.TXT' INTO MFILENAM.
ENDIF .
ENDFORM. " CHECK_FILENAME
FORM INSTANTIATE_DYNAMIC_INTERNAL_T.
CLEAR DYNAMIC_IT_INSTANTIATED .
I_STRUCTURE_NAME = MTABLE_N .
CLEAR IT_FIELDCAT[] .
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
       EXPORTING
            I_STRUCTURE_NAME       = I_STRUCTURE_NAME
       CHANGING
            CT_FIELDCAT            = IT_FIELDCAT[]
       EXCEPTIONS
            INCONSISTENT_INTERFACE = 1
            PROGRAM_ERROR          = 2
            OTHERS                 = 3.
IF SY-SUBRC EQ 0.
    LOOP AT IT_FIELDCAT .
      CLEAR WA_FIELDCATALOG .
      MOVE-CORRESPONDING IT_FIELDCAT TO WA_FIELDCATALOG .
      WA_FIELDCATALOG-REF_FIELD = IT_FIELDCAT-FIELDNAME .
      WA_FIELDCATALOG-REF_TABLE = MTABLE_N .
      APPEND WA_FIELDCATALOG TO IT_FIELDCATALOG .
    ENDLOOP .
    CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
    IT_FIELDCATALOG = IT_FIELDCATALOG
    IMPORTING
    EP_TABLE = MITAB .
    ASSIGN MITAB->* TO <FS_ITAB> .
    DYNAMIC_IT_INSTANTIATED = 'X' .
ENDIF.
ENDFORM. " INSTANTIATE_DYNAMIC_INTERNAL_T
FORM SHOW_CONTENTS.
CLEAR : <FS_ITAB> .
SELECT * FROM (MTABLE_N)
INTO CORRESPONDING FIELDS OF TABLE <FS_ITAB> .
I_CALLBACK_PROGRAM = SY-REPID .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
       EXPORTING
            I_CALLBACK_PROGRAM = I_CALLBACK_PROGRAM
            IT_FIELDCAT        = IT_FIELDCAT[]
       TABLES
            T_OUTTAB           = <FS_ITAB>
       EXCEPTIONS
            PROGRAM_ERROR      = 1
            OTHERS             = 2.
ENDFORM. " SHOW_CONTENTS
FORM CHECK_FILE_TO_UPLOAD.
PERFORM CHECK_FILENAME.
CALL FUNCTION 'WS_UPLOAD'
       EXPORTING
            FILENAME                = MFILENAM
            FILETYPE                = 'DAT'
       TABLES
            DATA_TAB                = <FS_ITAB>
       EXCEPTIONS
            CONVERSION_ERROR        = 1
            FILE_OPEN_ERROR         = 2
            FILE_READ_ERROR         = 3
            INVALID_TYPE            = 4
            NO_BATCH                = 5
            UNKNOWN_ERROR           = 6
            INVALID_TABLE_WIDTH     = 7
            GUI_REFUSE_FILETRANSFER = 8
            CUSTOMER_ERROR          = 9
            OTHERS                  = 10.
IF SY-SUBRC EQ 0.
    I_CALLBACK_PROGRAM = SY-REPID .
    CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
         EXPORTING
              I_CALLBACK_PROGRAM = I_CALLBACK_PROGRAM
              IT_FIELDCAT        = IT_FIELDCAT[]
         TABLES
              T_OUTTAB           = <FS_ITAB>
         EXCEPTIONS
              PROGRAM_ERROR      = 1
              OTHERS             = 2.
ENDIF .
ENDFORM. " CHECK_FILE_TO_UPLOAD
Message was edited by:
        SAURABH SINGH
        SENIOR EXECUTIVE
        SAMSUNG INDIA ELECTRONICS LTD.,NOIDA

Logic for retreiving the values from a dynamic internal table

Hi all,
I have an issue with the logic to fetch data from a dynamic internal table into fields. let me give you guys an example the sy-tfill = 9 (subject to vary). I need to populate the fields.
Regards,
Sukumar

Hi,
this is for printing out the info in a dynamic table,
it will work likewise to insert data.
PARAMETERS:
p_tabnam TYPE tabname DEFAULT 'DB_TABLE_NAME'.
DATA:
lv_dref TYPE REF TO data,
ls_dd03l LIKE dd03l,
lt_fieldname TYPE TABLE OF fieldname,
ls_fieldname TYPE fieldname.
FIELD-SYMBOLS:
<fs> TYPE STANDARD TABLE,
<wa_comp> TYPE fieldname,
<wa_data> TYPE ANY,
<wa_field> TYPE ANY.
REFRESH lt_fieldname.
SELECT * FROM dd03l INTO ls_dd03l
                   WHERE as4local = 'A'
                     AND as4vers = '0000'
                     AND tabname = p_tabnam
                   ORDER BY position.
ls_fieldname = ls_dd03l-fieldname.
APPEND ls_fieldname TO lt_fieldname.
ENDSELECT.
IF NOT ( lt_fieldname[] IS INITIAL ).
CREATE DATA lv_dref TYPE TABLE OF (p_tabnam).
ASSIGN lv_dref->* TO <fs>.
SELECT * FROM (p_tabnam) INTO TABLE <fs>.
WRITE:
    / 'CONTENTS OF TABLE', p_tabnam.
LOOP AT <fs> ASSIGNING <wa_data>.
    SKIP.
    WRITE:
      / 'LINE', sy-tabix.
    ULINE.
    LOOP AT lt_fieldname ASSIGNING <wa_comp>.
      ASSIGN COMPONENT sy-tabix OF STRUCTURE <wa_data> TO <wa_field>.
      WRITE:
        / <wa_comp>, <wa_field>.
    ENDLOOP.
ENDLOOP.
ENDIF.
grtz
Koen

Distinct values from dynamic internal tabls

Hi All,
I have a dynamic internal tables like <dy_table> , i want to get distinct values from this internal tables,
how to do that, structure of dynamic internal tables is dynamic acc. to user conditions.
regards,
Anuj

Hi Anuj
Just try this,
CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
it_fieldcatalog = tb_fields_for_it
IMPORTING
ep_table = gp_dyn_table.
ASSIGN gp_dyn_table->* TO <gt_table>.
ASSIGN LOCAL COPY OF INITIAL LINE OF <gt_table> TO <fs_table>.
LOOP AT tb_output.
*To assign value for serial number.
ASSIGN COMPONENT 1 OF STRUCTURE <fs_table> TO <ls_field>.
<ls_field> = tb_output-sno.
UNASSIGN <ls_field>.
*To assign value for Sales Organization.
ASSIGN COMPONENT 2 OF STRUCTURE <fs_table> TO <ls_field>.
<ls_field> = tb_output-vkorg.
UNASSIGN <ls_field>.
*To assign Rate for its respective Condition type.
LOOP AT tb_konp WHERE knumh = tb_output-knumh.
READ TABLE tb_fieldcat1 WITH KEY fieldname = tb_output-kschl.
IF sy-subrc EQ 0.
lv_count = tb_fieldcat1-col_pos.
ASSIGN COMPONENT lv_count OF STRUCTURE <fs_table> TO <ls_field>.
IF tb_konp-konwa EQ '%'.
tb_konp-kbetr = tb_konp-kbetr / co_10.
<ls_field> = tb_konp-kbetr.
ELSE.
<ls_field> = tb_konp-kbetr.
ENDIF.
ENDIF.
ENDLOOP.
lv_count = lv_count + 1.
APPEND <fs_table> TO <gt_table>.
CLEAR <fs_table>.
ENDLOOP.
Hope this proves helpful to you.

Column names of a dynamic internal table

Hi Friends,
I have a dynamic internal table flowing in my ABAP program and I want to list down the column names of the this dynamic internal table.
The declaration of this dynamic internal table :
   FIELD-SYMBOLS:
    <l_t_data>         TYPE STANDARD TABLE.
Can you please tell me how to get the column names?
Thanks,
Gaurav

Hi,
     You can use ABAP Runtime Type Identification to get the column names of the internal table.
e.g >
>lo_itab holds reference to description object of internal table whose column names i have to extract.
>Using method describe_by_data of class cl_abap_typedescr export the field symbol assigned to the table and import the object reference into lo_itab.
>Then using method get_table_line_type of lo_itab import line type description object reference into lo_line.
>Check if lo_line is referring to a structure, if yes , downcast it to a object reference lo_struct of type cl_abap_structdescr.
>The column description of all columns in the structure is stored in 'components' table of cl_abap_structdescr.
     So loop at the table to get all the column names stored in column 'name' of table 'components'.
Thank You.

How to use dynamic internal table when using gui_upload?

Hi Experts,
my scenario is like i have header data, item data and serial numbers.
so with respect to the quantity in unit of measure ,there will be number of serial numbers..
i have declared the dynamic internal table,but i am not getting the logic to change the structure accordingly with respect to the flat file entries..
is it possible to do or its not possible....any suggestion!!!!i have declared like this....
TYPES: BEGIN OF ty_final,
      bldat TYPE string,      "Document Date
      budat TYPE string,      "Psting Date
      bktxt TYPE string,      "Document Header Text
      werks TYPE string,      "Plant
      lgort TYPE string,      "Storage Location
      matnr TYPE string,      "Material Number
      erfmg TYPE string,      "Quantity in Unit Of Entry
      anln1 TYPE string,      "Asset Number
      anln2 TYPE string,      "Asset Subnumber
      sernr TYPE string,      "serial Number
END OF ty_final.
DATA : it_final TYPE TABLE OF ty_final,
       wa_final TYPE ty_final.
FIELD-SYMBOLS : <fs_final> TYPE table.
ASSIGN it_final TO <fs_final>.
after this i called gui upload and passed internal table it_final..
but i have to change the internal table structure dynamically before the upload function.so that it will match with the flat file...
Regards
Karthick

There are at least two approaches you can use to change/generate new dynamic-structured table. Either with [RTTI + RTTS|https://wiki.sdn.sap.com/wiki/display/Snippets/CreatingFlatandComplexInternalTablesDynamicallyusingRTTI] or using [CL_ALV_TABLE_CREATE|http://www.sdn.sap.com/irj/scn/advancedsearch?query=cl_alv_table_create] . In this one just determine fieldcatalog of current table and change it accordingly, then regenarate table.
There are plenty of examples in SCN for this. You should not face difficulties applying this.
Regards
Marcin

How to do parallel processing with dynamic internal table

Hi All,
I need to implement parallel processing that involves dynamically created internal tables. I tried doing so using RFC function modules (using starting new task and other such methods) but didn't get success this requires RFC enabled function modules and at the same time RFC enabled function modules do not allow generic data type (STANDARD TABLE) which is needed for passing dynamic internal tables. My exact requirement is as follows:
1. I've large chunk of data in two internal tables, one of them is formed dynamically and hence it's structure is not known at the time of coding.
2. This data has to be processed together to generate another internal table, whose structure is pre-defined. But this data processing is taking very long time as the number of records are close to a million.
3. I need to divide the dynamic internal table into (say) 1000 records each and pass to a function module and submit it to run in another task. Many such tasks will be executed in parallel.
4. The function module running in parallel can insert the processed data into a database table and the main program can access it from there.
Unfortunately, due to the limitation of not allowing generic data types in RFC, I'm unable to do this. Does anyone has any idea how to implement parallel processing using dynamic internal tables in these type of conditions.
Any help will be highly appreciated.
Thanks and regards,
Ashin

try the below code...
DATA: w_subrc TYPE sy-subrc.
DATA: w_infty(5) TYPE c.
data: w_string type string.
FIELD-SYMBOLS: <f1> TYPE table.
FIELD-SYMBOLS: <f1_wa> TYPE ANY.
DATA: ref_tab TYPE REF TO data.
CONCATENATE 'P' infty INTO w_infty.
CREATE DATA ref_tab TYPE STANDARD TABLE OF (w_infty).
ASSIGN ref_tab->* TO <f1>.
* Create dynamic work area
CREATE DATA ref_tab TYPE (w_infty).
ASSIGN ref_tab->* TO <f1_wa>.
IF begda IS INITIAL.
    begda = '18000101'.
ENDIF.
IF endda IS INITIAL.
    endda = '99991231'.
ENDIF.
CALL FUNCTION 'HR_READ_INFOTYPE'
    EXPORTING
      pernr           = pernr
      infty           = infty
      begda           = '18000101'
      endda           = '99991231'
    IMPORTING
      subrc           = w_subrc
    TABLES
      infty_tab       = <f1>
    EXCEPTIONS
      infty_not_found = 1
      OTHERS          = 2.
IF sy-subrc <> 0.
    subrc = w_subrc.
ELSE.
ENDIF.

How to create Dynamic internal table with columns also created dynamically.

Hi All,
Any info on how to create a dynamic internal table along with columns(fields) also to be created dynamically.
My requirement is ..On the selection screen I enter the number of fields to be in the internal table which gets created dynamically.
I had gone thru some posts on dynamic table creation,but could'nt find any on the dynamic field creation.
Any suggestions pls?
Thanks
Nara

I don't understand ...
something like that ?
*   Form P_MODIFY_HEADER.                                              *
form p_modify_header.
data : is_fieldcatalog type lvc_s_fcat ,
         v_count(2)      type n ,
         v_date          type d ,
         v_buff(30).
* Update the fieldcatalog.
loop at it_fieldcatalog into is_fieldcatalog.
    check is_fieldcatalog-fieldname+0(3) eq 'ABS' or
          is_fieldcatalog-fieldname+0(3) eq 'VAL' .
    move : is_fieldcatalog-fieldname+3(2) to v_count ,
           p_perb2+5(2)                   to v_date+4(2) ,
           p_perb2+0(4)                   to v_date+0(4) ,
           '01'                           to v_date+6(2) .
    v_count = v_count - 1.
    call function 'RE_ADD_MONTH_TO_DATE'
        exporting
          months        = v_count
          olddate       = v_date
        importing
          newdate       = v_date.
    if is_fieldcatalog-fieldname+0(3) eq 'ABS'.
      concatenate 'Quantité 0'
                  v_date+4(2)
                  v_date+0(4)
                  into v_buff.
    else.
      concatenate 'Montant 0'
                  v_date+4(2)
                  v_date+0(4)
                  into v_buff.
    endif.
    move : v_buff to is_fieldcatalog-scrtext_s ,
           v_buff to is_fieldcatalog-scrtext_m ,
           v_buff to is_fieldcatalog-scrtext_l ,
           v_buff to is_fieldcatalog-reptext .
    modify it_fieldcatalog from is_fieldcatalog.
endloop.
* Modify the fieldcatalog.
call method obj_grid->set_frontend_fieldcatalog
       exporting it_fieldcatalog = it_fieldcatalog.
* Refresh the display of the grid.
call method obj_grid->refresh_table_display.
endform.                     " P_MODIFY_HEADER

Dump In Dynamic Internal Table

Similar Messages

Maybe you are looking for