动态内表的实现

REPORT ZRAB_QJ_0050 .

TYPE-POOLS: slis.ITPUB个人空间|K?&w2[.p
DATA: it_fcat TYPE slis_t_fieldcat_alv,
e3LP8U3I(HC X^0      is_fcat LIKE LINE OF it_fcat.

DATA: it_fieldcat TYPE lvc_t_fcat,
q?h`'et0ZM0]0      is_fieldcat LIKE LINE OF it_fieldcat.

DATA: g_repid LIKE sy-repid,
a4u&i"UNGb0      g_lin TYPE i.
^7k6lUrxBy`~0DATA: new_table TYPE REF TO data.ITPUB个人空间:~y#cW2^5`
DATA: new_line TYPE REF TO data.

FIELD-SYMBOLS:<l_table> TYPE ANY TABLE,ITPUB个人空间(jq3}p-x O
              <l_line> TYPE ANY,
j2z:gvC{`R0              <l_field> TYPE ANY.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'ITPUB个人空间A:].wA*?M[Z
       EXPORTING
5oFa%ah tM0            i_structure_name = 'SYST'ITPUB个人空间}fz{P5I+b-m0A:I
       CHANGINGITPUB个人空间7b6I,uU&?:Y8\:]"Q9n U"k
            ct_fieldcat      = it_fcat[].

  LOOP AT it_fcat INTO is_fcat WHERE NOT reptext_ddic IS initial.
CK ]2a3MX0    MOVE-CORRESPONDING is_fcat TO is_fieldcat.ITPUB个人空间{-be"G/`#W!F
    is_fieldcat-fieldname = is_fcat-fieldname.ITPUB个人空间:VV)We5w4\I
a)|
    is_fieldcat-ref_field = is_fcat-fieldname.ITPUB个人空间?%L/J7Y(|Q9D%F
    is_fieldcat-ref_table = is_fcat-ref_tabname.ITPUB个人空间QbK'O VI K%T#Ct _
    APPEND is_fieldcat TO it_fieldcat.ITPUB个人空间br6NC5]7K,O-hFHX
  ENDLOOP.

CALL METHOD cl_alv_table_create=>create_dynamic_table
h7\HC:w3y-oqY#G0    EXPORTINGITPUB个人空间
VN4Rs-f$x
      it_fieldcatalog = it_fieldcat
;D:C*J{bQ8x0    IMPORTINGITPUB个人空间0V^6@u(Q/tF.g
      ep_table = new_table.

ASSIGN new_table->* TO <l_table>.
g/E}7M5y0  CREATE DATA new_line LIKE LINE OF <l_table>.
xI)ZRmx2jIX0  ASSIGN new_line->* TO <l_line>.

* Test it...ITPUB个人空间,C Ll0jz
DO 30 TIMES.ITPUB个人空间3XL0GX}7H;?4d
  ASSIGN COMPONENT 'SUBRC' OF STRUCTURE <l_line> TO <l_field>.
z2q&DH;p#C.g0  <l_field> = sy-index.
3lb@1b&jHt]+g7e T0  INSERT <l_line> INTO TABLE <l_table>.ITPUB个人空间G;aR%TjBV
ENDDO.

LOOP AT <l_table> ASSIGNING <l_line>.
:E o&~)K7}#p0  ASSIGN COMPONENT 'SUBRC' OF STRUCTURE <l_line> TO <l_field>.ITPUB个人空间MwOR)LL mv
  WRITE <l_field>.
-A%sm,^Hz0ENDLOOP.

  LOOP AT <l_table> ASSIGNING <l_line>.
}T-A0o*j+j0    ASSIGN COMPONENT 'SUBRC' OF STRUCTURE <l_line> TO <l_field>.
$z3b^ D0K2P
hU0    WRITE <l_field>.ITPUB个人空间g Ykon7x_'K
  ENDLOOP.