Dynamic internal table column issue

Hi
i have ALV report with dynamic internal table.after i build the internal table and fieldcatalog i have problem i.e. when grid is displayed then one of the column value is coming in the next column.i populated col_pos in field catalog also and in the debug mode data is populated correctly for respective columns in fieldcatalog and dynamic internal table. But when it is displayed i have this problem.
any inputs on this?

Hi Moorthy,
Did you perform an ALV consistency check?
Check the below given links as well.
The Consistency Check - ALV Grid Control (BC-SRV-ALV) - SAP Library
SAP ALV Consistency Check
Regards,
Philip.

Similar Messages

Dynamic internal table- column to row conversion

Hello all,
Inside a program i generate a dynamic internal table and
This table has one single column. But I need to convert the rows as columns.
Eg:
dynamic internal table ITAB has content
Forbes
Times
Reuters
Warner
stern
I would like to have a ITAB2 like this
Forbes Times Reuters Warner Stern
Please note this is a Dynamic internal table!!!!
I need some approach for my problem. Thanks a lot in advance.
Karthik.

Hi karthik,
1.
For this purpose,
in my program,
<b> there is an INDEPENDENT FORM</b>
   whose inputs are
<b> LIST OF FIELDS, (just as u require)</b>
and from those, it consructs dynamic table.
2. Here is the program.
the dynamic table name will be
<DYNTABLE>.
3. U can use this program (FORM in this program)
to generate any kind of internal table
by specifying list of fields.
4.
REPORT abc.
COMPULSORY
FIELD-SYMBOLS: <dyntable> TYPE ANY TABLE.
FIELD-SYMBOLS: <dynline> TYPE ANY.
DATA: lt TYPE lvc_t_fcat.
DATA: ls TYPE lvc_s_fcat.
FIELD-SYMBOLS: <fld> TYPE ANY.
DATA : fldname(50) TYPE c.
DATA : ddfields LIKE ddfield OCCURS 0 WITH HEADER LINE.
START-OF-SELECTION.
field list
ddfields-fieldname = 'BUKRS'.
APPEND DDFIELDS.
ddfields-fieldname = 'MATNR'.
APPEND DDFIELDS.
PERFORM mydyntable .
see <DYNTABLE> in debug mode.
BREAK-POINT.
INDEPENDENT FORM
FORM mydyntable .
Create Dyn Table From FC
FIELD-SYMBOLS: <fs_data> TYPE REF TO data.
FIELD-SYMBOLS: <fs_1>.
FIELD-SYMBOLS: <fs_2> TYPE ANY TABLE.
DATA: lt_data TYPE REF TO data.
data : lt TYPE lvc_t_fcat .
CONSTRUCT FIELD LIST
LOOP AT ddfields.
    ls-fieldname = ddfields-fieldname.
    APPEND ls TO lt.
ENDLOOP.
ASSIGN lt_data TO <fs_data>.
CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog           = lt
    IMPORTING
      ep_table                  = <fs_data>
    EXCEPTIONS
      generate_subpool_dir_full = 1
      OTHERS                    = 2.
IF sy-subrc <> 0.
ENDIF.
Assign Dyn Table To Field Sumbol
ASSIGN <fs_data>->* TO <fs_1>.
ASSIGN <fs_1> TO <fs_2>.
ASSIGN <fs_1> TO <dyntable>.
ENDFORM. "MYDYNTABLE
regards,
amit m.

Dynamic internal table column,How to create .

Hi all
My requirement is to convert the layout as bellow:
before:
column1   column2   column3
1              A             1
1              B             1
1              C             2
2              A             1
2              C             1
convert to :
column1    A     B     C
1              1      1      2
2              1      0      1
The detail requirement is first to select all the customers and then to get the customers sales informations . the customer's name should be the internal field name .
can anyone give me some suggestions? thanks a lot.

hi,
chk this.
Types: begin of ttab,
fld1(10) type c,
fld2 type sy-datum,
end of ttab.
data: itab type table of ttab.
You can also build an internal table at runtime.
Here is a sample program.
report zxy_0003
       no standard page heading.
type-pools: slis.
field-symbols: <dyn_table> type standard table,
               <dyn_wa>.
data: alv_fldcat type slis_t_fieldcat_alv,
      it_fldcat type lvc_t_fcat.
selection-screen begin of block b1 with frame title text-001.
parameters: p_check type c.
selection-screen end of block b1.
start-of-selection.
perform build_dyn_itab.
perform build_report.
loop at <dyn_table> into <dyn_wa>.
    write:/ <dyn_wa>.
