screen
REPORT zflight_screen.
tables: sdyn_conn.
DATA: wa_spfli TYPE spfli.
START-OF-SELECTION.
SELECT carrid connid airpfrom cityfrom airpto cityto
FROM spfli
INTO CORRESPONDING FIELDS OF wa_spfli.
WRITE:/ wa_spfli-carrid COLOR COL_KEY,
wa_spfli-connid COLOR COL_KEY,
wa_spfli-airpfrom,
wa_spfli-cityfrom ,
wa_spfli-airpto ,
wa_spfli-cityto.
HIDE: wa_spfli-carrid, wa_spfli-connid.
ENDSELECT.
at LINE-SELECTION.
select single *
from spfli
into wa_spfli
where carrid = wa_spfli-carrid AND
connid = wa_spfli-connid.
MOVE-CORRESPONDING wa_spfli to sdyn_conn.
call SCREEN 100.
Comments
Post a Comment