最近在项目上不断的写报表，自己总结一套模板、框架，下载下来，然后每次新建报表上传，再实现一些方法，减少了一些不必要的重复体力劳动。
如何使用：
实现GET_DATA，完成取数逻辑；
在INIT_FIELDCAT中定义了一个宏SET_FIELDCAT，用于设置表头，接受两个参数，第一个为字段名，第二个为表头显示的名字；
需要自建一个名为Z_ALV_STATUS的GUI STATUS。
*&---------------------------------------------------------------------*
*& Report ZALV_TEMPLATE
*&
*&---------------------------------------------------------------------*
*程序名称：
*程序名：
*开发日期：
*创建者：
*申请者：
*----------------------------------------------------------------------*
*变更记录
*
*----------------------------------------------------------------------*
REPORT ZALV_TEMPLATE MESSAGE-ID ZCOMM.
TYPE-POOLS:SLIS.
TYPES:BEGIN OF TY_TAB,
FIELDS TYPE C, "显示字段
END OF TY_TAB.
DATA:IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
G_LAYOUT TYPE SLIS_LAYOUT_ALV,
G_REPID LIKE SY-REPID VALUE SY-REPID.
DATA:IT_ITAB TYPE STANDARD TABLE OF TY_TAB.
SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN END OF BLOCK BLK.
INITIALIZATION.
START-OF-SELECTION.
PERFORM GET_DATA.
IF IT_ITAB IS INITIAL.
MESSAGE S000 DISPLAY LIKE 'E'.
ELSE.
PERFORM INIT_FIELDCAT.
PERFORM INIT_LAYOUT.
PERFORM OUTPUT.
ENDIF.
*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
* 获取数据
*----------------------------------------------------------------------*
FORM GET_DATA.
ENDFORM. "GET_DATA
*&---------------------------------------------------------------------*
*& Form INIT_FIELDCAT
*&---------------------------------------------------------------------*
* 初始化表头
*----------------------------------------------------------------------*
FORM INIT_FIELDCAT.
DATA:LW_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DEFINE SET_FIELDCAT.
CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = &1.
LW_FIELDCAT-SELTEXT_S = &2.
LW_FIELDCAT-SELTEXT_M = LW_FIELDCAT-SELTEXT_S.
LW_FIELDCAT-SELTEXT_L = LW_FIELDCAT-SELTEXT_S.
APPEND LW_FIELDCAT TO IT_FIELDCAT.
END-OF-DEFINITION.
ENDFORM. "INIT_FIELDCAT
*&---------------------------------------------------------------------*
*& Form INIT_LAYOUT
*&---------------------------------------------------------------------*
* 初始化布局
*----------------------------------------------------------------------*
FORM INIT_LAYOUT.
G_LAYOUT-DETAIL_POPUP = 'X'. "双击弹出明细窗口
G_LAYOUT-F2CODE = '&ETA'.
G_LAYOUT-ZEBRA = 'X'. "斑马线
ENDFORM. "INIT_LAYOUT
*&---------------------------------------------------------------------*
*& Form OUTPUT
*&---------------------------------------------------------------------*
* 输出ALV
*----------------------------------------------------------------------*
FORM OUTPUT.
G_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = G_REPID
IS_LAYOUT = G_LAYOUT
IT_FIELDCAT = IT_FIELDCAT[]
I_SAVE = 'A'
I_CALLBACK_PF_STATUS_SET = 'PF_STATUS_SET'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
TABLES
T_OUTTAB = IT_ITAB
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.
ENDFORM. "OUTPUT
*&---------------------------------------------------------------------*
*& Form PF_STATUS_SET
*&---------------------------------------------------------------------*
* 设置GUI Status
*----------------------------------------------------------------------*
* -->TR_EXTAB text
*----------------------------------------------------------------------*
FORM PF_STATUS_SET USING TR_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'Z_ALV_STATUS'.
ENDFORM. "PF_STATUS_SET
*&---------------------------------------------------------------------*
*& Form USER_COMMAND
*&---------------------------------------------------------------------*
* 接受用户操作和命令
*----------------------------------------------------------------------*
* -->UCOMM text
* -->SELFIELD text
*----------------------------------------------------------------------*
FORM USER_COMMAND USING UCOMM LIKE SY-UCOMM SELFIELD TYPE SLIS_SELFIELD.
ENDFORM. "USER_COMMAND