MESSAGE 'DELETE DATA ERROR!' TYPE 'I'. EXIT. ELSE.
MESSAGE 'UPDATE DATE IS SUCCESS!' TYPE 'S'. ENDIF.
WHEN 'GETDATA'.
GET CURSOR LINE LINEA.
LINEA = TABL1-TOP_LINE + LINEA - 1.
READ TABLE LT_SPFLI INTO LS_SPFLI INDEX LINEA.
CONCATENATE LS_SPFLI-CARRID LS_SPFLI-CONNID INTO T_MES SEPARATED BY SPACE.
MESSAGE T_MES TYPE 'S'. WHEN 'DELDATA'.
GET CURSOR LINE LINEA.
LINEA = TABL1-TOP_LINE + LINEA - 1.
READ TABLE LT_SPFLI INTO LS_SPFLI INDEX LINEA. APPEND LS_SPFLI TO LT_DSPFLI. DELETE LT_SPFLI INDEX LINEA. ENDCASE.
ENDMODULE. \ 简单ALV实例
测试程序：ZLITEST_015.源代码如下：
*&---------------------------------------------------------------------*
*& Report ZLITEST_015 *&
*&---------------------------------------------------------------------* *& *&
*&---------------------------------------------------------------------*
REPORT ZLITEST_015.
DATA: WA_SPFLI LIKE TABLE OF SPFLI WITH HEADER LINE.
SELECT * FROM SPFLI INTO TABLE WA_SPFLI.
*CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY' * EXPORTING
** I_INTERFACE_CHECK = ' ' ** I_BYPASSING_BUFFER = ** I_BUFFER_ACTIVE = ' '
** I_CALLBACK_PROGRAM = ' ' ** I_CALLBACK_PF_STATUS_SET = ' ' ** I_CALLBACK_USER_COMMAND = ' ' * I_STRUCTURE_NAME = 'SPFLI' ** IS_LAYOUT = ** IT_FIELDCAT = ** IT_EXCLUDING = ** IT_SPECIAL_GROUPS = ** IT_SORT = ** IT_FILTER = ** IS_SEL_HIDE = ** I_DEFAULT = 'X' ** I_SAVE = ' ' ** IS_VARIANT = ** IT_EVENTS = ** IT_EVENT_EXIT = ** IS_PRINT = ** IS_REPREP_ID = ** I_SCREEN_START_COLUMN = 0 ** I_SCREEN_START_LINE = 0 ** I_SCREEN_END_COLUMN = 0 ** I_SCREEN_END_LINE = 0 ** IR_SALV_LIST_ADAPTER = ** IT_EXCEPT_QINFO =
** I_SUPPRESS_EMPTY_DATA = ABAP_FALSE ** IMPORTING
** E_EXIT_CAUSED_BY_CALLER = ** ES_EXIT_CAUSED_BY_USER = * TABLES
* T_OUTTAB = WA_SPFLI ** EXCEPTIONS
** PROGRAM_ERROR = 1 ** OTHERS = 2 * . *IF SY-SUBRC <> 0.
** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO ** WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. *ENDIF.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING
* I_INTERFACE_CHECK = ' ' * I_BYPASSING_BUFFER = ' ' * I_BUFFER_ACTIVE = ' '
* I_CALLBACK_PROGRAM = ' ' * I_CALLBACK_PF_STATUS_SET = ' ' * I_CALLBACK_USER_COMMAND = ' ' * I_CALLBACK_TOP_OF_PAGE = ' ' * I_CALLBACK_HTML_TOP_OF_PAGE = ' ' * I_CALLBACK_HTML_END_OF_LIST = ' ' I_STRUCTURE_NAME = 'ZSPFLI' * I_BACKGROUND_ID = ' ' * I_GRID_TITLE = * I_GRID_SETTINGS =* IS_LAYOUT =* IT_FIELDCAT =* IT_EXCLUDING =* IT_SPECIAL_GROUPS =* IT_SORT =* IT_FILTER =* IS_SEL_HIDE =* I_DEFAULT = 'X'* I_SAVE = ' '* IS_VARIANT =* IT_EVENTS =* IT_EVENT_EXIT =* IS_PRINT =* IS_REPREP_ID =* I_SCREEN_START_COLUMN = 0* I_SCREEN_START_LINE = 0* I_SCREEN_END_COLUMN = 0* I_SCREEN_END_LINE = 0* I_HTML_HEIGHT_TOP = 0* I_HTML_HEIGHT_END = 0* IT_ALV_GRAPHICS =* IT_HYPERLINK =* IT_ADD_FIELDCAT =* IT_EXCEPT_QINFO =* IR_SALV_FULLSCREEN_ADAPTER =* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =* ES_EXIT_CAUSED_BY_USER = TABLES
T_OUTTAB = WA_SPFLI * EXCEPTIONS
* PROGRAM_ERROR = 1* OTHERS = 2 .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.
屏幕上建立ALV控件
测试程序：ZLITEST_017.源代码如下：
*&---------------------------------------------------------------------*
*& Report ZLITEST_017 *&
*&---------------------------------------------------------------------* *& *&
*&---------------------------------------------------------------------*
REPORT ZLITEST_017.
DATA:OK_CODE TYPE SY-UCOMM. DATA:SAVE_OK TYPE SY-UCOMM.
DATA:LT_SPFLI LIKE TABLE OF SPFLI. DATA:LS_SPFLI LIKE SPFLI.
DATA:CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER. DATA:ALV_GRID TYPE REF TO CL_GUI_ALV_GRID.
SELECT * FROM SPFLI INTO TABLE LT_SPFLI. CALL SCREEN 100.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT. SET PF-STATUS 'STATUS1'. * SET TITLEBAR 'xxx'. IF CONTAINER IS INITIAL. CREATE OBJECT CONTAINER EXPORTING
* PARENT = CONTAINER_NAME = 'P1'
* STYLE =
* LIFETIME = LIFETIME_DEFAULT * REPID = * DYNNR = * NO_AUTODEF_PROGID_DYNNR = * EXCEPTIONS
* CNTL_ERROR = 1 * CNTL_SYSTEM_ERROR = 2 * CREATE_ERROR = 3 * LIFETIME_ERROR = 4 * LIFETIME_DYNPRO_DYNPRO_LINK = 5 * OTHERS = 6 .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.
CREATE OBJECT ALV_GRID EXPORTING
* I_SHELLSTYLE = 0 * I_LIFETIME =
I_PARENT = CONTAINER * I_APPL_EVENTS = SPACE * I_PARENTDBG = * I_APPLOGPARENT = * I_GRAPHICSPARENT = * I_NAME = * I_FCAT_COMPLETE = SPACE * EXCEPTIONS
* ERROR_CNTL_CREATE = 1 * ERROR_CNTL_INIT = 2 * ERROR_CNTL_LINK = 3 * ERROR_DP_CREATE = 4 * OTHERS = 5 .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.
CALL METHOD ALV_GRID->SET_TABLE_FOR_FIRST_DISPLAY EXPORTING
* I_BUFFER_ACTIVE = * I_BYPASSING_BUFFER = * I_CONSISTENCY_CHECK =