REUSE_ALV_GRID_DISPLAY_LVC的使用

ABAP代码中用于调用ALV显示的子例程示例代码：

FORM FRM_DIS_ALV .

  PERFORM FRM_SET_FIELDCAT ."设置字段目录（字段）
  PERFORM FRM_GET_LAYOUT.   "设置布局（行，列）

    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
      EXPORTING
        I_CALLBACK_PROGRAM        = SY-REPID
        IS_LAYOUT_LVC             = WA_LAYOUT     "布局变量
        IT_FIELDCAT_LVC           = WA_FIELDCAT[] "字段目录变量
        I_SAVE                    = 'A'
      TABLES
        T_OUTTAB                 = ITAB_ALV[]
      EXCEPTIONS
        PROGRAM_ERROR            = 1
        OTHERS                   = 2.

ENDFORM.

上述代码首先设置字段目录和布局，然后调用REUSE_ALV_GRID_DISPLAY_LVC方法，此方法是SAP提供的标准方法，用来以表格的形式显示内表中的数据。上述代码中EXPORTING和TABLES中的变量，都是输入参数。输入参数包括：布局WA_LAYOUT 、字段目录 WA_FIELDCAT 和内表ITAB_ALV。

执行子例程PERFORM FRM_SET_FIELDCAT ."设置字段目录（字段）
执行子例程PERFORM FRM_GET_LAYOUT. "设置布局（行，列）
下面是设置字段目录FIELDCAT的代码：

FORM FRM_SET_FIELDCAT .

  PERFORM FIELDCAT_FUNC USING 'LIFNR'     TEXT-001 '' '' 'ALPHA' 'X'. "供应商编码
  PERFORM FIELDCAT_FUNC USING 'NAME1'     TEXT-002 '' '' 'ALPHA' 'X'. "供应商名称
  PERFORM FIELDCAT_FUNC USING 'BELNR'     TEXT-003 '' '' 'ALPHA' 'X'. "物料凭证编码
  PERFORM FIELDCAT_FUNC USING 'BWART'     TEXT-004 '' '' 'ALPHA' 'X'. "移动类型
  PERFORM FIELDCAT_FUNC USING 'EBELN'     TEXT-005 '' '' 'ALPHA' 'X'. "采购凭证编码
  PERFORM FIELDCAT_FUNC USING 'EBELP'     TEXT-006 '' '' 'ALPHA' 'X'. "行项目
  PERFORM FIELDCAT_FUNC USING 'WERKS'     TEXT-007 '' '' 'ALPHA' 'X'. "工厂
  PERFORM FIELDCAT_FUNC USING 'MATNR'     TEXT-009 '' '' 'ALPHA' 'X'. "物料号
  PERFORM FIELDCAT_FUNC USING 'TXZ01'     TEXT-010 '' '' 'ALPHA' 'X'. "物料描述

ENDFORM.

FORM FIELDCAT_FUNC  USING          VALUE(LP_FIELDNAME)       "字段名称
                                   VALUE(LP_COLTEXT)         "字段中文含义
                                   VALUE(LP_EDIT)            "
                                   VALUE(LP_CHECKBOX)        "
                                   VALUE(LP_CONVEXIT)        "
                                   VALUE(LP_LZERO).          "
  CLEAR WT_FIELDCAT.
  WA_FIELDCAT-FIELDNAME   = LP_FIELDNAME."字段名
  WA_FIELDCAT-COLTEXT     = LP_COLTEXT.  "字段中文名
  WA_FIELDCAT-EDIT        = LP_EDIT.     "ALV 控制: 准备输入
  WA_FIELDCAT-CHECKBOX    = LP_CHECKBOX. "ALV 控制: 作为复选框输出
  WA_FIELDCAT-CONVEXIT    = LP_CONVEXIT. "转换例程
  WA_FIELDCAT-LZERO       = LP_LZERO.    "ALV 控制: 输出前导零

  APPEND WA_FIELDCAT.

ENDFORM.