report for using event of report

*&---------------------------------------------------------------------*
*& Report ZTR_DEMO_REPORT9 *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

REPORT ZTR_DEMO_REPORT9 NO STANDARD PAGE HEADING LINE-SIZE
100 LINE-COUNT 7(3).
.

TABLES : YEMP , YSAL .


INITIALIZATION .

types : begin of st_emp ,

EMP_NO type yemp-emp_no,
EMP_NAME type yemp-emp_name ,
CITY type yemp-city ,


end of st_emp .

data : wa_emp type st_emp .

data : it_emp like standard table of wa_emp .

SELECT-OPTIONS : S_EMP_NO FOR YEMP-EMP_NO.

BREAK-POINT.

AT SELECTION-SCREEN.

IF S_EMP_NO-LOW IS INITIAL OR S_EMP_NO-HIGH IS INITIAL.
MESSAGE W001(ZMSG).
ENDIF.

start-of-selection .

select * from yemp into table it_emp .

end-of-selection .

loop at it_emp into wa_emp .

write:/5 wa_emp-emp_no ,
30 wa_emp-emp_name,
70 wa_emp-city.

endloop.


TOP-OF-PAGE .

write :/5 'TOP OF PAGE '.


END-OF-PAGE.

skip 2 .

write :/5 'END OF PAGE '.