用OO将航班信息显示出来

 *&---------------------------------------------------------------------*
*&  Include           ZSER45100INC
*&---------------------------------------------------------------------*
    data: begin of ty_cusid,
      id type scustom-id,
      end of ty_cusid.
    data: begin of ty_bookinfo,
      carrid type sbook-carrid,
      connid type sbook-connid,
      fldate type sbook-fldate,
      bookid type sbook-bookid,
      customid type sbook-customid,
      end of ty_bookinfo.
class class_flight definition.

  public section.
    data cusname type scustom-name.
    data lt_cusid like standard table of ty_cusid .
    data lt_bookinfo like standard table of ty_bookinfo.
    methods:
      get_customer_id,
      get_booking_info,
      display_bookings.


endclass.

class class_flight implementation.
    method get_customer_id.
*      cusname = cusname.
      select id
        into corresponding fields of table lt_cusid
        from scustom
        where name eq cusname.
    endmethod.
    method get_booking_info.
      select
        carrid
        connid
        fldate
        bookid
        customid
        into corresponding fields of table lt_bookinfo
        from sbook
        for all entries in lt_cusid
        where bookid eq lt_cusid-id.
    endmethod.
    method display_bookings.
      LOOP AT lt_bookinfo into ty_bookinfo.
        write:/(10) ty_bookinfo-carrid,
               (5)  ty_bookinfo-connid,
               (15) ty_bookinfo-fldate,
               (15) ty_bookinfo-bookid,
               (15) ty_bookinfo-customid.
      ENDLOOP.
    endmethod.
endclass.

 

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 

****************report part***************************************************

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 

 

REPORT  ZSER46100.
tables: sflight, sbook, scustom.

include zser45100inc.

data sflight_obj type ref to class_flight.
parameters cusname type scustom-name obligatory.

start-of-selection.
  create object sflight_obj.
  sflight_obj->cusname = cusname.
  call method sflight_obj->get_customer_id.
  call method sflight_obj->get_booking_info.
  call method sflight_obj->display_bookings.