REPORT  zabap_gui.


TYPES:
      BEGIN OF ty_tab,
        item     TYPE char10,
        quantity TYPE i,
        price    TYPE i,
      END OF ty_tab.

DATA:
      itab TYPE STANDARD TABLE OF ty_tab,
      wtab TYPE ty_tab.


wtab-item = 'Rice'. wtab-quantity = 2. wtab-price = 80.


APPEND wtab TO itab.

wtab-item = 'Suger'. wtab-quantity = 1. wtab-price = 90.
APPEND wtab TO itab.

wtab-item = 'Tea'. wtab-quantity = 1. wtab-price = 100.
APPEND wtab TO itab.

wtab-item = 'Rice'. wtab-quantity = 3. wtab-price = 150.
APPEND wtab TO itab.

wtab-item = 'Horlicks'. wtab-quantity = 1. wtab-price = 200.
APPEND wtab TO itab.

wtab-item = 'Suger'. wtab-quantity = 2. wtab-price = 70.
APPEND wtab TO itab.

WRITE:  /3 'Item',
        13 'Quantity(KG)',
        28 'Price(Rs)'.
WRITE / '=========================================='.
SKIP.

LOOP AT itab INTO wtab.
  IF wtab-item = 'Rice'.
    DELETE TABLE itab FROM wtab.
  ELSEIF wtab-item = 'Suger'.
    DELETE TABLE itab FROM wtab.
  ENDIF.
ENDLOOP.


LOOP AT itab INTO wtab.
  WRITE:  /3 wtab-item,
          12 wtab-quantity,
          25 wtab-price.
ENDLOOP.

SKIP.
WRITE '=========================================='.
SKIP.


Serkan AKKAVAK
Bilgisayar Mühendisi
serkurumsal@yandex.com