Create dynmic deep internal table

Dear all,
is it possible to create a dynamic internal table which has a deep structure. The catch here is that component tables of the main internal table will determined dynamically.
thanks a lot!!!
Navjot

Hi Navjot,
Dyanmic internal table with deep structure is specially useful when we have to create an ALV with Colors or Style etc. Since we have CL_ABAP_TABLEDESCR class from RTTS, it is also possible to create a dynamic internal table with the deep structure. To create an internal table with deep structure, we need to first get the object definition of the table type. Than we have to add that as a component of our table definition and that's it.
Try this :
*& Report ZNP_DYNAMIC_DEEP_TABLE.
*& Shows how to create dynamic internal table with deep strcuture
*& which can be used in the ALV to have Sytle table, Color table
* 2.1 Creating the Deep strcuture field
DATA: lo_tab TYPE REF TO cl_abap_tabledescr.
lo_tab ?= cl_abap_typedescr=>describe_by_name( 'LVC_T_SCOL' ).
la_comp-name = 'COLOR_TAB'.
la_comp-type = lo_tab.
APPEND la_comp TO lt_tot_comp.
CLEAR: la_comp.
Regards
Abhinab Mishra

Similar Messages

Select data into deep internal table

Dear Experts.
I created a dynamiv deep internal table.
while selecting data , into the internal table it is giving a dump. saying that deep structure.
SELECT OBJTY OBJID ARBPL WERKS from crhd
INTO CORRESPONDING FIELDS OF TABLE <f_tab>
where WERKS = pr_werks.
I used the field catalog also.even same error is comming.
how to get data into deep internal table by select statement.
Please help me,
Regards,
Rahul

HI,
Try creating dynamic internal table like:
Field-symbols: <dyn_table> type standard table,
                             <dyn_wa>   ,
                             <dyn_field>.
Data: dy_table      type ref to data,
            ifc                  type lvc_t_fcat ,
            xfc                 type lvc_s_fcat ,
           Count             type i          ,
           Count1           type i          ,
           Index              type i          ,
           dy_line           type ref to data.
         Data counter   type i.
Data: line   type string       ,
            List    like table of line.
Data: idetails           type abap_compdescr_tab,
               xdetails           type abap_compdescr    .
Data: ref_table_des type ref to cl_abap_structdescr.
*Looping at field cat internal table to populate another field cat to be passed
* In method used below for creating final dynamic internal table
Loop at fieldcat into fieldcat1.
    Clear xfc.
       Xfc-fieldname            = fieldcat1-fieldname.
       Xfc-datatype              = fieldcat1-datatype.
       Xfc-intlen                    = fieldcat1-intlen.
     Append xfc            to ifc.
endloop.
Clear fieldcat1.
*Method called to create dynamic internal table on the basis of field catalog created above
Call method cl_alv_table_create=>create_dynamic_table
    Exporting
      it_fieldcatalog = ifc                     u201Cfield catalog appended above
    Importing
      ep_table        = dy_table.            u201CDynamic internal table which will be created
Assign dy_table->* to <dyn_table>.
*Create dynamic work area and assign to FS
Create data dy_line like line of <dyn_table>.
Assign dy_line->* to <dyn_wa>.
Then use this dynamic internal table created from above method
in the Select Query.
Hope it helps
Regards
Mansi

How to create dynamic nested internal table

Hi Experts,
Pleae tell me or give sample code, how to create dynamic nested internal table ?
I have seen threads saying creation of dynamic internal tables using some table structure only. But now the requirement is to create dynamic nested internal table.
For example the internal table contains two fields viz., one is field1 of dynamic internal table and other is normal field2 and values as shown below:
Nested internal table:
field1                     |     field2 ...
<table content1>     |     value2..
<table content1>     |     value2..
Here the [table content] should also a dynamic internal table.
Let me know if you need any other info.
regards
Saravanan R

