sapabapalv.txt

在SAP ABAP 开发环境中

Report ZHELLO.

Tables: MARA.

*在这里定义一个用于显示的内部表
data: begin of itab occurs 10,
        MATNR like MARA-MATNR,
        MTART LIKE MARA-MTART,
        MEINS LIKE MARA-MEINS,
      end of itab.

*
type-pools: slis.

*定义一个显示的内表的一行
DATA: L_ALV_FILED  TYPE SLIS_FIELDCAT_ALV.

*定义显示的一列的框架
DATA: L_ALV_FILEDCAT  TYPE SLIS_T_FIELDCAT_ALV.
CLEAR L_ALV_FILED.

*定义第一列的属性
*定义显示位置,显示的字段.在下面传递内表中的名字一样的值
*显示标题名字
L_ALV_FILED-COL_POS = 1.
L_ALV_FILED-FIELDNAME = 'MATNR'.
L_ALV_FILED-seltext_M = '第一列'.
APPEND L_ALV_FILED TO L_ALV_FILEDCAT.

L_ALV_FILED-COL_POS = 2.
L_ALV_FILED-FIELDNAME = 'MTART'.
L_ALV_FILED-seltext_M = '第二列'.
APPEND L_ALV_FILED TO L_ALV_FILEDCAT.

L_ALV_FILED-COL_POS = 3.
L_ALV_FILED-FIELDNAME = 'MEINS'.
L_ALV_FILED-seltext_M = '第三列'.
APPEND L_ALV_FILED TO L_ALV_FILEDCAT.


*输出画面
SELECT-OPTIONS: P_MATNR FOR MARA-MATNR.


*查询以下三个字段的数据,然后放入这个内表
SELECT MATNR
       MTART
       MEINS
  INTO CORRESPONDING FIELDS OF TABLE ITAB
  FROM MARA
 WHERE MATNR IN P_MATNR.

 APPEND ITAB.

*然后调用以下的这个函数.然后
* 把定义的显示框架和数据内表传递过去.
*   * REUSE_ALV_LIST_DISPLAY
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
       IT_FIELDCAT = L_ALV_FILEDCAT
    Tables
       t_outtab = ITAB.