BW使用函数模块自定义数据源

源代码如下：

FUNCTION zfm_bw_cdpos.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(I_ISOURCE) TYPE  SBIWA_S_INTERFACE-ISOURCE OPTIONAL
*"     VALUE(I_REQUNR) TYPE  SBIWA_S_INTERFACE-REQUNR
*"     VALUE(I_MAXSIZE) TYPE  SBIWA_S_INTERFACE-MAXSIZE DEFAULT 1000
*"     VALUE(I_INITFLAG) TYPE  SBIWA_S_INTERFACE-INITFLAG OPTIONAL
*"     VALUE(I_UPDMODE) TYPE  SBIWA_S_INTERFACE-UPDMODE OPTIONAL
*"     VALUE(I_DATAPAKID) TYPE  SBIWA_S_INTERFACE-DATAPAKID DEFAULT
*"       50000
*"     VALUE(I_READ_ONLY) TYPE  SBIW_BOOL DEFAULT SBIW_C_FALSE
*"     VALUE(I_REMOTE_CALL) TYPE  SBIWA_FLAG OPTIONAL
*"     VALUE(I_RLOGSYS) TYPE  RSAOT_LOGSYS OPTIONAL
*"  TABLES
*"      I_T_SELECT TYPE  SBIWA_T_SELECT OPTIONAL
*"      I_T_FIELDS TYPE  SBIWA_T_FIELDS OPTIONAL
*"      E_T_DATA OPTIONAL
*"  EXCEPTIONS
*"      NO_MORE_DATA
*"      ERROR_PASSED_TO_MESS_HANDLER
*"----------------------------------------------------------------------

  STATICS : updmode TYPE rsupdmode,
          s_cursor TYPE cursor,
          l_maxsize TYPE sbiwa_s_interface-maxsize.

  DATA : startdate TYPE d,
         enddate TYPE d.

*   definite the selection structure
  DATA : wa_select_ts TYPE sbiwa_s_select,
         wa_select    TYPE sbiwa_s_select,
         r_udate      LIKE RANGE OF cdhdr-udate,
         wa_udate     LIKE LINE OF r_udate.

  DATA : lw_extractor TYPE zsbw_cdpos,
         lt_extractor TYPE TABLE OF zsbw_cdpos,
         lw_cdhdr     LIKE cdhdr,
         lt_cdhdr LIKE TABLE OF cdhdr,
         lw_cdpos     LIKE cdpos,
         lt_cdpos LIKE TABLE OF cdpos,
         lw_ekko TYPE ekko,
         lt_ekko LIKE TABLE OF ekko,
         g_index      TYPE i.

  CLEAR : e_t_data,lt_extractor.
  IF i_initflag = 'X'.
*    if it is the first time to extract
    l_maxsize = i_maxsize.

    READ TABLE i_t_select INTO wa_select_ts WITH KEY fieldnm = 'UDATE'.
    IF wa_select_ts IS NOT INITIAL.
      IF wa_select_ts-low IS INITIAL.
        updmode = 'C'."initialization
        startdate = '20100101'.
      ELSE.
        updmode = 'D'.
        startdate = wa_select_ts-low.
      ENDIF.
      enddate = wa_select_ts-high.
      wa_udate-low = startdate."wa_select_ts-low.
      wa_udate-sign = wa_select_ts-sign.
      wa_udate-option = wa_select_ts-option.
      wa_udate-high = enddate."wa_select_ts-high.
      APPEND wa_udate TO r_udate.
    ELSE.
      updmode = 'F'. " full mode
    ENDIF.


*    now wo  prepare to open the cursor for target table
*    according to the extraction mode
*    initial and full we get data from the a645 konp konh
*    delta ---> we get data from cdhdr and cdpos
    OPEN CURSOR WITH HOLD s_cursor FOR
     SELECT *
       FROM cdhdr
       WHERE objectclas EQ  'EINKBELEG'
         AND udate IN r_udate
         ORDER BY udate utime.

*    CASE updmode.
*      WHEN 'F' OR 'C'.
*        OPEN CURSOR WITH HOLD s_cursor FOR
*          SELECT *
*          FROM cdpos
*          FOR ALL ENTRIES IN lt_cdhdr
*          WHERE objectclas EQ lt_cdhdr-objectclas
*            AND objectid EQ lt_cdhdr-objectid
*            AND changenr EQ lt_cdhdr-changenr
*            AND tabname = 'EKKO'
*            AND fname = 'FRGKE'
*            AND ( value_new = 'Y' OR value_old = 'Y' ).
*      WHEN 'D'."delta mode
*      WHEN OTHERS.
*    ENDCASE.
    RETURN.
  ELSE.
*  fill the data to e_t_data
    FETCH NEXT CURSOR s_cursor INTO TABLE
    lt_cdhdr PACKAGE SIZE l_maxsize.
    IF sy-subrc <> 0.
      CLOSE CURSOR s_cursor.
      RAISE no_more_data.
    ENDIF.

    IF lt_cdhdr[] IS NOT INITIAL  .
      SORT lt_cdhdr[].

      SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_cdpos
      FROM cdpos
      FOR ALL ENTRIES IN lt_cdhdr
      WHERE objectclas EQ lt_cdhdr-objectclas
        AND objectid EQ lt_cdhdr-objectid
        AND changenr EQ lt_cdhdr-changenr
        AND tabname IN (

转载于:https://www.cnblogs.com/xmqlv20081008/p/8078778.html