*&---------------------------------------------------------------------*
*& Report  ZFC_GENERIC_PROGRAMMING
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zfc_generic_programming.


DATA:
      gv_number_1     TYPE int4 VALUE '1',
      gv_number_2     TYPE int4,
      gv_number_3     TYPE int4 VALUE 1,
      gt_object_table TYPE STANDARD TABLE OF /dvd/ftt_s_object,
      gs_object       TYPE /dvd/ftt_s_object,
      gv_sum          type int4.


FIELD-SYMBOLS:
               <gv_number>          TYPE int4,
               <gv_any>             TYPE ANY,
               <gv_number_another>  TYPE int4,
               <gv_int4>            TYPE int4,
               <gv_string>          TYPE string,
               <gv_generic>         TYPE ANY,
               <gs_line>            TYPE /dvd/ftt_s_object.


ASSIGN gv_number_1 TO <gv_number_another>.
ASSIGN gv_number_3 TO <gv_int4>.
ASSIGN gv_number_3 TO <gv_generic>.

<gv_number_another> = 4.


gs_object-name = 'Anton'.
gs_object-value = 50.
APPEND gs_object TO gt_object_table.
gs_object-name = 'Jan'.
gs_object-value = 16.
APPEND gs_object TO gt_object_table.
gs_object-name = 'Sofia'.
gs_object-value = 25.
APPEND gs_object TO gt_object_table.

LOOP AT gt_object_table ASSIGNING <gs_line>.

  gv_sum = gv_sum + <gs_line>-value.
  WRITE: / 'Name: ', <gs_line>-name, ' Value: ', <gs_line>-value.

ENDLOOP.