SAP ALV程序模板：数据处理与显示

REPORT y061.

*----------------------------------------------------------------------*
*                  标 准 T Y P E S  P O O L S 引 入 块                 *
*----------------------------------------------------------------------*
*引入标准type pool
TYPE-POOLS:slis.
*----------------------------------------------------------------------*
*  TABLES                                                              *
*----------------------------------------------------------------------*
TABLES: mara,sscrfields.
*----------------------------------------------------------------------*
*                  T Y P E S - 输 出 结 构 定 义                       *
*----------------------------------------------------------------------*

TYPES:BEGIN OF ty_data,
        box   TYPE char1,
        matnr TYPE matnr,
      END OF ty_data.

*----------------------------------------------------------------------*
*  DATA                                                                *
*----------------------------------------------------------------------*

DATA:it_data TYPE TABLE OF ty_data,
     wa_data TYPE ty_data,
     functxt TYPE smp_dyntxt.

*----------------------------------------------------------------------*
*                  ALV定义                                             *

*----------------------------------------------------------------------*
DATA:it_fieldcat TYPE lvc_t_fcat,
     wa_fieldcat LIKE LINE OF it_fieldcat,
     it_layout   TYPE TABLE OF lvc_s_layo,
     wa_layout   TYPE lvc_s_layo,
     it_events   TYPE slis_t_event,
     wa_events   LIKE LINE OF it_events.
DATA: i_grid_settings TYPE lvc_s_glay.
i_grid_settings-edt_cll_cb = 'X'.
*----------------------------------------------------------------------*
*                  定义宏                                              *
*----------------------------------------------------------------------*
DEFINE init_fieldcat.
  CLEAR wa_fieldcat.
  wa_fieldcat-fieldname = &1.
  wa_fieldcat-coltext = &2.
  wa_fieldcat-ref_table = &3.
  wa_fieldcat-ref_field = &4.
*  wa_fieldcat-no_zero = &5.
*  wa_fieldcat-emphasize = &6.
*  wa_fieldcat-edit = &7.
  APPEND wa_fieldcat TO it_fieldcat.
END-OF-DEFINITION.
*----------------------------------------------------------------------*
*                  选 择 屏 幕 定 义 块
*----------------------------------------------------------------------*
"工具条按钮 最多为5个.
SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN BEGIN OF BLOCK text WITH FRAME TITLE text-001.
PARAMETERS: p_x1 RADIOBUTTON GROUP gp1 DEFAULT 'X',