topic Re: really dynamic in Application Development and Automation Discussions

really dynamic

Former Member — Wed, 18 Apr 2007 07:47:16 GMT

there is quite a lot dynamic internal table blogs etc. but those instrcuctions does not help me to build up really dynamic internal table. Examples always point to some structure etc.

Case is: user gives date range in selection screen. Ex. 1.1.2007-20.1.2007.

Program should create internal table with fields for number of days in between those days.

So end result should be like this:

types: begin of lt_date_tab_dynamic_range,

date_1 type syst-datum,

date_2 type syst-datum,

date_nn type syst-datum,

end of lt_date_range.

How this could do via abap?

Thanks.

Re: really dynamic

Former Member — Wed, 18 Apr 2007 07:54:18 GMT

 type-pools : abap. 
  field-symbols: <dyn_table> type standard table, 
               <dyn_wa>, 
               <dyn_field>. 
  data: dy_table type ref to data, 
      dy_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.      **********Creates a dyanamic internal table********** 
  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. 
  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. 
    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>. 
  endform. 
    
  form get_data. 
  * Select Data from table. 
  select * into table <dyn_table> 
             from (p_table). 
  endform. 
   Write out data from table. 
  loop at <dyn_table> into <dyn_wa>. 
    do. 
      assign component  sy-index   
         of structure <dyn_wa> to <dyn_field>. 
      if sy-subrc <> 0. 
        exit. 
      endif. 
      if sy-index = 1. 
        write:/ <dyn_field>. 
      else. 
        write: <dyn_field>. 
      endif. 
    enddo. 
  endloop.

Regards

Sudheer

Re: really dynamic

Former Member — Wed, 18 Apr 2007 07:57:04 GMT

Check the link below. i know u must have already visited this , but this is a good ex where in a loop dyntable is created .

/people/alvaro.tejadagalindo/blog/2006/11/27/dynamic-alv-list-display

Re: really dynamic

Sathish — Wed, 18 Apr 2007 08:02:03 GMT

You can do it by generation of code like below:

form gen_cal_date.

ld_source = 'form calculate_date.'.