see the complete code..i am currently working in ECC6.0 EHP4. just check which version you are using..
REPORT yst_test_000.
DATA:
      lt_comptab         TYPE cl_abap_structdescr=>component_table,
      ls_comp            LIKE LINE OF lt_comptab,
      lref_newstr        TYPE REF TO cl_abap_structdescr,
      lref_tab_type      TYPE REF TO cl_abap_tabledescr,
      lt_fcat            TYPE lvc_t_fcat,
      ls_fcat            TYPE lvc_s_fcat,
      ls_dd03p           TYPE dd03p,
      lt_data            type ref to data.
field-symbols: <fs_table> type standard table.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
    i_structure_name       = 'SCARR'
CHANGING
    ct_fieldcat            = lt_fcat
EXCEPTIONS
    inconsistent_interface = 1
    program_error          = 2
    OTHERS                 = 3.
IF sy-subrc NE 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
LOOP AT lt_fcat INTO ls_fcat.
IF ls_fcat-ref_table IS NOT INITIAL.
    CLEAR ls_dd03p.
    CALL FUNCTION 'BUS_DDFIELD_GET'
      EXPORTING
        i_tabnm         = ls_fcat-ref_table
        i_fldnm         = ls_fcat-fieldname
      IMPORTING
        e_dd03p         = ls_dd03p
      EXCEPTIONS
        field_not_found = 1
        OTHERS          = 2.
    IF sy-subrc EQ 0.
      ls_comp-name = ls_fcat-fieldname.
      ls_comp-type ?= cl_abap_datadescr=>describe_by_name( ls_dd03p-rollname ).
      APPEND ls_comp TO lt_comptab.
      CLEAR ls_comp.
    ENDIF.
ELSE.
    ls_comp-name = ls_fcat-fieldname.
    ls_comp-type ?= cl_abap_datadescr=>describe_by_name( ls_fcat-rollname ).
    APPEND ls_comp TO lt_comptab.
    CLEAR ls_comp.
ENDIF.
ENDLOOP.
*Now for the Field which you want deep table then you can do like this
ls_fcat-fieldname = 'NESTED_TABLE'.
ls_fcat-inttype    = 'C'.
ls_fcat-intlen     = '000006'.
ls_fcat-rollname   = 'SFLIGHT_TAB1'. "For SFLIGHT
APPEND ls_fcat TO lt_fcat.
ls_comp-name = ls_fcat-fieldname.
ls_comp-type ?= cl_abap_datadescr=>describe_by_name( ls_fcat-rollname ).
APPEND ls_comp TO lt_comptab.
CLEAR ls_comp.
lref_newstr = cl_abap_structdescr=>create( lt_comptab ).
lref_tab_type = cl_abap_tabledescr=>create( lref_newstr ).
create data lt_data type handle lref_tab_type.
assign lt_data->* to <fs_table>.
break-point.
Edited by: Vijay Babu Dudla on Apr 28, 2009 8:05 AM

Error while creating a dynamic internal table refers to custom field

Hi all,
I am getting the exception TYPE_NOT_FOUND when I try to create a dynamic internal table using:-
DATA: gr_desc TYPE REF TO cl_abap_typedescr.
gr_desc = cl_abap_typedescr=>describe_by_name( p_field ).
The field p_field is a Z-field inside a DB table, (e.g. a user added field in MARA). The statement fails at that point and gives a runtime exception. Any suggestions to how I may solve this problem? Or any alternatives for the same? I guess we face this issue for all custom fields..has SAP released a note for this??
Thanks..

that's just the wrong method, you should use DESCRIBE_BY_DATA
gr_desc = cl_abap_typedescr=>describe_by_data( p_field ).
Note: DESCRIBE_BY_NAME is to be used for referencing a DDIC type by its name. Example:
gr_desc = cl_abap_typedescr=>describe_by_name( 'MARA-ZZFIELD' ).

