在输出行加入checkbox

在输出行加入checkbox 

TABLES SPFLI.
DATA: SELA(1) TYPE C,
      NUM1 TYPE I.

START-OF-SELECTION.
SKIP.
*TABLE HEAD
ULINE AT /(95).
WRITE: / SY-VLINE,(15) '航线承运人', SY-VLINE,(15) '航班连接'.
ULINE AT /(95).

*OUTPUT TABLE
SELECT * FROM SPFLI.
WRITE: / SY-VLINE,(15) SPFLI-CARRID,/ SY-VLINE,(15) SPFLI-CONNID .

*隐藏关键字
  HIDE: SPFLI-CARRID,SPFLI-CONNID.
  ULINE AT /(95).

*隐藏选择框,使表格行不会选择
  HIDE:SELA.
ENDSELECT.

*取得行数
END-OF-SELECTION.
  NUM1 = SY-LINNO - 1.

AT LINE-SELECTION.
*只输出第一页
IF SY-LSIND = 1.
  DO NUM1 TIMES.
*读取行
    READ LINE SY-INDEX FIELD VALUE SELA.
*如果CHECKED,输出隐含字段
    IF SELA = 'X'.
      WRITE: / SPFLI-CARRID,SPFLI-CONNID,SPFLI-COUNTRYTO.
    ENDIF.
  ENDDO.
ENDIF.