hide / AT LINE-SELECTION
*&---------------------------------------------------------------------*
*& Report ZFLIGHT_DETAILS_LIST*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zflight_details_list.
DATA wa_spfli TYPE spfli.
DATA wa_sflight TYPE sflight.
START-OF-SELECTION.
SELECT carrid connid airpfrom airpto deptime
FROM spfli
INTO CORRESPONDING FIELDS OF wa_spfli.
WRITE: / wa_spfli-carrid,
wa_spfli-connid,
wa_spfli-airpfrom,
wa_spfli-airpto,
wa_spfli-deptime.
HIDE: wa_spfli-carrid,
wa_spfli-connid.
ENDSELECT.
AT LINE-SELECTION.
IF sy-lsind = 1.
WRITE: TEXT-001,
wa_spfli-carrid,
wa_spfli-connid.
SELECT fldate seatsmax seatsocc
FROM sflight
INTO CORRESPONDING FIELDS OF wa_sflight
WHERE carrid = wa_spfli-carrid AND
connid = wa_spfli-connid.
WRITE: / wa_sflight-fldate,
wa_sflight-seatsmax,
wa_sflight-seatsocc.
ENDSELECT.
ENDIF.
Comments
Post a Comment