ABAP 超初级的ALV使用

REPORT YALVTEST .

DATA WA_SPFLI LIKE TABLE OF SPFLI WITH HEADER LINE.

SELECT * INTO  TABLE WA_SPFLI FROM SPFLI.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING

   I_STRUCTURE_NAME               = 'SPFLI'

  TABLES
    t_outtab                       = WA_SPFLI.
.

 

*****************************************************************

REPORT YALVTEST2 .

*ALV使用到的类库
TYPE-POOLS: SLIS.
*列描述
DATA: WA_ALV_FIELD TYPE SLIS_FIELDCAT_ALV.
*列描述内表,列清单
DATA: WA_ALV_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA: WA_SPFLI LIKE TABLE OF SPFLI WITH HEADER LINE.

SELECT * INTO TABLE WA_SPFLI FROM SPFLI.

*自定义显示字段
WA_ALV_FIELD-COL_POS = 1.
WA_ALV_FIELD-FIELDNAME = 'CARRID'.
WA_ALV_FIELD-SELTEXT_M = 'TEST'.
APPEND WA_ALV_FIELD TO WA_ALV_FIELDCAT.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
  EXPORTING
    IT_FIELDCAT                    = WA_ALV_FIELDCAT

  TABLES
    t_outtab                       = WA_SPFLI
.