根据输入的内容选择数据并以列表的形式输出
REPORT ztest_tanp_getdata LINE-SIZE 98.
DATA wa_sflight TYPE sflight.
DATA it_sflight TYPE TABLE OF sflight.
DATA connid TYPE sflight-connid.
SELECTION-SCREEN BEGIN OF BLOCK basic WITH FRAME TITLE text-001.
PARAMETERS pa_car TYPE sflight-carrid.
SELECT-OPTIONS so_conn FOR connid.
SELECT-OPTIONS so_fld FOR wa_sflight-fldate.
SELECTION-SCREEN END OF BLOCK basic.
SELECT * FROM sflight
INTO TABLE it_sflight
WHERE carrid = pa_car
AND connid IN so_conn
AND fldate IN so_fld.
ULINE.
FORMAT COLOR COL_HEADING.
WRITE: sy-vline,AT 2(10) 'Carrid',
sy-vline,AT 14(10) 'Connid',
sy-vline,AT 26(10) 'Fldate',
sy-vline,AT 38(10) 'Price',
sy-vline,AT 50(10) 'Currency',
sy-vline,AT 62(10) 'Planetype',
sy-vline,AT 74(10) 'Seatsmax',
sy-vline,AT 86(10) 'Seatsocc',
AT 98 sy-vline.
FORMAT RESET.
ULINE.
LOOP AT it_sflight INTO wa_sflight.
WRITE:/ sy-vline,AT 2(10) wa_sflight-carrid COLOR COL_KEY,
sy-vline,AT 14(10) wa_sflight-connid COLOR COL_KEY,
sy-vline,AT 26(10) wa_sflight-fldate,
sy-vline,AT 38(10) wa_sflight-price CURRENCY wa_sflight-currency,
sy-vline,AT 50(10) wa_sflight-currency,
sy-vline,AT 62(10) wa_sflight-planetype,
sy-vline,AT 74(10) wa_sflight-seatsmax,
sy-vline,AT 86(10) wa_sflight-seatsocc,
AT 98 sy-vline.
ULINE.
ENDLOOP.