dynamic table

最新推荐文章于 2024-04-10 15:18:05 发布

abap01

最新推荐文章于 2024-04-10 15:18:05 发布

阅读量723

点赞数

分类专栏： abap 文章标签： table structure report parameters include

本文链接：https://blog.csdn.net/abap01/article/details/1760644

版权

abap 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

*&---------------------------------------------------------------------*
*& 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.