Abap/4 中的OpenSQL（7）

来源：互联网发布：鑫管存数据不对编辑：程序博客网时间：2024/06/09 22:38

*&---------------------------------------------------------------------*
*& Report Z_CPT5_8                                                    *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT Z_CPT5_8 .

*保存在内存中的簇
DATA: text(20) VALUE 'DATA Cluster'.
DATA: text2(20).
EXPORT dc = text TO MEMORY ID 'MEM'.

IMPORT dc = text2 FROM MEMORY ID 'MEM'.

WRITE: / text2.

*保存在数据库中的簇   结果：没读取到数据
DATA wa_indx TYPE indx.
DATA: BEGIN OF wa_itab,
          col1 TYPE i,
          col2 TYPE i,
      END OF wa_itab.
DATA itab LIKE TABLE OF wa_itab.
DATA itab2 LIKE itab WITH HEADER LINE.

DO 3000 TIMES.
    wa_itab-col1 = sy-index.
    wa_itab-col2 = sy-index ** 2.
    APPEND wa_itab TO itab.
ENDDO.

wa_indx-aedat = sy-datum.
wa_indx-usera = sy-uname.
wa_indx-pgmid = sy-repid.

EXPORT itab TO DATABASE indx(hk) ID 'Table' FROM wa_indx.

IMPORT itab2 FROM DATABASE indx(hk) ID 'Table'.

LOOP AT itab2 INTO wa_itab.
WRITE: / wa_itab-col1,wa_itab-col2.
ENDLOOP.