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
TYPES: BEGIN OF TY_ITAB,
CARRID TYPE SFLIGHT-CARRID,
CONNID TYPE SFLIGHT-CONNID,
FLDATE TYPE SFLIGHT-FLDATE,
PRICE TYPE SFLIGHT-PRICE,
END OF TY_ITAB.
DATA: IT_ITAB TYPE TABLE OF TY_ITAB,
WA_FLIGHT TYPE TY_ITAB.
START-OF-SELECTION.
SELECT CARRID
CONNID
FLDATE
PRICE
FROM SFLIGHT
INTO TABLE IT_ITAB
UP TO 5 ROWS.
IF SY-SUBRC EQ 0.
LOOP AT it_ITAB 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 it_ITAB INDEX 2.
LOOP AT it_ITAB 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 it_ITAB 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 it_ITAB INTO WA_FLIGHT.
IF SY-TABIX = 2.
WA_FLIGHT-CONNID = '18'.
MODIFY TABLE it_ITAB 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 it_ITAB INTO WA_FLIGHT INDEX 2.
DELETE TABLE it_ITAb FROM WA_FLIGHT.
LOOP AT it_ITAB 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.
ENDIF.
No comments:
Post a Comment