list report的一般结构

*&---------------------------------------------------------------------*
*& Report ZDDDD *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

REPORT ZDDDD no standard page heading
line-size 100
line-count 8(3)
.


* TABLE ******************** "table declare
TABLES : scarr,spfli.

* Constants************* "define constant
constants: char(30) value 'i am zhongming'.

* TYPES *************** "define type
TYPES : QUAN(15) TYPE P DECIMALS 3. "basic type
types: begin of t_stru, "structure type
carrid like scarr-carrid,
count type quan,
end of t_stru.

* DATA TABLE ********** "internal table
data: begin of it_data occurs 0,
mandt like scarr-mandt,
carrid like scarr-carrid,
carrname like scarr-carrname,
currcode like scarr-currcode,
url like scarr-url,
end of it_data.
data: it_data2 type t_stru occurs 0 with header line.

* DATA ********* "define variable
data: carrid type s_carr_id,
carrname like scarr-carrname.

* PARAMETERS OF SELECT-OPTIONS **** "define input parameters
parameters: p_carrid like scarr-carrid.
select-options: so_id for scarr-carrid.

* PERform INI_SELECTION_SCREEN. "perform before initializing first screen
INITIALIZATION.
p_carrid = 'AA'.

* PERform INI_DATA. "perform before executing start-of-selection
AT SELECTION-SCREEN.
p_carrid = 'DL'.

* PERform PRECESS_DATA. "main program
START-OF-SELECTION.
select * into table it_data
from scarr
* where carrid = p_carrid
.

* PERform PRECESS_END_DAT. "perform after executing start-of-selection
END-OF-SELECTION.
data: count type i,
check(1).
loop at it_data.
write: / check as checkbox,'line no:',it_data-carrid,'line name:',it_data-carrname.
count = count + 1.
endloop.

it_data2-carrid = p_carrid.
it_data2-count = count.

append it_data2. "add-on data to it_data2

new-page. "display in next page(new page)
loop at it_data2.
write: / 'parameter line no:',it_data2-carrid,'line counter is:',it_data2-count.
endloop.


set pf-status '100'.

* PERform PRECESS_LINE_SELECTED. "perform while double click a line
AT LINE-SELECTION.
write / 'at line-selection'.

* PERform PRECESS_USER_COMMAND. "perform while user command
AT USER-COMMAND.
case sy-ucomm.
when 'LIST1'.
write / 'view 0001'.
when 'LIST2'.
write / 'view 0002'.
when 'EXIT'.
leave to screen 0.
endcase.

* PERform PAGE_HEADER. "page top
TOP-OF-PAGE.
format color col_heading intensified on.
write: / 'header and color is col_heading'.
format color col_heading intensified off.

write: /12 'this is top-page of sample report'.
format reset.

* PERform PAGE_FOOT. "page tail
END-OF-PAGE.
write: /10 'this is end-page of sample report'.


注意：
1、列表没有一页以上，看不到END-OF-PAGE显示结果，NEW-PAGE不算
2、status 100,必需创建，且参数与AT USER-COMMAND中对应