根据输入的内容选择数据并以列表的形式输出

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.

posted @ 2017-08-26 10:19  独吊东南枝  阅读(416)  评论(0编辑  收藏  举报