[Updated] How to create copies of internal table?

Dis is the detailed description of a problem i have and i
tried all i can to solve it without satisfied results.
I want to copy an internal table of a type defined in the
ABAP program itself, not dictionary. I have a function
that is supposed to accept the internal table as a
parameter of type 'any table'. The function should create
the new internal table using the field catalog of the
passed 'any table' and then create a new internal table
using "create_dynamic_table" and return the DATA pointer.
If anyone knows how it is done pls help me out.
I would like to get the field catalog of the following
internal table automatically by using some sap function..
TYPES:
BEGIN OF MYTYPE,
NAME TYPE SOMEZTABLE-NAME,
AGE TYPE SOMEZTABLE-AGE,
END OF MYTYPE.
DATA:
IT_TABLE TYPE TABLE OF MYTABLE INITIAL SIZE 0.
DATA:
COPY_OF_IT_TABLE TYPE REF TO DATA.
SELECT NAME AGE INTO TABLE IT_TABLE FROM S0MEZTABLE.
PERFORM CREATECOPY USING IT_TABLE CHANGING COPY_OF_IT_TABLE.
<b><i>[I have used FORM 4 understanding purpose only. I
actually want to put the code in the form in a seperate
global class method. So, its not possible to define
field symbols in the main pgm and assign value to it
from within the FORM. Also we cant CREATE DATA of the
type 'mytype' within the FORM.]</i></b>
FORM CREATECOPY
USING
IT_TABLE <b>TYPE ANY TABLE</b>
CHANGING
COPY_OF_IT_TABLE TYPE REF TO DATA.
<i><b>[ Here i would like to create a copy the passed
internal table and return a reference to it. I donot want
to refer to the same table passed. I guess the use of
function CREATE_DYNAMIC_TABLE in the CL_ALV_TABLE_CREATE
clss is required. ]</b></i>
ENDFORM.

Ravikumar,
All the example code i have got wil not work when i put the code in a method of a class..
The problem is not as simple as it sounds...
Pls try if u can and u will understand the basic problem..
If u can pls giv me ur email id as i can mail u the detailed description of the problem..

How to create an dynamic internal table with the structure of a ddic table

Hi all,
I want to fill ddic-tables (which I already created) in my abap dictionary with data out of CSV-files (which are located on the CRM-Server). The ddic tables have different amount of fields.
I started with creating a table which contains the name of the tables and the path to the matching CSV-file.
At the beginning I'm filling an internal table with part of this data (the name of the ddic-tables) - after that I am looping at this internal table.
LOOP AT lt_struc ASSIGNING <lfs_struc>.
     LOOP AT lv_itab1 INTO lv_wa1 WHERE ztab_name = <lfs_struc>.
     lv_feld = lv_wa1-zdat_name.
    ENDLOOP.
    CONCATENATE 'C:\-tmp\Exportierte Tabellen\' lv_feld INTO lv_pfad.
    Do.
    OPEN DATASET lv_pfad FOR INPUT IN TEXT MODE ENCODING NON-UNICODE IGNORING CONVERSION ERRORS.
    READ DATASET lv_pfad INTO lv_rec.
    IF sy-subrc NE 0.
      EXIT.
    ENDIF.
    enddo.
    REPLACE ALL OCCURRENCES OF '"' IN lv_rec WITH ''.
    SPLIT lv_rec AT ';' INTO TABLE lt_str_values.
    INSERT into (<lfs_struc>) values lr_str_value.
    CLOSE DATASET lv_pfad.
endloop.
This is not the whole code, but it's working until
SPLIT lv_rec AT ';' INTO TABLE lt_str_values.
I want to split all the data of lv_rec into an internal table which has the structure of the current ddic-table, but I didn't find out how to do give the internal table the structure of the ddic-table. In the code I used an internal tyble type string but I should be the structure of the matching tabel.
If I try to create an internal table by using a fiel symbol, I am told, that the data types are not matching.
Has anyone an idea?

