0
点赞
收藏
分享

微信扫一扫

用OO将航班信息显示出来

早安地球 2022-12-06 阅读 53

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

举报

相关推荐

0 条评论