endloop.
* Build_dyn_itab
form build_dyn_itab.
data: index(3) type c.
data: new_table type ref to data,
        new_line type ref to data,
        wa_it_fldcat type lvc_s_fcat.
* Create fields
clear index.
do 10 times.
    index = sy-index.
    clear wa_it_fldcat.
    concatenate 'Field' index into
             wa_it_fldcat-fieldname .
    condense wa_it_fldcat-fieldname no-gaps.
    wa_it_fldcat-datatype = 'CHAR'.
    wa_it_fldcat-intlen = 5.
    append wa_it_fldcat to it_fldcat .
enddo.
* Create dynamic internal table and assign to FS
call method cl_alv_table_create=>create_dynamic_table
               exporting
                  it_fieldcatalog = it_fldcat
               importing
                  ep_table        = new_table.
assign new_table->* to <dyn_table>.
* Create dynamic work area and assign to FS
create data new_line like line of <dyn_table>.
assign new_line->* to <dyn_wa>.
endform.
*      Form build_report
form build_report.
data: fieldname(20) type c.
data: fieldvalue(5) type c.
data: index(3) type c.
field-symbols: <fs1>.
do 10 times.
    index = sy-index.
* Set up fieldname
    concatenate 'FIELD' index into
             fieldname .
    condense   fieldname no-gaps.
* Set up fieldvalue
    concatenate 'FLD' index into
             fieldvalue.
    condense   fieldvalue no-gaps.
    assign component fieldname of structure <dyn_wa> to <fs1>.
    <fs1> = fieldvalue.
enddo.
* Append to the dynamic internal table
append <dyn_wa> to <dyn_table>.
endform.
check these links:
http://searchsap.techtarget.com/tip/1,289483,sid21_gci554038,00.html
/people/rich.heilman2/blog/2005/07/27/dynamic-internal-tables-and-structures--abap
rgds
Anver

Populating dynamic internal table

Hi All,
I've created a dynamic internal table the issue is that the data is to be entered in it from 2 different tables so ...
is their any way we can read the internal table field names ...
or any other way to populate data in it ...

hi
check this link
http://www.****************/Tutorials/ABAP/DynamicInternaltable/DynamicInternalTable.htm
thanks
sitaram

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 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

How to Organize the columns in the dynamic internal table?

Hello Folks!
How to Organize the columns in the dynamic internal table? i tried passing the parameter COL_POS to the fieldcatalog, Which is not working.

Organize in What order ? What is your way to output ?
If you use ALV, you need to create fresh FIELD CATALOG for your dynamic table and then assign the column position.
Regards,
Diwakar

Add column in the dynamic internal table

Hi Experts,
I have a dynamic internal table. I need add new column in the internal table and I don´t Know.
My code:
DATA: it_generic TYPE REF TO Data,
wa_generic TYPE REF TO data.
FIELD-SYMBOLS: <table> TYPE ANY TABLE,
<wa>    TYPE ANY,
<field> TYPE ANY.
CREATE DATA it_generic TYPE STANDARD TABLE OF (wa_datoscarga-ZTBLCAR).
CREATE DATA wa_generic TYPE (wa_datoscarga-ZTBLCAR).
ASSIGN it_generic->* TO <table>.
CHECK <table> IS ASSIGNED.
ASSIGN wa_generic->* TO <wa>.
CHECK <wa> IS ASSIGNED.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE <table>
FROM (wa_datoscarga-ZTBLCAR)
WHERE bukrs   EQ p_bukrs      AND
z_petic EQ z_peticion   AND
ZIDFASE eq 'E'.
After this I need add one column selection at the first position of the columns.
Thanks

