SAP 将数据以数据库族方式传递

 *&---------------------------------------------------------------------*
*&  Include           ZINC_SF_HELPER
*&---------------------------------------------------------------------*

TYPES buffer_id(80) TYPE c.
DATA wa_indx TYPE indx.

DEFINE savebuffer.
  perform save_to_buffer using &1 &2.
END-OF-DEFINITION.

DEFINE clearbuffer.
  perform clear_buffer using &1."ww
END-OF-DEFINITION.
*&--------------------------------------------------------------------*
*&      Form  Get_Unique_Id
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
*      -->ID         text
*---------------------------------------------------------------------*
*FORM get_unique_id USING typeid TYPE c CHANGING id TYPE c.
*  DATA: m_buff(32) TYPE c.
*  CALL FUNCTION 'TH_GET_SESSION_ID'
*   IMPORTING
*     session_id       =  m_buff
**     ID_LEN           =
*            .
*  CONCATENATE sy-repid '_' m_buff typeid INTO id.
*ENDFORM.                    "Get_Unique_Id


*&--------------------------------------------------------------------*
*&      Form  Save_To_Buffer
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
*      -->T          text
*      -->BUFF_ID    text
*---------------------------------------------------------------------*
FORM save_to_buffer USING t TYPE table typeid TYPE c .
  wa_indx-aedat = sy-datum.
  wa_indx-usera = sy-uname.
  wa_indx-pgmid = sy-repid.
*  PERFORM get_unique_id USING buff_id CHANGING buff_id.
  EXPORT t TO DATABASE indx(hk) ID typeid from wa_indx.
ENDFORM.                    "Save_To_Buffer

*&--------------------------------------------------------------------*
*&      Form  Clear_Buffer
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
*      -->BUFF_ID    text
*---------------------------------------------------------------------*
FORM clear_buffer USING buffid TYPE c.
  DELETE FROM DATABASE indx(hk) ID buffid.
ENDFORM.                    "Clear_Buffer

*&---------------------------------------------------------------------*
*&      Form  Restor_buffer
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->TYPEID     text
*      -->T          text
*----------------------------------------------------------------------*
form Restor_buffer using typeid type c changing t type table.
  import t from database indx(hk) id typeid.
endform.                    "Restor_buffer