Hi Mayari,
though you were successfull with
METHOD cl_alv_table_create=>create_dynamic_table
I must warn you not to use it. The reason is that the number of tables created is limited, the method uses GENERATE SUBROUTINE statement and this triggers an unwanted database commit.
If you know the DDIC structure, it is (starting with ECC6.0) much easier:
field-symbols:
<table> type standard table.
data:
lr_data type ref to data.
Create data lr_data type table of (<DDIC structure>).
assign lr_data->* to <table>.
The split code can be simplified gaining speed loosing complexity not loosing functionality.
field-symbols:<fs_s> type any.
field-symbols:<fs_t> type any.
SPLIT lv_rec AT ';' INTO table it_string.
loop at it_string assigning <fs_s>.
assign component sy-tabix of wa_string to <fs_t>.
if sy-subrc = 0.
<fs_t> = <fs_s>.
endif.
at last.
append <fs_itwa3> to <ft_itab3>.
endat.
endloop.
Though it may work as Keshav.T suggested, there is no need to do that way.
Regards,
Clemens

Create Spool from Internal table & converrt the spool to PDF

Hi All,
My requirement is take data from a table and find amount specific to each Vendors . So I took all the data into ITAB and do all the calculation. Later after calculation I have to create a spool from this ITAB and this spool have to convert to PDF. Later this PDF have to seend via email.
To convert the internal table to Spool , I used
LOOP AT t_summ INTO wa_summ.
    w-amount = wa_summ-remittanceamount.
    CONCATENATE wa_summ-vendorcode
                wa_summ-controlnum
                w-amount INTO wa_textdata SEPARATED BY space.
    APPEND wa_textdata TO t_textdata.
ENDLOOP.
DESCRIBE TABLE t_textdata .
w-file_length = syst-tfill * 1022.
l_doctype = 'LIST'.
l_layout = 'X_POSTSCRIPT'.
CONCATENATE ' Listbill Summary Report for' syst-datum INTO
                      l_title SEPARATED BY space.
l_receiver = syst-uname.
* Create Spool
CALL FUNCTION 'RSPO_SR_OPEN'
   EXPORTING
      dest                   = 'LOCL'
*   LDEST                  =
      layout                 = l_layout
      name                   = 'SUMREP'
*   SUFFIX1                =
*   SUFFIX2                =
   copies                 = '1'
*   PRIO                   =
*      immediate_print        = ' '
*   AUTO_DELETE            =
      titleline              = l_title
      receiver               = syst-uname           "
*      division               = l_pri_params-prabt " abteilung
*      authority              = l_pri_params-prber           "
*   POSNAME                =
*   ACTTIME                =
*   LIFETIME               = '8'
*   APPEND                 =
*   COVERPAGE              =
*   CODEPAGE               =
      doctype                = l_doctype
*   ARCHMODE               =
*   ARCHPARAMS             =
*   TELELAND               =
*   TELENUM                =
*   TELENUME               =
     IMPORTING
      handle                 = l_spool_handle
      spoolid                = w-spoolid
EXCEPTIONS
   device_missing         = 1
   name_twice             = 2
   no_such_device         = 3
   operation_failed       = 4
   OTHERS                 = 5
            .                                            "#EC DOM_EQUAL
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 'SLVC_C1022_TO_C255'
    EXPORTING
      i_file_length = w-file_length
    TABLES
      it_c1022      = t_textdata
      et_c255       = lt_spool.
l_length = w-file_length.
LOOP AT lt_spool INTO ls_spool.
    l_length = l_length - 255.
    IF ( l_length > 0 ).
      l_line_length = 255.
    ELSE.
      l_line_length = l_length + 255.
    ENDIF.
*   Write contents to spool
    CALL FUNCTION 'RSPO_SR_WRITE'
      EXPORTING
        handle = l_spool_handle
        text   = ls_spool
        length = l_line_length.
