远程主动读取数据 RFC_READ_TABLE

 IF IM_UDATE1 <> IM_UDATE2."get data from bw
    CLEAR IT_SEL_TAB.
    IT_SEL_TAB = '( /BIC/Z01CH0184 >= '''.
    IT_SEL_TAB+20(1) = ''''.
    IT_SEL_TAB+21(8) = IM_UDATE1.
    IT_SEL_TAB+29(1) = ''''.
    IT_SEL_TAB+30(24) = ' AND /BIC/Z01CH0184 <= '''.
    IT_SEL_TAB+54(8) = IM_UDATE2.
    IT_SEL_TAB+62(1) = ''''.
    IT_SEL_TAB+63(2) = ' )'.
    APPEND IT_SEL_TAB.
  ELSE.
    CLEAR IT_SEL_TAB.
    IT_SEL_TAB = '( /BIC/Z01CH0184 = '''.
    IT_SEL_TAB+20(8) = IM_UDATE1.
    IT_SEL_TAB+28(1) = ''''.
    IT_SEL_TAB+29(2) = ' )'.
    APPEND IT_SEL_TAB.

  ENDIF.
*--------------------OPTIONS(WHERE)----------------------*

*-------------------get field catalog--------------------*
  NAMETAB1-FIELDNAME = '/BIC/Z01CH0165'.
  APPEND NAMETAB1.
  NAMETAB1-FIELDNAME = '/BIC/Z01CH0173'.
  APPEND NAMETAB1.

  NAMETAB1-FIELDNAME = '/BIC/Z01CH0174'.
  APPEND NAMETAB1.
  NAMETAB1-FIELDNAME = '/BIC/Z01CH0175'.
  APPEND NAMETAB1.
  NAMETAB1-FIELDNAME = '/BIC/Z01CH0183'.
  APPEND NAMETAB1.
  NAMETAB1-FIELDNAME = '/BIC/Z01CH0184'.
  APPEND NAMETAB1.
*-------------------get field catalog--------------------*

*-------------------get data from BW---------------------*
  CALL FUNCTION 'RFC_READ_TABLE'
*    DESTINATION LS_DESTINATIN
    DESTINATION 'BWPCLNT001'  "BW SYSTEM
    EXPORTING
      QUERY_TABLE                = '/BIC/AZ01CM00400' "The table from BW system
*    DELIMITER                  = ' '
*    NO_DATA                    = ' '
*    ROWSKIPS                   = 0
*    ROWCOUNT                   = 0
    TABLES
      OPTIONS                    = IT_SEL_TAB[]
      FIELDS                     = NAMETAB1[]
      DATA                       = LT_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.
    CASE SY-SUBRC.
      WHEN 1.
        E_MSGTY = 'E'.
        E_ERMSG = 'RFC Error : Internal Error'.
      WHEN 2.
        E_MSGTY = 'E'.
        E_ERMSG = 'RFC Error : No fields in table' .

      WHEN 3.
        E_MSGTY = 'E'.
        E_ERMSG =  'RFC Error : Table is not active'.

      WHEN 4.
        E_MSGTY = 'E'.
        E_ERMSG =  'RFC Error : No authorization' .

      WHEN OTHERS.
        E_MSGTY = 'E'.
        E_ERMSG =  'RFC Error : No records selected'.
    ENDCASE.
  ENDIF.

转载于:https://www.cnblogs.com/sap-ronny/p/7772856.html