Code: Alles auswählen.
TYPES: BEGIN OF t_flightinfo,
connid TYPE spfli-connid,
carrid TYPE spfli-carrid,
cityfrom TYPE spfli-cityfrom,
cityto TYPE spfli-cityto,
fldate TYPE sflight-fldate,
seatsocc TYPE sflight-seatsocc,
seatsmax TYPE sflight-seatsmax,
END OF t_flightinfo.
DATA: it_flightinfo TYPE STANDARD TABLE OF t_flightinfo,
wa_flightinfo TYPE t_flightinfo,
total_seatsoccs TYPE sflight-seatsocc,
total_seatsmax TYPE sflight-seatsmax.
SELECT-OPTIONS: s_carrid for wa_flightinfo-carrid.
SELECT spfli~connid spfli~carrid spfli~cityfrom spfli~cityto
sflight~fldate sflight~seatsocc sflight~seatsmax INTO CORRESPONDING FIELDS OF TABLE it_flightinfo
FROM sflight LEFT OUTER JOIN spfli ON
( sflight~connid EQ spfli~connid AND sflight~carrid EQ spfli~carrid )
WHERE sflight~seatsocc GE 0 and sflight~carrid in s_carrid.
SORT it_flightinfo by carrid connid.
LOOP AT it_flightinfo INTO wa_flightinfo.
AT NEW carrid.
SUM.
WRITE: / wa_flightinfo-carrid COLOR COL_HEADING.
ENDAT.
FORMAT COLOR COL_NORMAL INTENSIFIED ON.
WRITE: / wa_flightinfo-carrid UNDER wa_flightinfo-carrid,
wa_flightinfo-connid UNDER wa_flightinfo-connid,
wa_flightinfo-fldate UNDER wa_flightinfo-fldate ,
wa_flightinfo-cityfrom UNDER wa_flightinfo-cityfrom,
wa_flightinfo-cityto UNDER wa_flightinfo-cityto,
wa_flightinfo-seatsocc UNDER wa_flightinfo-seatsocc,
wa_flightinfo-seatsmax UNDER wa_flightinfo-seatsmax.
AT END OF carrid.
ENDAT.
ENDLOOP.
ULINE.
ULINE.
free it_flightinfo.
AT NEW field vergleicht nicht nur das angegebene Feld, sondern ebenfalls alle Felder links des angegebenen Feldes.Murdock hat geschrieben:Ich versteh's nicht. Warum tauschen?