ENDLOOP.
* Close Spool
CALL FUNCTION 'RSPO_SR_CLOSE'
    EXPORTING
      handle                 = l_spool_handle
     pages                  = 1
FINAL                  = 'X'
   EXCEPTIONS
     handle_not_valid       = 1
     operation_failed       = 2
     OTHERS                 = 3
By this I can see the spool with data in SP02.
Then to conver to PDF, I used
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
    EXPORTING
      src_spoolid                    = w-spoolid
      no_dialog                      = 'X'
      DST_DEVICE                     = 'LOCL'
*      PDF_DESTINATION                =
    IMPORTING
*      PDF_BYTECOUNT                  =
*      PDF_SPOOLID                    =
      list_pagecount                 = list_pagecount
*      BTC_JOBNAME                    =
*      BTC_JOBCOUNT                   =
   TABLES
     pdf                            = t_pdf
   EXCEPTIONS
     err_no_abap_spooljob           = 1
     err_no_spooljob                = 2
     err_no_permission              = 3
     err_conv_not_possible          = 4
     err_bad_destdevice             = 5
     user_cancelled                 = 6
     err_spoolerror                 = 7
     err_temseerror                 = 8
     err_btcjob_open_failed         = 9
     err_btcjob_submit_failed       = 10
     err_btcjob_close_failed        = 11
     OTHERS                         = 12
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                        = 'D:\t\t.pdf'
     filetype                        = 'BIN'
    TABLES
      data_tab                        = t_pdf
*   FIELDNAMES                      =
   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
But later when I go and open the PDF, I am getting an error saying'Page cannot be open because it dont have any pages'
Please help me
Regards,
Nikhil

Hi Nikhil,
<li>If you are still not able to find out the problem. You can an alternative way , which is used for the same purpose.
<li>Try this way. It creates spool and and same CONVERT_ABAPSPOOLJOB_2_PDF fm is used to convert spool to PDF. It works. Test this test program.
   REPORT ztest_notepad.
   DATA:g_val         TYPE c,
        w_pripar      TYPE pri_params,
        w_arcpar      TYPE arc_params,
        i_pdf         TYPE TABLE OF tline,
        spoolid       LIKE tsp01-rqident,
        l_no_of_bytes TYPE i,
        l_pdf_spoolid LIKE tsp01-rqident,
        l_jobname     LIKE tbtcjob-jobname,
        l_jobcount    LIKE tbtcjob-jobcount.
   DATA:it_t001 TYPE TABLE OF t001 WITH HEADER LINE.
   START-OF-SELECTION.
     SELECT * FROM t001 INTO TABLE it_t001.
     "Read, determine, change spool print parameters and archive parameters
     CALL FUNCTION 'GET_PRINT_PARAMETERS'
       EXPORTING
         in_archive_parameters = w_arcpar
         in_parameters          = w_pripar
         layout                 = 'X_65_132'
         line_count             = 65
         line_size              = 132
         no_dialog              = 'X'
       IMPORTING
         out_archive_parameters = w_arcpar
         out_parameters         = w_pripar
         valid                  = g_val.
     IF g_val NE space AND sy-subrc = 0.
       w_pripar-prrel = space.
       w_pripar-primm = space.
       NEW-PAGE PRINT ON NEW-SECTION PARAMETERS w_pripar ARCHIVE PARAMETERS w_arcpar NO DIALOG.
     ENDIF.
     LOOP AT it_t001.
       WRITE:/ it_t001.
     ENDLOOP.
     NEW-PAGE PRINT OFF.
     CALL FUNCTION 'ABAP4_COMMIT_WORK'.
     spoolid = sy-spono.
     CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
       EXPORTING
         src_spoolid   = spoolid
         no_dialog     = ' '
       IMPORTING
         pdf_bytecount = l_no_of_bytes
         pdf_spoolid   = l_pdf_spoolid
         btc_jobname   = l_jobname
         btc_jobcount = l_jobcount
       TABLES
         pdf           = i_pdf.
     CALL FUNCTION 'GUI_DOWNLOAD'
       EXPORTING
         filename = 'C:\temp\test.pdf'
         filetype = 'BIN'
       TABLES
         data_tab = i_pdf.
