Call method "cl_alv_table_create= create_dynamic_table"

Question

Hi SDN Community,
Is it possible to create dynamic tables. I tried it by call method "cl_alv_table_create=>create_dynamic_table", but the "new_table" of output parameters is empty after the call is executed.
Please suggest.
Thank You.
Pankaj.

Answer 1

Hi Pankaj,
Try the code written below and let me know whether it works?
report  z_dynamic_itab_test .
include z_table_fs_top.
include z_table_fs_forms.
initialization.
  perform clear_fields.
start-of-selection.
  perform fetch_data.
end-of-selection.
*&  Include           Z_TABLE_FS_TOP
Type Pools                                                           *
type-pools: slis,
            rsds.
Tables                                                               *
tables :sscrfields,                "Fields on selection screens
        dd03l.                     "Table Fields
Types                                                                *
types: begin of t_dd03l,
        tabname like dd03l-tabname,              "Table Name
        fieldname like dd03l-fieldname,          "Field Name
        keyflag   like dd03l-keyflag,            "Key Flag
        rollname  like dd03l-rollname,           "Roll Name
        position like dd03l-position,            "Position
        ddtext(30),                              "Description
       end of t_dd03l.
types : begin of t_fname,                        "To hold the field names
          fld like dd03l-fieldname,
        end of t_fname.
Internal Tables                                                      *
data : it_dd03l   type table of t_dd03l,       "To hold the field names of dd03l.
       it_flds    type table of rsdsfields,    "To hold the field names
       it_fields  type table of dd03l,         "To hold the field names
       it_cat     type table of lvc_s_fcat,    "To hold Field Catalog
       it_fname   type table of t_fname.
Work areas                                                           *
data: wa_dd03l  like line of it_dd03l,     "Workarea for IT_DD03L
      wa_flds   like line of it_flds,      "Workarea for IT_FLDS
      wa_fields like line of it_fields,    "Workarea for IT_FIELDS
      wa_cat    like line of it_cat ,      "Workarea for IT_CAT
      wa_fname  like line of it_fname.     "Workarea for IT_FNAME
*SELECTION SCREEN WITH BLOCK DEFINITION.
selection-screen begin of block b2 with frame title text-004.
parameters: p_tbname type dd03l-tabname.
select-options: s_field for dd03l-fieldname no intervals.
selection-screen end of block b2.
Variables                                                            *
data : lv_where type string,
       lv_cnt   type i value '1',
       v_records type i.
data : gv_where_cl(100) type c.              "Variable to hold Where clause
data: wa_flname(5) type c.
data: wa_fldcat type lvc_s_fcat.
data: it_fldcat type lvc_t_fcat.
data: it type ref to data.
DECLARATION OF FIELD SYMBOLS :
field-symbols: <fs_table> type table.
field-symbols: <fs_temp> type any,
               <fs_final> type any.
*&  Include           Z_TABLE_FS_FORMS
*&      Form  clear_fields
     To clear all work areas and refresh all internal tables.
form clear_fields .
  clear wa_dd03l.
  clear wa_flds.
  clear wa_fields.
  clear wa_cat.
  clear wa_fname.
  refresh it_dd03l.
  refresh it_flds.
  refresh it_fields.
  refresh it_cat.
  refresh it_fname.
endform.                    " clear_fields
*&      Form  FETCH_DATA
      Fetch data from different tables
form fetch_data .
  describe table s_field lines v_records.
Populate it_flds from s_field, to hold the fields to be Selected.
  if s_field is not initial.
    loop at s_field.
      wa_flname = s_field-low.
      write: s_field-low.
    BUILD FIELD CATALOG FOR ALL FIELDS.
      wa_flds-fieldname = wa_flname.
      append wa_flds to it_flds.
    endloop.
  endif.
Populate the Where clause as a string.
if s_where[] is not initial.
   loop at s_where.
     concatenate lv_where s_where-low into lv_where separated by space.
   endloop.
endif.
Populate it_dd03l, to hold the field names from DD03L.
  select tabname
         fieldname
         keyflag
         rollname
         position
         from dd03l
         into table it_dd03l
         where tabname eq p_tbname
               and fieldname ne 'MANDT'.
  if sy-subrc = 0.
    sort it_dd03l by position.
    delete it_dd03l where fieldname cp '.INCLU*'.          ""CP = Covers Pattern
  endif.
Populate it_fname, with fields which have to be selected (entered in selection).
  loop at it_dd03l into wa_dd03l.
  Read table it_flds.
    read table it_flds into wa_flds with key fieldname = wa_dd03l-fieldname.
    if sy-subrc = 0.
    Move data from it_dd03l to it_fname
      wa_fname-fld = wa_dd03l-fieldname.
      append wa_fname to it_fname.
      clear wa_fname.
    endif.
  endloop.
*TO CHECK IF TABLE EXISTS.
  call function 'SCPR_DB_TABLE_EXIST'
    exporting
      tabname        = p_tbname
    exceptions
      tab_dont_exist = 1
      others         = 2.
  if sy-subrc <> 0.
    if sy-subrc = 1.
    GIVE A POP UP.
      call function 'POPUP_TO_DECIDE_INFO'
        exporting
          textline1    = 'Table Does Not Exist !'
          titel        = 'Invalid Table Name'
          start_column = 25
          start_row    = 6.
    endif.
  endif.
SELECT ALL RECORDS FROM DD03L.
  select *
  into table it_fields
  from dd03l
  where tabname = p_tbname.
  if sy-subrc = 0.
    sort it_fields by position.
    delete it_fields where fieldname cp '.INCLU*'.         "CP = Covers Pattern.
  endif.
Populate IT_CAT with fields which are REQUIRED.
Display upto 150 fields only.
  loop at it_fields into wa_fields to 150.
  Read table it_fname
    read table it_fname into wa_fname with key fld = wa_fields-fieldname.
    if sy-subrc = 0.
    Move data from it_fields
      wa_cat-tabname = p_tbname.
      wa_cat-fieldname = wa_fields-fieldname.
      wa_cat-col_pos = lv_cnt.
      wa_cat-inttype    = wa_fields-inttype.
      wa_cat-datatype = wa_fields-datatype.
      wa_cat-intlen = wa_fields-intlen.
      wa_cat-seltext = wa_fields-fieldname.
      wa_cat-decimals = wa_fields-decimals.
      wa_cat-ref_field = wa_fields-fieldname.
      wa_cat-ref_table = p_tbname.
      append wa_cat to it_cat.
      clear wa_cat.
      lv_cnt = lv_cnt + 1.
    endif.
  endloop.
CREATE A DYNAMIC INTERNAL TABLE.
  call method cl_alv_table_create=>create_dynamic_table
    exporting
      it_fieldcatalog = it_cat
    importing
      ep_table        = it.
ASSIGN IT TO <FS>.
  assign it->* to <fs_table>.
*Select the data from the table given as input and populate
it into the dynamic internal table created based on the where
condition.
  select (it_fname)
         from (p_tbname)
         into table <fs_table>
         where (lv_where).
  if sy-subrc <> 0.
    message 'No data found' type 'I'.
  endif.
*Displaying dynamic internal table .
  loop at <fs_table> assigning <fs_temp>.
   write:/ <fs_temp> quickinfo 'CONTENTS'.
  endloop.
endform.                    " FETCH_DATA
Best Regards,
Deepa Kulkarni