1 REPORT Y_OOALV_TEST.
2 TYPE-POOLS:SLIS.
3 PARAMETERS:P_COUNT TYPE I.
4
5 CLASS GET_SPFLI DEFINITION. "理解为基础类
6 PUBLIC SECTION.
7 METHODS:GET_DATA IMPORTING AMOUNT TYPE I. "传入参数
8 EVENTS:DATA_EXIST EXPORTING VALUE(DATA) TYPE ANY." 传出参数 参照类型是自己想的 后面找到对的再改
9 PRIVATE SECTION.
10 DATA:IT_SPFLI TYPE STANDARD TABLE OF SPFLI,
11 WA_SPFLI TYPE SPFLI.
12 ENDCLASS.
13
14 CLASS SET_HANDLER DEFINITION."理解为事件类
15 PUBLIC SECTION.
16 METHODS:HANDLER_RAISED FOR EVENT DATA_EXIST OF GET_SPFLI IMPORTING DATA. "理解为为某个类的事件而产生的方法，相当于将2个类关联起来
17 PRIVATE SECTION.
18 ENDCLASS.
19
20 CLASS GET_SPFLI IMPLEMENTATION. "基础类的实现
21 METHOD:GET_DATA.
22 SELECT * FROM SPFLI INTO CORRESPONDING FIELDS OF TABLE IT_SPFLI UP TO AMOUNT ROWS. "根据传入参数取数
23 IF SY-SUBRC = 0.
24 RAISE EVENT DATA_EXIST EXPORTING DATA = IT_SPFLI. "取数成功，则执行事件
25 ELSE.
26 WRITE '取数失败'.
27 ENDIF.
28 ENDMETHOD.
29 ENDCLASS.
30
31 CLASS SET_HANDLER IMPLEMENTATION.
32 METHOD:HANDLER_RAISED."事件方法
33 CL_DEMO_OUTPUT=>DISPLAY( DATA ).
34 ENDMETHOD.
35 ENDCLASS.
36
37 START-OF-SELECTION.
38 DATA:DISPLAY_DATA TYPE REF TO GET_SPFLI.
39 DATA:HANDLE TYPE REF TO SET_HANDLER.
40 CREATE OBJECT:DISPLAY_DATA,HANDLE.
41 SET HANDLER HANDLE->HANDLER_RAISED FOR ALL INSTANCES."事件注册 ，必须要有
42 DISPLAY_DATA->GET_DATA( P_COUNT )."执行方法