Thanks
Venkat.

Delete rows dynmically from internal table

Hi Gurus,
I have got an problem. I have an internal table itab.
Case 1. It has got some 10 rows. I want to delete rows between those two rows containing same field value of a Field 'X'. Here same value of that field could come on 1st and 7th row. Then mean, I need to delete 2nd to 6th row.
It could come in 4th and 10th row. Then I need to delete 5th to 9th row.
Case 2. It has got some 20 rows. Now same I want to delete rows between those two rows containing same field value of a Field 'X'. Here again, same value of that field could come on 1st and 17th row. Mean I will delete 2nd to 16th row. It could come in 7th and 19th row. Then I need to delete 8th to 18th row.

Hi Vaibhav
Please find the code, I hope it helps
DATA: BEGIN OF itab OCCURS 10,
      val,
      END OF itab.
DATA: jtab LIKE itab OCCURS 0 WITH HEADER LINE,
      l_ind1 TYPE i,
      l_ind2 TYPE i,
      l_lines TYPE i,
      l_flg.
itab-val = 'a'.
append itab.
itab-val = 'b'.
append itab.
itab-val = 'c'.
append itab.
itab-val = 'd'.
append itab.
itab-val = 'e'.
append itab.
itab-val = 'f'.
append itab.
itab-val = 'c'.
append itab.
itab-val = 'g'.
append itab.
itab-val = 'c'.
append itab.
itab-val = 'h'.
append itab.
jtab[] = itab[].
DESCRIBE TABLE itab[] LINES l_lines.
LOOP AT itab.
MOVE sy-tabix to l_ind1.
l_ind2 = l_ind1 + 1.
LOOP AT jtab FROM l_ind2 to l_lines WHERE val eq itab-val.
l_ind1 = l_ind2.
l_ind2 = sy-tabix.
l_flg = 'X'.
exit.
ENDLOOP.
IF l_flg eq 'X'.
exit.
ENDIF.
ENDLOOP.
delete itab FROM l_ind1 to l_ind2.
LOOP AT itab.
WRITE: /2 itab-val.
ENDLOOP.
Still if you want to apply this multiple values, create another internal table and store the values which have been deleted already. So before you going to delete them again you can check from these new internal table.
Please let me know, if any issues still exists.
Regards
Praveen

Create a dynamic internal table

Hi ,
Can any one send me some code for creating dynamic internal table
My req is like this
Input table:
OP   QUAN DATE
1      2          10/10/2009
2      3           10/10/2009
3      2           11/10/2009
4      1           12/10/2009
Output table should look like this ( there are 3 different dates in above input and my output should have 3 additional columns and quan should fall under date)
OP 10/10/2009   11/10/2009    12/10/2009
1      2                    0                      0
2      3                    0                      0
3      0                    2                      0
4      0                   0                       1
Any quick respone will be greatlt appreciated
Moderator message - Please search before asking - post locked
Edited by: Rob Burbank on Dec 16, 2009 4:52 PM

The dynamic creation of internal tables has been discussed many times before in the forum. Please search the forum for them. If you have difficulties after that, post a new message with the code you have to create the table along with a description of your difficulty.
Rob

Problem with creating an dynamic internal table with only one field.

Hi,
i create an internal table like this:
FIELD-SYMBOLS: <GT_ITAB>      TYPE TABLE,
               <GS_ITAB>,
               <FS>.
