Thursday, April 10, 2014

ABAP - ZMYSAPLIBRARY_Sample 2




  REPORT  ZMYSAPLIBRARY.

DATA it_flight TYPE STANDARD TABLE OF sflight.        

DATA wa_sflight TYPE sflight.

WRITE 'Printout in tableorder of Database:'.

SELECT FROM sflight

INTO wa_sflight

WHERE carrid 'JL'.

  WRITE/ wa_sflight-carrid,

  wa_sflight-connid,
  wa_sflight-fldate,
  wa_sflight-price,
  wa_sflight-currency,
  wa_sflight-planetype.

ENDSELECT.

ULINE.

SELECT FROM sflight

INTO TABLE it_flight

WHERE carrid 'JL'.

sort it_flight by fldate.       

WRITE 'Printout in tableorder of sorted ITAB:'.

LOOP AT it_flight INTO wa_sflight.

  WRITE/ wa_sflight-carrid,

  wa_sflight-connid,
  wa_sflight-fldate,
  wa_sflight-price,
  wa_sflight-currency,
  wa_sflight-planetype.

ENDLOOP.

No comments:

Post a Comment