Restrict Data Package Size

Question

hi all,
I have created a generic data source which is extracting data using the FM.
I wana restrict my data by packet size. how can i do this?
my FM is
FUNCTION zstock_requirement.
""Local interface:
*"  IMPORTING
*"     VALUE(I_DSOURCE) TYPE  RSISOURCE OPTIONAL
*"     VALUE(I_REQUNR) TYPE  RSREQUNR
*"     VALUE(I_MAXSIZE) TYPE  RSMAXSIZE DEFAULT 1000
*"     VALUE(I_INITFLAG) TYPE  RSINITFLG OPTIONAL
*"     VALUE(I_UPDMODE) TYPE  RSUPDMODE OPTIONAL
*"     VALUE(I_DATAPAKID) TYPE  RSDATAPID DEFAULT 50000
*"     VALUE(I_READ_ONLY) TYPE  SBIW_BOOL DEFAULT SBIW_C_FALSE
*"  TABLES
*"      I_T_SELECT TYPE  SBIWA_T_SELECT OPTIONAL
*"      I_T_FIELDS TYPE  SBIWA_T_FIELDS OPTIONAL
*"      E_T_DATA STRUCTURE  MDEZ OPTIONAL
Maximum number of lines for DB table
  STATICS: s_s_if TYPE srsc_s_if_simple,
counter
          s_counter_datapakid LIKE sy-tabix,
cursor
          s_cursor TYPE cursor.
  DATA : lt_mdezx TYPE TABLE OF mdez,
          la_mdezx LIKE LINE OF lt_mdezx.
Initialization mode (first call by SAPI) or data transfer mode
(following calls) ?
  IF i_initflag = sbiwa_c_flag_on.
Initialization: check input parameters
                buffer input parameters
                prepare data selection
Check DataSource validity
    CASE i_dsource.
      WHEN 'ZSTOCK_REQUIREMENT1'.
      WHEN OTHERS.
        IF 1 = 2. MESSAGE e009(r3). ENDIF.
this is a typical log call. Please write every error message like this
        log_write 'E'                  "message type
                  'R3'                 "message class
                  '009'                "message number
                  i_dsource   "message variable 1
                  ' '.                 "message variable 2
        RAISE error_passed_to_mess_handler.
    ENDCASE.
    APPEND LINES OF i_t_select TO s_s_if-t_select.
Fill parameter buffer for data extraction calls
    s_s_if-requnr    = i_requnr.
    s_s_if-dsource = i_dsource.
    s_s_if-maxsize   = i_maxsize.
Fill field list table for an optimized select statement
(in case that there is no 1:1 relation between InfoSource fields
and database table fields this may be far from beeing trivial)
    APPEND LINES OF i_t_fields TO s_s_if-t_fields.
  ELSE.                 "Initialization mode or data extraction ?
Data transfer: First Call      OPEN CURSOR + FETCH
               Following Calls FETCH only
First data package -> OPEN CURSOR
    IF s_counter_datapakid = 0.
      SELECT matnr FROM mara INTO TABLE i_matnr
                        WHERE mtart IN ('ZFIN','ZRAW','ZSMI').
      If not i_matnr is initial.
      SELECT matnr werks FROM marc INTO TABLE i_input FOR ALL ENTRIES IN i_matnr
                                       WHERE matnr = i_matnr-matnr.
       endif.
        CLEAR wa_input.
        LOOP AT i_input INTO wa_input.
          CALL FUNCTION 'MD_STOCK_REQUIREMENTS_LIST_API'
            EXPORTING
   PLSCN                          =
              matnr                          =  wa_input-matnr
              werks                          =  wa_input-werks
   BERID                          =
   ERGBZ                          =
   AFIBZ                          =
   INPER                          =
   DISPLAY_LIST_MDPSX             =
   DISPLAY_LIST_MDEZX             =
   DISPLAY_LIST_MDSUX             =
   NOBUF                          =
IMPORTING
   E_MT61D                        =
   E_MDKP                         =
   E_CM61M                        =
   E_MDSTA                        =
           TABLES
   MDPSX                          =
             mdezx                          =   lt_mdezx
   MDSUX                          =
           EXCEPTIONS
             material_plant_not_found       = 1
             plant_not_found                = 2
             OTHERS                         = 3.
          IF sy-subrc <> 0.
            MESSAGE i000(abc) WITH 'information'.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
          ENDIF.
          LOOP AT lt_mdezx INTO la_mdezx.
            APPEND la_mdezx TO e_t_data.
          ENDLOOP.
        ENDLOOP.
      ENDIF.
      s_counter_datapakid = s_counter_datapakid + 1.
    ENDIF.              "Initialization mode or data extraction ?
  ENDFUNCTION.

Answer 1

Hi,
One thing why u want to restrict data package. Anyway if it is delta enbaled u will make it as a initial load then delta load.
Its very complex to implement datapackage as well as cursor and fetch statement in function module.
Thanks,
Debasish