Hi,
Please refer to the below link for the code snippet on how to create a dynamic internal table -
[Create a dynamic internal table.|http://www.divulgesap.com/blog.php?p=MjE=]
Cheers,
Ravi

Adding Specific columns of dynamic internal table row into another column

Hi Gurus,
I need to add few columns of a dynamic internal table row into another column:
Article description hy01 hy02 total
101      panza         10     12      22
102      masht         12     12     24
dynamic internal table is created and columns hy01 hy02.... can increase
How to add the the values in hy01 hy 02... into total.
Regards,
Dep

Hi,
If you really want to have a dynamic table, then you will have to find a way to generate a whole new table, and then copy the data from the old table to the new one. There is no way to modify a type during runtime in ABAP.
Here an example how to generate a dynamic table based on another internal table, hope this will help you.
TYPE-POOLS: slis.
PARAMETERS: p_nb_hy TYPE i DEFAULT 2. "Number of new HY columns to be added
* Type ZST_T:
*   matnr TYPE matnr
*   maktx TYPE maktx
*   hy01   TYPE i
*   total TYPE i
TYPES: ty_t TYPE STANDARD TABLE OF zst_s.
PERFORM main.
*&      Form main
*       text
FORM main.
DATA: lt_fieldcat     TYPE slis_t_fieldcat_alv,
        lt_t            TYPE ty_t,
        lr_new_t        TYPE REF TO data.
FIELD-SYMBOLS: <lt_new_t> TYPE STANDARD TABLE.
"Add some lines to LT_T just to have something to display on screen
DO 10 TIMES.
    APPEND INITIAL LINE TO lt_t.
ENDDO.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name = 'ZST_S'
    CHANGING
      ct_fieldcat      = lt_fieldcat.
"Copy LT_T to LR_NEW_T
PERFORM extend_and_copy_table USING lt_t p_nb_hy CHANGING lr_new_t lt_fieldcat.
CLEAR lt_t. "Not needed anymore...
ASSIGN lr_new_t->* TO <lt_new_t>.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      it_fieldcat = lt_fieldcat
    TABLES
      t_outtab    = <lt_new_t>.
ENDFORM.                    "main
*&      Form extend_and_copy_table
FORM extend_and_copy_table USING ut_t           TYPE STANDARD TABLE
                                 uv_nb_hy       TYPE i
                           CHANGING cr_t        TYPE REF TO data
                                    ct_fieldcat TYPE slis_t_fieldcat_alv
                           RAISING cx_sy_struct_creation cx_sy_table_creation.
DATA: lo_tabledescr      TYPE REF TO cl_abap_tabledescr,
        lo_structdescr     TYPE REF TO cl_abap_structdescr,
        lo_new_structdescr TYPE REF TO cl_abap_structdescr,
        lo_new_tabledescr TYPE REF TO cl_abap_tabledescr,
        lt_components      TYPE cl_abap_structdescr=>component_table,
        ls_component       TYPE cl_abap_structdescr=>component,
        lv_field_cnt       TYPE numc2,
        ls_fieldcat        TYPE slis_fieldcat_alv,
        lr_fieldcat        TYPE REF TO slis_fieldcat_alv.
FIELD-SYMBOLS: <ls_old_s> TYPE ANY,
                 <lt_new_t> TYPE STANDARD TABLE,
                 <ls_new_s> TYPE ANY.
"Get the list of all components from UT_T line structure
lo_tabledescr ?= cl_abap_tabledescr=>describe_by_data( ut_t ).
lo_structdescr ?= lo_tabledescr->get_table_line_type( ).
lt_components = lo_structdescr->get_components( ).
"The new columns will be from type of column HY01
ls_component-type = lo_structdescr->get_component_type( 'HY01' ).
"The new columns will have the same fieldcat info as column HY01
READ TABLE ct_fieldcat INTO ls_fieldcat WITH KEY fieldname = 'HY01'.
"HY<lv_field_cnt> = new field name
lv_field_cnt = uv_nb_hy + 1.
"For each new column...
DO uv_nb_hy TIMES.
    "Generate the new column field name
    CONCATENATE 'HY' lv_field_cnt INTO ls_component-name.
    ls_fieldcat-fieldname = ls_component-name.
    "Add the new field to the components of the new structure
    INSERT ls_component INTO lt_components INDEX 4.
    "Add the new field's fieldcat info to the fieldcat
    INSERT ls_fieldcat INTO ct_fieldcat   INDEX 4.
    lv_field_cnt = lv_field_cnt - 1.
ENDDO.
"Adjust the COL_POS from fieldcat
LOOP AT ct_fieldcat REFERENCE INTO lr_fieldcat.
    lr_fieldcat->col_pos = sy-tabix.
ENDLOOP.
"Create the new table
lo_new_structdescr = cl_abap_structdescr=>create( p_components = lt_components ).
lo_new_tabledescr = cl_abap_tabledescr=>create( p_line_type = lo_new_structdescr ).
CREATE DATA cr_t TYPE HANDLE lo_new_tabledescr.
ASSIGN cr_t->* TO <lt_new_t>.
"Copy all data from old to new table
LOOP AT ut_t ASSIGNING <ls_old_s>.
    APPEND INITIAL LINE TO <lt_new_t> ASSIGNING <ls_new_s>.
    MOVE-CORRESPONDING <ls_old_s> TO <ls_new_s>.
ENDLOOP.
ENDFORM.                    "main

Hide or Delete Empty columns in dynamic internal table

Hi,
I am having an dynamic internal table which contains more than 100 columns.
I need to delete empty column from that table, can any one help this.

Hello,
If you are talking about ALV then you can just the the table for empty columns before populating fieldcataloge and hide the columns.
If your query is still not answered please provide a detail requirement.

No column text displayed in alv when i use dynamic internal table

Hi friends,
when I use dynamic internal table to display the fields in ALV formant, field column text was not displaying ,
total row of column text was blank.
can u sujjest me in this...
with regards,
prasad.

Hi
That depends on how you've filled the catalog table, here u need to insert the description for the labels (short, medium and long) and the description for the layout variant management.
So u make sure to fill the fields like
SCRTEXT_L
SCRTEXT_M
SCRTEXT_S
REPTEXT
Max

ALV rows to column dynamic internal table

Hello People ,
I am stuck in a report which displays an output in ALV as follows :-
bukrs | kntyp | konto | knfix | period     | element    | emeng | emein
1000 | 10      | 1100 | berlin | 11.2011 |      AG      | 0.148    | kgAG
1000 | 10      | 1100 | berlin | 11.2011 |      AU      | 0.104    | kgAU
1000 | 10      | 1100 | berlin | 11.2011 |      GA     | 0.207    | kgGA
And this table has many values corresponding to element AG,AU and GA respectively . For example , there would be many element AG's with many "EMENG" values . Similarly for AU and GA .
MY question :- I am asked to make AG , AU , GA as 3 different fields which should show the value "EMENG" under respective elements . Like :-
bukrs | kntyp | konto | knfix | period     |   AG       |   AU      | GA     |    emein
1000 | 10      | 1100 | berlin | 11.2011 |   0.148    |   0.104 | 0.207 |    kgAG
That should be my output . ( elements replaced by AG , AU and GA which comes from a Metal table ZXXXX where
metal no. 1 = AU
metal no. 2 = AG
metal no. 3 = GA
If there is any metal added to it would be metal no. 4 ,5,6,7 .... so on ) and then that should be added as a field in our report .. So that has to be DYNAMIC .
I am unable to move on with problem . Pls suggest ? I am pasting my report here ...
FORM select_table_gt_bb CHANGING p_gt_bb.
TABLES : zpam_as .
DATA : i_zpam_as TYPE TABLE OF zpam_as ,
         wa_zpam_as LIKE LINE OF i_zpam_as ,
         i_tcurr TYPE TABLE OF tcurr ,
         wa_tcurr LIKE LINE OF i_tcurr,
         zt_as TYPE TABLE OF zpam_as.
SELECT * FROM zpam_as INTO TABLE gt_as
         WHERE bukrs   EQ bukrs
           AND kntyp   IN kntyp
           AND konto   IN konto
           AND knfix   IN knfix
           AND buper   IN buper
           AND element IN element
           AND ameng   IN ameng
           AND ashkz   IN ashkz
           AND emeng   IN emeng
           AND eshkz   IN eshkz
           AND emein   IN emein.
SELECT * FROM zpam_tcurr INTO TABLE gt_tcurr.
IF sy-subrc IS INITIAL.
    LOOP AT gt_tcurr INTO gw_tcurr.
     SELECT * FROM tcurr INTO wa_tcurr WHERE fcurr = gw_tcurr-fcurr AND
     tcurr = tcurr.
      ENDSELECT.
      APPEND wa_tcurr TO i_tcurr.
      DELETE ADJACENT DUPLICATES FROM i_tcurr.
    ENDLOOP.
ENDIF.
IF i_tcurr IS NOT INITIAL.
    LOOP AT gt_as INTO gw_as.
CLEAR sy-subrc.
LOOP AT i_tcurr
INTO wa_tcurr
WHERE   fcurr = gw_as-emein.
        gw_as-tcurr = wa_tcurr-tcurr.
        gw_as-ukurs = wa_tcurr-ukurs.
        gw_as-total = abs( gw_as-emeng ) * wa_tcurr-ukurs.
        APPEND gw_as TO zt_as.
      ENDLOOP.
      IF sy-subrc <> 0.
        gw_as-tcurr = 'None'.
        gw_as-ukurs = ''.
        gw_as-total = ''.
        APPEND gw_as TO zt_as.
      ENDIF.
    ENDLOOP.
    REFRESH gt_as.
    LOOP AT zt_as INTO gw_as.
      APPEND gw_as TO gt_as.
    ENDLOOP.
ENDIF.
ENDFORM.
Priority normalized
Edited by: Rob Burbank on Dec 28, 2011 3:44 PM

Hey,
But after understanding my question correctly , you sure that dynamic internal table is the solution for it ?

To create a deep structure for dynamic internal table.

Hello
My ALV has fields which are defined dynamically during execution.
so, i did it in the following way,
Declared Field symbolds, DREF and fieldcatalog as,
FIELD-SYMBOLS: <t_dyntable> TYPE STANDARD TABLE,
              <fs_dyntable>.
DATA:   dref_dyntab    TYPE REF TO data,
        dref_dynwa     TYPE REF TO data.
DATA: ts_fieldcatalog TYPE lvc_t_fcat.
DATA: wa_fieldcatalog TYPE lvc_s_fcat.
Updated Fieldcatalog dynamically as,
*function module to read segment structure
    CALL FUNCTION 'SEGMENT_READ'
      EXPORTING
        segmenttyp           = v_segment_name
      TABLES
        segmentstructure     = ts_seg_structure
      EXCEPTIONS
        no_authority         = 1
        segment_not_existing = 2
        OTHERS               = 3.
    IF sy-subrc <> 0.
      CASE sy-subrc.
        WHEN '1'.
          MESSAGE e024.
          STOP.
        WHEN '2'.
          MESSAGE e025 WITH v_segment_name.
          STOP.
        WHEN OTHERS.
          MESSAGE e023.
      ENDCASE.
    ENDIF.
*FETCH FIELDS FROM STRUCTURE OF SEGMENT AND CREATE FIELDCATALOG FOR
EACH FIELD OF SEGMENT (DYNAMIC FIELD CATALOG)
    LOOP AT ts_seg_structure INTO wa_seg_structure.
      ADD 1 TO v_counter.
      wa_fieldcatalog-fieldname = wa_seg_structure-fieldname.
      wa_fieldcatalog-col_pos   = v_counter.
      wa_fieldcatalog-ref_table = wa_seg_structure-segtyp.
      APPEND wa_fieldcatalog TO ts_fieldcatalog.
      CLEAR wa_fieldcatalog.
    ENDLOOP.
and generated dynamic internal table using fieldcatalog as,
*--Method to get the structure of table using fieldcatalog.
CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog = ts_fieldcatalog
    IMPORTING
*--Variable of type REF TO DATA.
      ep_table        = dref_dyntab.
IF sy-subrc <> 0.
    MESSAGE e023.
ENDIF.
*--Dynamic internal tables required when show segments selected
IF p_selseg IS NOT INITIAL.
    ASSIGN dref_dyntab->* TO <t_dyntable>.
*--Create dynamic work area and assign to FS
CREATE DATA dref_dynwa LIKE LINE OF <t_dyntable>.
    ASSIGN dref_dynwa->* TO <fs_dyntable>.
And then i populated this <t_dyntable> which is being passed as data-table to method
CL_GUI_ALV_GRID => SET_TABLE_FOR_FIRST_DISPLAY
for ALV grid Display along with above used filedcatalog ts_fieldcatalog.
Things are fine till here, but now i have the requirement to edit selected rows of the ALV display..
As you might be aware, we need a field
        TS_STYLEROW TYPE lvc_t_styl, (i.e, a field of type 'h' and we can say as an internal table inside an internal table or else as a deep structure)
in the output internal table <t_dyntable> to meet our requirement.
My issue is about declaring one such field of type 'h' in this dynamically created internal table ''<t_dyntable>".
I tried in the following way by adding one such field to fieldcatalog :
*Field for Styling
ADD 1 TO v_counter.
wa_fieldcatalog-fieldname   = 'TS_STYLEROW'.
wa_fieldcatalog-tabname     = 'TS_STYLE'.
wa_fieldcatalog-col_pos     = v_counter.
wa_fieldcatalog-no_out      = 'X'.
wa_fieldcatalog-inttype     = 'h'.      " I even mentioned this
APPEND wa_fieldcatalog TO ts_fieldcatalog.
CLEAR wa_fieldcatalog.
But this is creating a field of type 'C' in the table <t_dyntable> instead of what i was expecting
Guyz and respected,
Please advice me with the solution or ur ideas....
Note : The overall requirement is create a deep structure for dynamically generated internal table.
Your help is highly appreciated and unforgettable..!!!!!!!

hi,
Dynamic append
Dynamic internal table
Dynamic internal table
dynamic columns in ALV
Variant for dynamic selection
thanks

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

Dynamic internal table column issue

Similar Messages

Maybe you are looking for