REUSE_ALV_FIELDCATALOG_MERGE 的自动获取ALV fieldcat

1、可以使用str获取结构

2、可以使用透明表获取结构。

REPORT TEST_01.
TYPE-POOLS:SLIS. "调用该类型池
TABLES:SPFLI.
*定义FIELDCAT与LAYOUT
DATA:FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
     LAYOUT   TYPE SLIS_LAYOUT_ALV,
     W_REPID  LIKE SY-REPID.
DATA:FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
DATA:FIELDCAT2 TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
DATA:FIELDCAT3 TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.


DATA:BEGIN OF WA_DATA ,"自定义结构
       A(10) TYPE C,
       B(10) TYPE C,
       C(10) TYPE C,
       D(10) TYPE C,
     END OF WA_DATA.

DATA:BEGIN OF WA_DATA1 ,  "系统字段加自定义字段
       MATNR LIKE MARA-MATNR,
       MAKTX LIKE MAKT-MAKTX,
       C(10) TYPE C,
       D(10) TYPE C,
     END OF WA_DATA1.


DATA:GSPFLI TYPE SPFLI ."参照透明表的结构
DATA:GTSPFLI LIKE TABLE OF GSPFLI.

DATA:BEGIN OF TEST."各种混搭
    INCLUDE STRUCTURE WA_DATA.
    INCLUDE STRUCTURE GSPFLI.
DATA: E(10) TYPE C,
      END OF TEST.



*屏幕开始事件
START-OF-SELECTION.
  PERFORM GETDATA.
  PERFORM CATALOG.
  BREAK-POINT.

*The Function Of GETDATA
FORM GETDATA.
  SELECT * FROM SPFLI INTO CORRESPONDING FIELDS OF TABLE GTSPFLI.
ENDFORM.

*FORM CATALOG 根据结构体获取FIELDCAT
FORM CATALOG.
  W_REPID = SY-REPID.

  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      I_PROGRAM_NAME         = W_REPID
      I_INTERNAL_TABNAME     = 'WA_DATA'   "对于自定义结构使用这个参数并且大写
*     I_STRUCTURE_NAME       =
*     I_CLIENT_NEVER_DISPLAY = 'X'
      I_INCLNAME             = W_REPID
*     I_BYPASSING_BUFFER     =
*     I_BUFFER_ACTIVE        =
    CHANGING
      CT_FIELDCAT            = FIELDCAT[]
    EXCEPTIONS
      INCONSISTENT_INTERFACE = 1
      PROGRAM_ERROR          = 2
      OTHERS                 = 3.
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.

  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      I_PROGRAM_NAME         = W_REPID
      I_INTERNAL_TABNAME     = 'WA_DATA1'   "对于自定义结构使用这个参数并且大写
*     I_STRUCTURE_NAME       =
*     I_CLIENT_NEVER_DISPLAY = 'X'
      I_INCLNAME             = W_REPID
*     I_BYPASSING_BUFFER     =
*     I_BUFFER_ACTIVE        =
    CHANGING
      CT_FIELDCAT            = FIELDCAT1[]
    EXCEPTIONS
      INCONSISTENT_INTERFACE = 1
      PROGRAM_ERROR          = 2
      OTHERS                 = 3.
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.

  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      I_PROGRAM_NAME         = SY-REPID
*     I_INTERNAL_TABNAME     =
      I_STRUCTURE_NAME       = 'SPFLI' "对于参考透明表的结构使用这个参数并且大写
*     I_CLIENT_NEVER_DISPLAY = 'X'
*     I_INCLNAME             =
*     I_BYPASSING_BUFFER     =
*     I_BUFFER_ACTIVE        =
    CHANGING
      CT_FIELDCAT            = FIELDCAT2[]
    EXCEPTIONS
      INCONSISTENT_INTERFACE = 1
      PROGRAM_ERROR          = 2
      OTHERS                 = 3.
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      I_PROGRAM_NAME         = W_REPID
      I_INTERNAL_TABNAME     = 'TEST'   "对于自定义结构使用这个参数并且大写
*     I_STRUCTURE_NAME       =
*     I_CLIENT_NEVER_DISPLAY = 'X'
      I_INCLNAME             = W_REPID
*     I_BYPASSING_BUFFER     =
*     I_BUFFER_ACTIVE        =
    CHANGING
      CT_FIELDCAT            = FIELDCAT3[]
    EXCEPTIONS
      INCONSISTENT_INTERFACE = 1
      PROGRAM_ERROR          = 2
      OTHERS                 = 3.
  IF SY-SUBRC <> 0.
* Implement suitable error handling here
  ENDIF.
ENDFORM.