REPORT zsap2_ann_selectie.
PARAMETERS pa_carid TYPE sflight-carrid DEFAULT 'AA'.
DATA: wa_sbook TYPE sbook,
itab_sbook TYPE TABLE OF sbook.
DATA: wa_cust TYPE scustom.
INITIALIZATION.
SELECT-OPTIONS so_date FOR sy-datlo.
so_date-sign = 'I'.
so_date-option = 'BT'.
so_date-low = '20070101'.
so_date-high = '20071031'.
APPEND so_date.
so_date-sign = 'E'.
so_date-option ='EQ'.
so_date-low = '20091008'.
so_date-high = space.
APPEND so_date.
AT SELECTION-SCREEN.
AUTHORITY-CHECK OBJECT 'S_CARRID'
ID 'CARRID' FIELD pa_carid
ID 'ACTVT' FIELD '03'.
IF sy-subrc NE 0.
MESSAGE e002(zdemo_an).
ENDIF.

START-OF-SELECTION.
SELECT * FROM sbook INTO TABLE itab_sbook
WHERE order_date IN so_date AND carrid = pa_carid.
IF sy-subrc EQ 0.
LOOP AT itab_sbook INTO wa_sbook.
WRITE:/ wa_sbook-carrid,
wa_sbook-order_date,
wa_sbook-bookid,
wa_sbook-customid.
HIDE: wa_sbook-customid.
ENDLOOP.
ELSE.
MESSAGE e003(zdemo_an).
ENDIF.
AT LINE-SELECTION.
CASE sy-lsind.
WHEN 1.
PERFORM toonpassagier
USING wa_sbook-customid
CHANGING wa_cust.
WHEN 2.
MESSAGE i004(zdemo_an) WITH wa_cust-email.
ENDCASE.

FORM toonpassagier
USING
value(f_id) TYPE sbook-customid
CHANGING f_wa_cust TYPE scustom.
SELECT SINGLE * FROM scustom INTO f_wa_cust WHERE id = f_id.
IF sy-subrc EQ 0.
WRITE:/ f_wa_cust-id,
f_wa_cust-name,
f_wa_cust-telephone,
f_wa_cust-postcode,
f_wa_cust-city.
ELSE.
MESSAGE e003(zdemo_an).
ENDIF.
ENDFORM. "TOONPASSAGIER