SAP ABAP 数据库表的数据传输（包括跨客户端）

DATA: SO_OPTION TYPE TABLE OF rfc_db_opt WITH HEADER LINE,
      SO_FIELDS TYPE TABLE OF rfc_db_fld,
      WA_FIELDS TYPE rfc_db_fld,
      SO_DATA TYPE TABLE OF tab512,
      WA_SO_DATA TYPE tab512.
DATA: T_FIELDS TYPE TABLE OF DDSHSELOPT WITH HEADER LINE.
DATA: LV_WHERE TYPE STRING.
"Screen Define"
PARAMETERS: p_table TYPE dd02l-tabname DEFAULT 'RSEG'.
PARAMETERS: p_dest TYPE rfcdes-rfcdest.
"Begin Business"
START-OF-SELECTION.
REFRESH:T_RSEG1,I_WHERE,I_FIELDS.
CLEAR T_FIELDS.
T_FIELDS-SHLPFIELD = 'BELNR'.
T_FIELDS-SIGN      = 'I'.
T_FIELDS-OPTION    = 'BT'.
T_FIELDS-LOW       = '5100000009'.
T_FIELDS-HIGH      = '5100000019'.
APPEND T_FIELDS.
* Convert selopt into string               *
CALL FUNCTION 'F4_CONV_SELOPT_TO_WHERECLAUSE'
*   EXPORTING
*     GEN_ALIAS_NAMES       = ' '
*     ESCAPE_ALLOWED        = ' '
  IMPORTING
    WHERE_CLAUSE          = LV_WHERE
  TABLES
    SELOPT_TAB            = T_FIELDS.
SO_OPTIONS-TEXT = LV_WHERE.
APPEND SO_OPTIONS.
REFRESH T_FIELDS.
CLEAR T_FIELDS.
T_FIELDS-SHLPFIELD = 'GJAHR'.
T_FIELDS-SIGN      = 'I'.
T_FIELDS-OPTION    = 'EQ'.
T_FIELDS-LOW       = '2020'.
APPEND T_FIELDS.
CLEAR LV_WHERE.
* Convert selopt into string               *
CALL FUNCTION 'F4_CONV_SELOPT_TO_WHERECLAUSE'
*   EXPORTING
*     GEN_ALIAS_NAMES       = ' '
*     ESCAPE_ALLOWED        = ' '
  IMPORTING
    WHERE_CLAUSE          = LV_WHERE
  TABLES
    SELOPT_TAB            = T_FIELDS.
CLEAR T_WHERE.
SO_OPTIONS-TEXT(3) = 'AND'.
SO_OPTIONS-TEXT+4  = LV_WHERE.
APPEND SO_OPTIONS.
CALL FUNCTION 'RFC_READ_TABLE' DESTINATION p_dest
  EXPORTING
    query_table                = p_table
*   DELIMITER                  = ' '
*   NO_DATA                    = ' '
*   ROWSKIPS                   = 0
*   ROWCOUNT                   = 0
  TABLES
    OPTIONS                    = SO_OPTIONS
    fields                     = SO_FIELDS
    data                       = SO_DATA
* EXCEPTIONS
*   TABLE_NOT_AVAILABLE        = 1
*   TABLE_WITHOUT_DATA         = 2
*   OPTION_NOT_VALID           = 3
*   FIELD_NOT_VALID            = 4
*   NOT_AUTHORIZED             = 5
*   DATA_BUFFER_EXCEEDED       = 6
*   OTHERS                     = 7
            .
IF sy-subrc <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE.
  MODIFY (p_table) FROM TABLE SO_DATA.
  IF sy-subrc = 0.
    COMMIT WORK AND WAIT.
  ENDIF.
ENDIF.