选择屏幕

REPORT  ztest_tanp_getdata LINE-SIZE 71.
*数据对象定义
DATA:wa_spfli TYPE spfli,
     it_spfli LIKE STANDARD TABLE OF wa_spfli.

*定义选择屏幕
DATA carrid TYPE spfli-carrid.
*选择屏幕界面
SELECTION-SCREEN BEGIN OF BLOCK basic WITH FRAME TITLE text-001.
SELECT-OPTIONS so_car FOR carrid.
SELECTION-SCREEN END OF BLOCK basic.

SELECTION-SCREEN BEGIN OF BLOCK other WITH FRAME TITLE text-002.
PARAMETERS pa_int TYPE c AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK other.
*将数据从数据库读入内表
IF pa_int = 'X'.
  SELECT * FROM spfli
    INTO TABLE it_spfli
    WHERE carrid IN so_car.
ELSE.
  SELECT * FROM spfli
INTO TABLE it_spfli
WHERE carrid IN so_car
    AND  spfli~countryfr = spfli~countryto.
ENDIF.

*画条横线
ULINE.
FORMAT COLOR COL_HEADING.
WRITE: / sy-vline,AT 2(10) 'Carrid',
         sy-vline,AT 14(10) 'Connid',
         sy-vline,AT 26(10) 'Country From',
         sy-vline,AT 49(10) 'Country To',
         AT 71 sy-vline.
ULINE.
FORMAT RESET.
*从内表把数据读到工作区输出数据
LOOP AT it_spfli INTO wa_spfli.
  WRITE: / sy-vline,AT 2(10) wa_spfli-carrid COLOR COL_KEY,
         sy-vline,AT 14(10) wa_spfli-connid COLOR COL_KEY,
         sy-vline,AT 26(10) wa_spfli-countryfr,
         sy-vline,AT 49(10) wa_spfli-countryto,
         AT 71 sy-vline.
  ULINE.
ENDLOOP.