REUSE_ALV_FIELDCATALOG_MERGE函数用法

ALV的调用主要由以下几个标准函数实现,所有函数的输入输出参数必须大写，否则系统会出现异常中止

REUSE_ALV_FIENDCATALOG_MERGE：根据内表结构返回FIELDCAT字段结构信息，其常用输入输出参数如下：
EXPORTING项：
      1.I_PROGRAM_NAME：程序名称。
      2.I_INTERNAL_TABNAME：内表名称，必须为输出内表所自定义的STRUCTURE名。
      3.I_STRUCTURE_NAME：直接参考数据字典中所定义的透明表名或STRUCTURE名。
      函数定义时I_INTERNAL_TABNAME或I_STRUCTURE_NAME参数只需一项。
CHANGING项：
　  CT_FIELDCAT：导出FIELDCAT内表数据。

注意：REUSE_ALV_FIENDCATALOG_MERGE函数不能与REUSE_ALV_GRID_DISPLAY_LVC连用，因为IT_FIELDCAT的类型不一样，能与REUSE_ALV_GRID_DISPLAY连用

最终运行结果如下：


主程序代码：

1. REPORT  ZDEMON_015.
   
2. *ALV START
   
3. TYPE-POOLS:SLIS. "调用该类型池
   
4. 
   
5. *定义FIELDCAT与LAYOUT
   
6. DATA:FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
   
7.       LAYOUT TYPE SLIS_LAYOUT_ALV,
   
8.       W_REPID LIKE SY-REPID.
   
9. 
   
10. TABLES:SPFLI.
    
11. DATA:LSPFLI LIKE STANDARD TABLE OF SPFLI WITH HEADER LINE.
    
12. 
    
13. *屏幕开始事件
    
14. START-OF-SELECTION.
    
15.   PERFORM GETDATA.
    
16.   PERFORM CATALOG.
    
17.   PERFORM ALVSHOW.
    
18. 
    
19. 
    
20. *The Function Of GETDATA
    
21. FORM GETDATA.
    
22.   SELECT * FROM SPFLI INTO CORRESPONDING FIELDS OF TABLE LSPFLI.
    
23. ENDFORM.                    "GETDATA
    
24. 
    
25. 
    
26. *FORM CATALOG 根据结构体获取FIELDCAT
    
27. FORM CATALOG.
    
28.   W_REPID = SY-REPID.
    
29.   CLEAR FIELDCAT.
    
30.   CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    
31.     EXPORTING
    
32.       I_PROGRAM_NAME         = W_REPID
    
33. *I_INTERNAL_TABNAME           =
    
34.       I_STRUCTURE_NAME       = 'SPFLI'
    
35. *I_CLIENT_NEVER_DISPLAY       = 'X'
    
36. *I_INCLNAME                   =
    
37. *I_BYPASSING_BUFFER           =
    
38. *I_BUFFER_ACTIVE              =
    
39.     CHANGING
    
40.       CT_FIELDCAT            = FIELDCAT[] "导出FIELDCAT内表数据
    
41.     EXCEPTIONS
    
42.       INCONSISTENT_INTERFACE = 1
    
43.       PROGRAM_ERROR          = 2
    
44.       OTHERS                 = 3.
    
45.   IF SY-SUBRC <> 0.
    
46.     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    
47.       WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    
48.   ENDIF.
    
49. 
    
50.   "对fieldcat属性的修改
    
51. *READ TABLE fieldCat INDEX 2. "将第二列设为热点显示
    
52. *fieldCat-HOTSPOT = 'X'.
    
53. *MODIFY fieldCat INDEX 2.
    
54. *
    
55. *READ TABLE fieldCat INDEX 4. "将第四列设为KEY值字段
    
56. *fieldCat-KEY = 'X'.
    
57. *MODIFY fieldCat INDEX 4.
    
58. *
    
59. *READ TABLE fieldCat INDEX 5. "将第五列设为CHECKBOX
    
60. *fieldCat-CHECKBOX = 'X'.
    
61. *MODIFY fieldCat INDEX 5.
    
62.   LAYOUT-COLWIDTH_OPTIMIZE = 'X'. "设置LAYOUT输出格式最优化
    
63. ENDFORM.                    "CATALOG
    
64. 
    
65. 
    
66. 
    
67. *The Function Of Show ALV
    
68. FORM ALVSHOW.
    
69.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    
70.     EXPORTING
    
71.       I_CALLBACK_PROGRAM = W_REPID
    
72.       I_GRID_TITLE       = 'ALV REPORT TEST'"ALV显示标题
    
73.       IS_LAYOUT          = LAYOUT
    
74.       IT_FIELDCAT        = FIELDCAT[]
    
75.     TABLES
    
76.       T_OUTTAB           = LSPFLI
    
77.     EXCEPTIONS
    
78.       PROGRAM_ERROR      = 1
    
79.       OTHERS             = 2.
    
80.   IF SY-SUBRC <> 0.
    
81.     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    
82.        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    
83.   ENDIF.
    
84. ENDFORM.                    "ALVSHOW

复制代码

错误排查：
　　有的时候写好代码调用 REUSE_ALV_FIELDCATALOG_MERGE 时会莫名的出错提示为 READ_REPORT_LINE_TOO_LONG 下面列出的错误信息有这么一句.
　　The internal table "/FUNCTION=K_KKB_FIELDCAT_MERGE/DATA=L_ABAP_SOURCE[]" is 72
     characters wide. The program line is 99 characters wide.
   该FM会把整个程序代码拷贝至其内表中，如果程序的行超过72个字符，即报如上错误。可以做以下设置。