利用DATABASE来从一个程序传结果到另一程序

report znctest02.

TYPES:
  BEGIN OF tab_type,
    col1 TYPE i,
    col2 TYPE i,
  END OF tab_type.

DATA:
  wa_indx TYPE indx,
  wa_itab TYPE tab_type,
  cl      TYPE mandt VALUE '100',
  itab    TYPE STANDARD TABLE OF tab_type.

WHILE sy-index < 101.
  wa_itab-col1 = sy-index.
  wa_itab-col2 = sy-index ** 2.
  APPEND wa_itab TO itab.
ENDWHILE.

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

EXPORT tab = itab
  TO DATABASE indx(XY)
  FROM wa_indx
  CLIENT cl
  ID 'TABLE'.

REPORT  ZNCTEST03 NO STANDARD PAGE HEADING.

TYPES:
  BEGIN OF tab,
    col1 TYPE i,
    col2 TYPE i,
  END OF tab.

DATA:
  wa_indx TYPE indx,
  wa_itab TYPE tab,
  cl      TYPE mandt VALUE '100',
  itab    TYPE STANDARD TABLE OF tab.

IMPORT tab = itab
  FROM DATABASE indx(xy)
  TO   wa_indx
  CLIENT cl
  ID 'TABLE'.

WRITE: wa_indx-aedat, wa_indx-usera, wa_indx-pgmid.
ULINE.
LOOP AT itab INTO wa_itab.
  WRITE: / wa_itab-col1, wa_itab-col2.
ENDLOOP.

DELETE FROM DATABASE indx(xy)
  CLIENT cl
  ID 'TABLE'.