Classical Report-3

1.) Structure, Work Area and Internal Table Data declaration

2.) Select Query

3.) Display of fetched records and 

3.) Also usage of Insert, Modify and Delete statements for fetched records

REPORT  ZREPORT3.

TYPES: BEGIN OF ITAB,
  CARRID TYPE SFLIGHT-CARRID,
  CONNID TYPE SFLIGHT-CONNID,
  FLDATE TYPE SFLIGHT-FLDATE,
  PRICE TYPE SFLIGHT-PRICE,
  END OF ITAB.

DATA: ITAB_FLIGHT TYPE TABLE OF ITAB INITIAL SIZE 0,
      WA_FLIGHT TYPE ITAB.

SELECT CARRID CONNID FLDATE PRICE FROM SFLIGHT INTO WA_FLIGHT UP TO 5 ROWS.
  APPEND WA_FLIGHT TO ITAB_FLIGHT.
ENDSELECT.

LOOP AT ITAB_FLIGHT INTO WA_FLIGHT.
  WRITE:/ SY-VLINE,WA_FLIGHT-CARRID,SY-VLINE,
  10 WA_FLIGHT-CONNID,SY-VLINE,
  25 WA_FLIGHT-FLDATE,SY-VLINE,
  42 WA_FLIGHT-PRICE LEFT-JUSTIFIED,SY-VLINE.
ENDLOOP.
ULINE.

CLEAR WA_FLIGHT.
WA_FLIGHT-CARRID = 'XXX'.
WA_FLIGHT-CONNID = '747'.
INSERT WA_FLIGHT INTO ITAB_FLIGHT INDEX 2.

LOOP AT ITAB_FLIGHT INTO WA_FLIGHT.
  FORMAT COLOR 3 ON.
  WRITE:/ SY-VLINE,WA_FLIGHT-CARRID,SY-VLINE,
  10 WA_FLIGHT-CONNID,SY-VLINE,
  25 WA_FLIGHT-FLDATE,SY-VLINE,
  42 WA_FLIGHT-PRICE LEFT-JUSTIFIED,SY-VLINE.
ENDLOOP.
ULINE.


READ TABLE ITAB_FLIGHT INTO WA_FLIGHT INDEX 2.
FORMAT COLOR 3 ON.

WRITE:/ SY-VLINE,WA_FLIGHT-CARRID,SY-VLINE,
10 WA_FLIGHT-CONNID,SY-VLINE,
25 WA_FLIGHT-FLDATE,SY-VLINE,
42 WA_FLIGHT-PRICE LEFT-JUSTIFIED,SY-VLINE.
ULINE.

FORMAT COLOR 4 ON.
LOOP AT ITAB_FLIGHT INTO WA_FLIGHT.
  IF SY-TABIX = 2.
    WA_FLIGHT-CONNID  = '18'.
    MODIFY TABLE ITAB_FLIGHT FROM WA_FLIGHT TRANSPORTING CONNID.
  ENDIF.
  WRITE:/ SY-VLINE,WA_FLIGHT-CARRID,SY-VLINE,
10 WA_FLIGHT-CONNID,SY-VLINE,
25 WA_FLIGHT-FLDATE,SY-VLINE,
42 WA_FLIGHT-PRICE LEFT-JUSTIFIED,SY-VLINE.
ENDLOOP.
ULINE.

FORMAT COLOR 2 ON.
READ TABLE ITAB_FLIGHT INTO WA_FLIGHT INDEX 2.
DELETE TABLE ITAB_FLIGHT FROM WA_FLIGHT.

LOOP AT ITAB_FLIGHT INTO WA_FLIGHT.
  WRITE:/ SY-VLINE,WA_FLIGHT-CARRID,SY-VLINE,
  10 WA_FLIGHT-CONNID,SY-VLINE,
  25 WA_FLIGHT-FLDATE,SY-VLINE,
  42 WA_FLIGHT-PRICE LEFT-JUSTIFIED,SY-VLINE.
ENDLOOP.