REPORT Z06_01.

TYPES:
  BEGIN OF T_PRODUCT,
    PRODUCT_NAME  TYPE C LENGTH 20,
    PRICE         TYPE I,
  END OF T_PRODUCT.

TYPES: T_PRODUCT_LIST TYPE STANDARD TABLE OF T_PRODUCT WITH EMPTY KEY.

DATA(GT_PRODUCTS) = VALUE T_PRODUCT_LIST(
  ( PRODUCT_NAME = 'APPLE' PRICE = 100 )
  ( PRODUCT_NAME = 'BANANA' PRICE = 200 )
  ( PRODUCT_NAME = 'ORANGE' PRICE = 300 ) ).

TYPES:
  BEGIN OF T_PRODUCT_WITH_VAT,
    PRODUCT_NAME      TYPE C LENGTH 20,
    PRICE             TYPE I,
    PRICE_WITH_VAT    TYPE I,
  END OF T_PRODUCT_WITH_VAT.

TYPES: T_PRODUCT_WITH_VAT_LIST TYPE STANDARD TABLE OF T_PRODUCT_WITH_VAT WITH EMPTY KEY.

DATA(GT_PRODUCTS_WITH_VAT) = VALUE T_PRODUCT_WITH_VAT_LIST(
  FOR WA IN GT_PRODUCTS
    ( PRODUCT_NAME       = WA-PRODUCT_NAME
      PRICE              = WA-PRICE
      PRICE_WITH_VAT     = WA-PRICE * '1.1' ) ).


CL_DEMO_OUTPUT=>DISPLAY( GT_PRODUCTS_WITH_VAT ).