*&---------------------------------------------------------------------*
*& Report  Z_DYNAMIC                                                   *
*&                                                                     *
*&---------------------------------------------------------------------*
*& AUTOR: ROKO                                                         *
*& POSTED: 3/07/2007                                                   *
*& WELCOM TO 37 MICRORAION                                             *
*&---------------------------------------------------------------------*

REPORT z_dynamic.

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.
  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.
  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        = 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.                    "create_dynamic_itab
*&---------------------------------------------------------------------*
*&      Form  get_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM get_data.

* Select Data from table.
  SELECT * INTO TABLE <dyn_table>
             FROM (p_table).

ENDFORM.                    "get_data
*&---------------------------------------------------------------------*
*&      Form  write_out
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM write_out.
*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.
ENDFORM.                    "write_out

TYPES
    : BEGIN OF lt_t1
      , f1 TYPE REF TO prelp-pernr
      , f2 TYPE i
    , END   OF lt_t1
    .
DATA: ls_s1 TYPE lt_t1
    , lt_t1 LIKE STANDARD TABLE OF ls_s1
    , lv_v1 TYPE prelp-pernr VALUE 1
    , lv_v2 LIKE lv_v1       VALUE 2
    , lv_v3 LIKE lv_v2       VALUE 3
    .

FIELD-SYMBOLS: <fs> TYPE ANY.
CLEAR ls_s1.
ls_s1-f2 = 1.
GET REFERENCE OF lv_v1 INTO ls_s1-f1.
INSERT ls_s1 INTO TABLE lt_t1.

CLEAR ls_s1.
ls_s1-f2 = 2.
GET REFERENCE OF lv_v2 INTO ls_s1-f1.
INSERT ls_s1 INTO TABLE lt_t1.

CLEAR ls_s1.
ls_s1-f2 = 3.
GET REFERENCE OF lv_v3 INTO ls_s1-f1.
INSERT ls_s1 INTO TABLE lt_t1.

LOOP AT lt_t1 INTO ls_s1 .
  ASSIGN ls_s1-f1->* TO <fs>.
  WRITE: / <fs>.
  <fs> = 666.
  WRITE: / lv_v1, lv_v2, lv_v3 .
ENDLOOP.