REPORT ZYS_S007.

DATA :  BEGIN OF GT_TEST OCCURS 0,
          BANFN LIKE EBAN-BANFN,
          BNFPO LIKE EBAN-BNFPO,
          SUM   TYPE P DECIMALS 2,
          LOOOOOOOONG_FIELD_NAME(10),
        END OF GT_TEST.

DATA : GT_INFO LIKE RSTRUCINFO OCCURS 0 WITH HEADER LINE,
       G_REPID LIKE SY-REPID.


G_REPID = SY-REPID.

CALL FUNCTION 'GET_COMPONENT_LIST'
     EXPORTING
          PROGRAM    = G_REPID
          FIELDNAME  = 'GT_TEST'
     TABLES
          COMPONENTS = GT_INFO
     EXCEPTIONS
          OTHERS     = 1.

LOOP AT GT_INFO.
  WRITE : / GT_INFO-COMPNAME.
ENDLOOP.

begin of itab occurs 0,
...
end of itab.

DATA:
  gs_mara2 TYPE REF TO data
.
DATA:
  gt_mara  TYPE TABLE OF mara,
  gt_fcat  TYPE lvc_t_fcat,
  gt_mara2 TYPE REF TO data
.
FIELD-SYMBOLS:
  <gs_mara>  TYPE mara,
  <gs_mara2> TYPE ANY,
  <gt_mara2> TYPE STANDARD TABLE
.
SELECT *
  INTO TABLE gt_mara
  UP TO 100 ROWS
  FROM mara.

CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
  EXPORTING
    i_structure_name = 'MARA'
  CHANGING
    ct_fieldcat      = gt_fcat.
DELETE gt_fcat WHERE fieldname <> 'MATNR' AND
                     fieldname <> 'MATKL' AND
                     fieldname <> 'MEINS'.

CALL METHOD cl_alv_table_create=>create_dynamic_table
  EXPORTING
    it_fieldcatalog = gt_fcat
  IMPORTING
    ep_table        = gt_mara2.

ASSIGN gt_mara2->* TO <gt_mara2>.
CREATE DATA gs_mara2 LIKE LINE OF <gt_mara2>.
ASSIGN gs_mara2->* TO <gs_mara2>.
LOOP AT gt_mara ASSIGNING <gs_mara>.
  CLEAR <gs_mara2>.
  MOVE-CORRESPONDING <gs_mara> TO <gs_mara2>.
  APPEND <gs_mara2> TO <gt_mara2>.
ENDLOOP.