用CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' 显示ALV报表

REPORT  zmmr003 .

TYPE-POOLS :slis .
TABLES :mast , mara , stko , makt , afko , afpo , aufk .

DATA :stb  LIKE stpox  OCCURS  0  WITH  HEADER  LINE .

DATA :  BEGIN  OF matcat  OCCURS  0 .
         INCLUDE  STRUCTURE cscmat .
DATA :  END  OF matcat .

DATA :  BEGIN  OF mats .
         INCLUDE  STRUCTURE cscmat .
DATA :  END  OF mats .

DATA :  BEGIN  OF selpool .
         INCLUDE  STRUCTURE cstmat .
DATA : END  OF selpool .

DATA : dstst_flg  LIKE csdata -xfeld .

DATA : layout  TYPE slis_layout_alv ,
      gs_layout  TYPE slis_layout_alv ,
      g_repid  LIKE sy -repid .

DATA : wa_alv_field  TYPE slis_fieldcat_alv ,  "列描述内表，列清单
wa_alv_fieldcat  TYPE slis_t_fieldcat_alv , "定义内表
g_user_command  TYPE slis_formname  VALUE  'USER_COMMAND' .

DATA : BEGIN  OF wa_data ,
  werks  LIKE aufk -werks ,
  aufnr  LIKE afko -aufnr ,
  objnr  LIKE aufk -objnr ,
  plnbez  LIKE afko -plnbez ,
  gamng  LIKE afko -gamng ,
   END  OF wa_data .
DATA : it_data  LIKE wa_data  OCCURS  0  WITH  HEADER  LINE .

DATA : itab  TYPE  TABLE  OF zmmsf003  WITH  HEADER  LINE .
DATA : it_out  TYPE  TABLE  OF zmmsf003  WITH  HEADER  LINE .

DATA :it_objnr  TYPE  TABLE  OF jest  WITH  HEADER  LINE .

DATA : BEGIN  OF wa_batch ,
  werks  TYPE mchb -werks ,
  matnr  TYPE mchb -matnr ,
  lgort  TYPE mchb -lgort ,
  charg  TYPE mchb -charg ,
  clabs  TYPE mchb -clabs ,
   END  OF wa_batch .
DATA : it_batch  LIKE  TABLE  OF wa_batch  WITH  HEADER  LINE .

SELECTION-SCREEN  BEGIN  OF  BLOCK block1  WITH  FRAME  TITLE  text - 001 .
SELECT-OPTIONS : s_werks  FOR aufk -werks .
SELECT-OPTIONS : s_aufnr  FOR afko -aufnr .
SELECT-OPTIONS  :s_matnr  FOR afko -plnbez .
PARAMETERS : s_auart  LIKE aufk -auart .
SELECTION-SCREEN  END  OF  BLOCK block1 .

INITIALIZATION .
  g_repid  = sy -repid .

START-OF-SELECTION .
   PERFORM getdata .
   PERFORM displaydata .
   PERFORM layout_init  CHANGING gs_layout .

   CALL  FUNCTION  'REUSE_ALV_GRID_DISPLAY'  "调用ALV 显示表单数据
   EXPORTING
  i_callback_program  = sy -repid
   "i_callback_top_of_page = 'TOP_OF_PAGE'
  it_fieldcat  = wa_alv_fieldcat
  is_layout  = gs_layout
  i_callback_user_command  = g_user_command
   TABLES