使用Field Symbols创建一个简单的动态ALV

主要的知识点就是动态内表的创建和使用。动态ALV的优点的界面显示大量的数据也不会卡顿，因为select抽数时不会一次性全取出，会根据界面显示的多少动态的取出。

程序代码：

1. *"Type-pool............................................................
   
2. TYPE-POOLS : slis.
   
3. DATA:w_dref TYPE REF TO data,          " w_dref reference variable
   
4.      t_line TYPE c LENGTH 20.          " w_line to hold a line
   
5. DATA:t_fcat  TYPE slis_t_fieldcat_alv.
   
6. FIELD-SYMBOLS: <t_itab> TYPE STANDARD TABLE.
   
7. 
   
8. *"Parameters elements..................................................
   
9. PARAMETERS : p_table TYPE tabname OBLIGATORY,       " Table Name
   
10.              p_no    TYPE i .                       " No of Records to be displayed
    
11. 
    
12. START-OF-SELECTION.
    
13.   SELECT SINGLE
    
14.          tabname                       " Table Name
    
15.     FROM dd02l
    
16.     INTO t_line
    
17.    WHERE tabname   EQ p_table
    
18.      AND as4vers   EQ ' '
    
19.      AND as4local  EQ 'A'
    
20.      AND tabclass  NE 'INTTAB'
    
21.      AND tabclass  NE 'APPEND'.
    
22. 
    
23.   IF sy-subrc EQ 0.
    
24.     CREATE DATA w_dref TYPE STANDARD TABLE OF (p_table).
    
25.     ASSIGN w_dref->* TO <t_itab>.
    
26.     IF sy-subrc EQ 0.
    
27.       SELECT *                         " All Fields
    
28.         FROM (p_table)
    
29.         INTO TABLE <t_itab> UP TO p_no ROWS.
    
30. 
    
31.       IF sy-subrc EQ 0.
    
32.         PERFORM fill_catalog.
    
33.         PERFORM display.
    
34.       ELSE.
    
35.         MESSAGE text-002 TYPE 'S'.
    
36.         EXIT.
    
37.       ENDIF.                           " IF sy-subrc EQ 0...
    
38.     ELSE.
    
39.       MESSAGE text-003 TYPE 'S'.
    
40.       EXIT.
    
41.     ENDIF.
    
42.   ELSE.
    
43.     MESSAGE text-003 TYPE 'S'.
    
44.     LEAVE LIST-PROCESSING.
    
45.   ENDIF.                               " IF sy-subrc EQ 0...
    
46. 
    
47. FORM display .
    
48.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    
49.     EXPORTING
    
50.       it_fieldcat   = t_fcat
    
51.     TABLES
    
52.       t_outtab      = <t_itab>
    
53.     EXCEPTIONS
    
54.       program_error = 1
    
55.       OTHERS        = 2.
    
56.   IF sy-subrc <> 0.
    
57.     MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno DISPLAY LIKE 'E'
    
58.             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
59.     EXIT.
    
60.   ENDIF.                               " IF sy-subrc <> 0...
    
61. ENDFORM.                               " DISPLAY
    
62. 
    
63. FORM fill_catalog .
    
64.   CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    
65.     EXPORTING
    
66.       i_program_name         = sy-repid
    
67.       i_structure_name       = p_table
    
68.     CHANGING
    
69.       ct_fieldcat            = t_fcat
    
70.     EXCEPTIONS
    
71.       inconsistent_interface = 1
    
72.       program_error          = 2
    
73.       OTHERS                 = 3.
    
74.   IF sy-subrc <> 0.
    
75.     MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno DISPLAY LIKE 'E'
    
76.             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
77.     EXIT.
    
78.   ENDIF.                               " IF sy-subrc <> 0...
    
79. ENDFORM.                               " FILL_CATALOG

复制代码

执行效果：



扩展阅读：ABAP动态生成内表的三种方法