使用HIDE技术从列表中读取行数据
REPORT Z_TEST_MM01 .
TABLES SPFLI.
DATA:MYLINE(1) TYPE C,
NUMBER TYPE I.
START-OF-SELECTION.
SKIP.
ULINE AT /(95).
WRITE:/ SY-VLINE,' ',SY-VLINE,(15) 'A1',sy-vline,(15)'A2',
sy-vline,(15) 'A3',SY-VLINE,(15)'A4',sy-vline,(15)'A5',sy-vline.
ULINE AT /(95).
*输出内容
SELECT * FROM SPFLI.
WRITE:/ SY-VLINE,MYLINE AS CHECKBOX,SY-VLINE,(15)SPFLI-CARRID,SY-VLINE,(15)SPFLI-CONNID,SY-VLINE,(15)SPFLI-COUNTRYTO,SY-VLINE,(15)SPFLI-CITYFROM,SY-VLINE,(15)SPFLI-AIRPFROM,SY-VLINE.
*隐藏keyword
HIDE: SPFLI-CARRID,SPFLI-CONNID,SPFLI-COUNTRYTO,SPFLI-CITYFROM,SPFLI-AIRPFROM.
ULINE AT /(95).
*隐藏选择框
HIDE:MYLINE.
ENDSELECT.
*获得行数
END-OF-SELECTION.
NUMBER = SY-LINNO - 1.
AT LINE-SELECTION.
*只输出第一页
IF sy-lsind = 1.
DO NUMBER TIMES.
READ LINE SY-INDEX FIELD VALUE MYLINE.
*如果是checked, 输出
IF myline = 'X'.
WRITE:/ SPFLI-CARRID,SPFLI-CONNID,SPFLI-COUNTRYTO,SPFLI-CITYFROM,SPFLI-AIRPFROM.
ENDIF.
ENDDO.
ENDIF.