dynamic table

*&---------------------------------------------------------------------*
*& Report  YTESTT03                                                    *
*&                                                                     *
*&---------------------------------------------------------------------*
*& Dynamic load customer table                                         *
*& Terry                                                               *
*&---------------------------------------------------------------------*

REPORT  ytestt03.

TABLES: dd02l.

*TYPE-POOLS: abap.
*INCLUDE ole2incl.

DATA: generic_table_wa TYPE REF TO data.
FIELD-SYMBOLS: <p_tab_wa> TYPE ANY TABLE .

PARAMETERS: pa_tab LIKE dd02l-tabname.

*-----report start
START-OF-SELECTION.
*-----creat dynamic table structure
  CREATE DATA  generic_table_wa TYPE TABLE OF (pa_tab).
  ASSIGN generic_table_wa->*  TO <p_tab_wa>.
*-----get dynamic table content
  SELECT * INTO TABLE <p_tab_wa>
    FROM (pa_tab).
*------creat work area for dynamic table
  DATA: it_wa TYPE REF TO data.
  FIELD-SYMBOLS: <dyn_wa>.
  CREATE DATA it_wa LIKE LINE OF <p_tab_wa>.
  ASSIGN it_wa->* TO <dyn_wa>.
*-----write out the dynamic table
  FIELD-SYMBOLS: <dyn_field>.

  LOOP AT <p_tab_wa> INTO <dyn_wa>.
    DO.
      ASSIGN COMPONENT  sy-index
          OF STRUCTURE <dyn_wa> TO <dyn_field>.
      IF sy-subrc <> 0.
        EXIT.
      ENDIF.
      IF sy-index = 1.
        WRITE:/ <dyn_field>.
      ELSE.
        WRITE: / <dyn_field>.
      ENDIF.
    ENDDO.
  ENDLOOP.

 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值