DATA: GT_DATA TYPE REF TO DATA.
DATA: GS_DATA TYPE REF TO DATA.
DATA: TABNAME   LIKE DD03L-TABNAME.
DATA: FIELDNAME LIKE DD03L-FIELDNAME.
DATA: TBFDNAM   TYPE TBFDNAM VALUE 'LFA1-NAME1'.
SPLIT TBFDNAM AT '-' INTO TABNAME FIELDNAME.
CREATE DATA GT_DATA TYPE TABLE OF (TABNAME).
ASSIGN GT_DATA->* TO <GT_ITAB>.
CREATE DATA GS_DATA LIKE LINE OF <GT_ITAB>.
ASSIGN GS_DATA->* TO <GS_ITAB>.
SELECT * FROM (TABNAME) INTO CORRESPONDING FIELDS OF TABLE <GT_ITAB>.
BREAK-POINT.
it works OK.
Now i want to create an internal table not like LFA1 but with LFA1-NAME1 Field TBFDNAM.
It's not only LFA1-NAME1 it shell be the value of TBFDNAM.
When i change
CREATE DATA GT_DATA TYPE TABLE OF (TABNAME).
to
CREATE DATA GT_DATA TYPE TABLE OF ( TBFDNAM).
i get an shortdump.
Any idea?
Regards, Dieter

Hi Dieter,
Your approach is ok, but it will create dynamic table without a structure of NAME1. Only the line type will be suitable (but field name will not exists -> hence the error in the select statement).
In this case you need to create a dynamic table which structure consists of one field named NAME1.
This code is the appropriate one:
" your definitions
DATA: tabname LIKE dd03l-tabname.
DATA: fieldname LIKE dd03l-fieldname.
DATA: tbfdnam TYPE tbfdnam VALUE 'LFA1-NAME1'.
FIELD-SYMBOLS <gt_itab> TYPE table.
"new ones
DATA: it_fcat TYPE lvc_t_fcat WITH HEADER LINE.
DATA: gt_itab TYPE REF TO data.
" get table and fieldname
SPLIT tbfdnam AT '-' INTO tabname fieldname.
" create dynamic table with structure NAME1 (only one field)
it_fcat-fieldname = fieldname.
it_fcat-tabname = tabname.
APPEND it_fcat.
CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
    it_fieldcatalog           = it_fcat[]
IMPORTING
    ep_table                  = gt_itab
EXCEPTIONS
    generate_subpool_dir_full = 1
    OTHERS                    = 2.
CHECK sy-subrc = 0.
" dereference table
ASSIGN gt_itab->* TO <gt_itab>.
" insert data only to NAME1 field
SELECT * FROM (tabname) INTO CORRESPONDING FIELDS OF TABLE <gt_itab>.
I checked, this works fine:)
Regards
Marcin

HOW TO CREATE A FINAL INTERNAL TABLE FROM 8 OTHER INTERNAL TABLES

I have around 8 internal tables and I need to merge all of them into one final internal table so that I need to pass the new internal table for ALV Grid display

Hi Balram,
Assuming that there are logical links (ie foreign key relationships) between each of these internal tables, on way is to do several loops controlled by a binary search.
eg. we have 2 tables:
types: begin of ty_makt,
            matnr type matnr,
            maktx type maktx,
          end of ty_makt.
types: begin of ty_mara,
            matnr type matnr,
            bismt type bismt,
          end fo ty_mara.
types: begin of ty_output,
            matnr type matnr,
            bismt type bismt,
            maktx type maktx,
          end of ty_output.
data: tbl_mara type table of ty_mara with header line,
        tbl_makt type table of ty_makt with header line,
        tbl_putput type table of ty_output with header line.
sort tbl_makt by matnr.
loop at tbl_mara.
read table tbl_makt with key matnr = tbl_mara-matnr binary search.
if sy-subrc eq 0.
* build tbl_output here
endif.
endloop.
Hope this helps.
Cheers,
Pat.

Binding ALV GRID with Deep Internal Table

