sap alv开发模板

*&---------------------------------------------------------------------*
*& Report 程序名
*&---------------------------------------------------------------------*
*& 作  者：
*& 日  期：
*& 设计人：
*& 目  的：
*&---------------------------------------------------------------------*
*& 更新日志：
*&
*&---------------------------------------------------------------------*

REPORT 程序名.

TABLES : 取数据用到的表 .
INCLUDE 取数据用到的程序 .

DATA: gt_fieldcat      TYPE TABLE OF slis_fieldcat_alv,
      gs_fieldcat      TYPE          slis_fieldcat_alv,
      gs_layout        TYPE          slis_layout_alv,
      gs_print         TYPE          slis_print_alv,
      g_repid          LIKE          sy-repid,
      gt_sort          TYPE TABLE OF slis_sortinfo_alv,
      gs_sort          TYPE          slis_sortinfo_alv,
      gt_list_comments TYPE          slis_t_listheader,
      ga_list_comments LIKE LINE OF  gt_list_comments.
FIELD-SYMBOLS:<g_fieldcat> TYPE          slis_fieldcat_alv .

*----------------------------------------------------------------------*
*  define internal tables
*  定义内表以及工作区
*
*----------------------------------------------------------------------*

DATA:it_tab LIKE TABLE OF zwm040_alv,
     wa_tab LIKE zwm040_alv.


*----------------------------------------------------------------------*
*  定义选择屏幕
*
*----------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-001 .
SELECT-OPTIONS:s_werks  FOR mseg-werks ,
               s_matnr FOR mseg-matnr  .
SELECTION-SCREEN END OF BLOCK blk1 .

INITIALIZATION.

AT SELECTION-SCREEN .

AT SELECTION-SCREEN OUTPUT .


*----------------------------------------------------------------------*
*  start-of-selection
*  执行屏幕
*
*----------------------------------------------------------------------*

START-OF-SELECTION .

  PERFORM frm_get_data .

END-OF-SELECTION .
  PERFORM frm_alv_display .

FORM frm_alv_display .

ENDFORM.


FORM frm_get_data .

ENDFORM .


*----------------------------------------------------------------------*
*  gui
*
*----------------------------------------------------------------------*

FORM pf_status_set USING extab TYPE slis_t_extab .
  SET PF-STATUS 'STANDARD'.
ENDFORM .