Fans of ABAP SAP! 始终相信oO美好在远方л幸福不说话 @ε @

动态内表的实现

上一篇 / 下一篇  2008-03-19 12:20:07

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\Ia)|
    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)ZR m x2j IX0  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%T jBV
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 ^ D0K2PhU0    WRITE <l_field>.ITPUB个人空间g Ykon7x_'K
  ENDLOOP.


TAG: abap 动态内表

 

评分:0

我来说两句

显示全部

:loveliness: :handshake :victory: :funk: :time: :kiss: :call: :hug: :lol :'( :Q :L ;P :$ :P :o :@ :D :( :)

日历

« 2008-09-06  
 123456
78910111213
14151617181920
21222324252627
282930    

数据统计

  • 访问量: 429
  • 日志数: 10
  • 影音数: 3
  • 建立时间: 2008-03-18
  • 更新时间: 2008-06-05

RSS订阅

Open Toolbar