Hello all,
I am looking for a way to display ALV Grid with the Deep ITAB.
My ITAB is not too complex.
It has One Structure which gets whole DB table + One extra field.
Therefore my Itab looks as follows.
TYPES: BEGIN OF TY_TRIP,
        ZPM_UPLOAD LIKE ZDBTABLE, "ZDBTABLE is custom database table.
        TDTIME TYPE STRING,
       END OF TY_TRIP.
DATA: ITAB TYPE TABLE OF TY_TRIP,
      WA_ITAB LIKE LINE OF ITAB.
Now i am able to populate data into Deep ITAB.
If i call ALV Grid with ITAB then i get error. So how to call 'REUSE_ALV_GRID_DISPLAY' with this ITAB?
Thanks in advance.

Hello,
My senior asked me to use the below definition.
TYPES: BEGIN OF TY_TRIP.
        INCLUDE STRUCTURE ZDBTABLE.
TYPES: TDTIME TYPE STRING,
       END OF TY_TRIP.
DATA: ITAB TYPE TABLE OF TY_TRIP,
      WA_ITAB LIKE LINE OF ITAB.
If anyone else is looking to print in ALV, they can use this type of ITAB definition though it gives you the flexiblity to create ITAB and also making it FLAT and not DEEP.
But i am still looking for an answer for my first post.
Thanks.

Creating Types and Internal table

Hi,
I created
Types: begin of itab,
           field 1 ...
            Field 30,
        End of itab.
Data: lt_itab type table of itab.
I need to create a second type itab1 with all the itab fields and also new fields field31 and field32.
I dont want to declare all the 30 fields again for the second one.
Can any one tell me how to create this?
Thanks.
rajesh

You can INCLUDE TYPE.
Types: begin of itab,
       field1 type string,
       field2 type string,
*      More Fields in here.
       Field30 type string,
       End of itab.
Data: lt_itab type table of itab.
TYPES BEGIN OF new_itab.
       INCLUDE type itab.
TYPES: field31 type string,
       field32 type string,
END OF new_itab.
Regards,
Rich Heilman

Merging of multiple rows in an internal table as a single record

Hi All,
I have an internal table which has the following columns:
text, date, time, user.
it stores notes in the internal table.
The problem is...when I save a note with multiple lines and spaces it saves each line of the note as a row in the internal table.
Thus i get more no. of rows in the internal table compare to the no. of rows!
I need to store each notes as single row in the internal table.
Please advise how to approach this?
Helpful answers will be rewarded.
Thanks & Regards,
Anshumita.

You can create a deep internal table. You can declare one Column as an internal table and store the NOTES in that Internal table for each row.
http://help.sap.com/saphelp_nw04/helpdata/en/fc/eb366d358411d1829f0000e829fbfe/content.htm
you can check the example in the link
regards,
abhishek

Grouping of two rows of internal table

Hi all,
I am having a requirement in which I want to group two rows of an internal table and assign a pointer to the two rows.
This pointer variable will then be passed to ALV.
Help reqd.
regards.

Hi Gaurav,
Hope the below code helps:
TYPES :BEGIN OF TY_ITAB2,
DATA(400),
END OF TY_ITAB2.
DATA: ITAB3 TYPE TY_ITAB2 OCCURS 0 WITH HEADER LINE
Loop at itab1.
ITAB3-DATA = ITAB1-LABEL.
APPEND ITAB3.
ITAB3-DATA = ITAB1-MATNR.
APPEND ITAB3.
endloop.
or
You can create a deep internal table. You can declare one Column as an internal table and store the NOTES in that Internal table for each row.
http://help.sap.com/saphelp_nw04/helpdata/en/fc/eb366d358411d1829f0000e829fbfe/content.htm
you can check the example in the link
Kindly Reward Points If You Find The Reply Helpful.
Cheers,
Chaitanya.

Create dynmic deep internal table

Similar Messages

Maybe you are looking for