*&---------------------------------------------------------------------*
*& Function: REUSE_ALV_FIELDCATALOG_MERGE *& ALV 求合
*& 和 function: REUSE_ALV_GRID_DISPLAY 一起使用 *& 精典例子
*& 做为一个方法使用,设置ALV的Fieldcatlog.
*& 和delphi 里的dxdbgrid 的功能一样。对小类相加计算,
*& 对所有的数量求和.
*& 对ALV中的某一列进行分类的完成测试程序。
*&---------------------------------------------------------------------*
DATA:BEGIN OF it1 OCCURS 5,
matnr LIKE mara-matnr,
psmng LIKE afpo-psmng,
END OF it1 .
TYPE-POOLS: slis.
DATA: l_events TYPE slis_t_event,
gt_list_top_of_page TYPE slis_t_listheader,
gs_layout TYPE slis_layout_alv,
fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
eventcat TYPE slis_t_event WITH HEADER LINE,
it_sort TYPE slis_t_sortinfo_alv WITH HEADER LINE,
prg LIKE sy-repid.
DATA: l_variant TYPE TABLE OF disvariant WITH HEADER LINE,
START-OF-SELECTION.
CLEAR it1.
it1-matnr = 'AA'.
it1-psmng = 10.
APPEND it1.
CLEAR it1.
it1-matnr = 'AA'.
it1-psmng = 20.
APPEND it1.
CLEAR it1.
it1-matnr = 'BB'.
it1-psmng = 30.
APPEND it1.
CLEAR it1.
it1-matnr = 'BB'.
it1-psmng = 40.
APPEND it1.
CLEAR it1.
it1-matnr = 'BB'.
it1-psmng = 50.
APPEND it1.