*&---------------------------------------------------------------------**& 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.
