READ DATASET

Question

Hi Friends,
I'm getting problem in reading only 100 records from the application server using the READ DATASET statement. The file on the application server may have 8000 records but i wanted to get only 100 records and process them. Then i wanted to get  next 100 records from the file stored on app.server and process and so on.
After I get the 100 records, I wanted to do further operations such as putting them into a custom table.
Will the below code work?
DATA l_item(100) type c.
*Open the .DAT file for reading
  OPEN DATASET p_file1 FOR INPUT IN TEXT MODE ENCODING UTF-8 MESSAGE
  x_error.
  IF sy-subrc NE 0.
*An error occured during opening the dataset !
    MESSAGE x_error TYPE 'E'.
    CLEAR x_error.
  ENDIF.
  DO.
*Read the .DAT file into an internal table
    READ DATASET p_file1 INTO l_item.
    IF sy-subrc EQ 0.
*split the records into data fields based on delimiter ','
*then append the current record to an internal table
      SPLIT l_item AT ',' INTO
                               x_item-inv_item_id
                               x_item-intl_aa_nbr
                               x_item-intl_pba_nbr
                               x_item-intl_ta_nbr
                               x_item-intl_product_code
                               x_item-descr254
                               x_item-intl_stck_id
                               x_item-awr_disallowed_flg
                               x_item-returnable_flg
                               x_item-fulfillment_flg
                               x_item-refund_only_flg
                               x_item-prod_returnable_flg
                               x_item-stock_cat_id.
      APPEND x_item TO i_item.
      CLEAR x_item.
    ELSE.
*Data was read and the end of the file was reached
      MESSAGE i006.
      EXIT.
    ENDIF.
  ENDDO.

Answer 1

Hi,
If you want to process every 100 records once,  you can in ways.
1.  
DO.
*Read the .DAT file into an internal table
    READ DATASET p_file1 INTO l_item.
    IF sy-subrc EQ 0.
*split the records into data fields based on delimiter ','
*then append the current record to an internal table
      SPLIT l_item AT ',' INTO
                               x_item-inv_item_id
                               x_item-intl_aa_nbr
                               x_item-intl_pba_nbr
                               x_item-intl_ta_nbr
                               x_item-intl_product_code
                               x_item-descr254
                               x_item-intl_stck_id
                               x_item-awr_disallowed_flg
                               x_item-returnable_flg
                               x_item-fulfillment_flg
                               x_item-refund_only_flg
                               x_item-prod_returnable_flg
                               x_item-stock_cat_id.
      APPEND x_item TO i_item.
      CLEAR x_item.
      lv_count = lv_count + 1.
     if lv_count = 100.
       perform process 100 records.
        clear: lv_count, x_items.
        refresh x_items.
    endif.
    ELSE.
*Data was read and the end of the file was reached
      MESSAGE i006.
      EXIT.
    ENDIF.
  ENDDO.
2.   Download all records into an internal table once.
then loop internaltable.
data: lv_count type i,
         lv_count1 type i,
         lv_previous type i.
lv_count = lv_count  + 1.
lv_count1 = lv_count1 + 1.
if lv_count1 < = 100.
copy 100 records into another internal table2.
else.
     lv_previous = lv_count - lv_previous.
if lv_previous = 100.
    process records.
   clear: lv_count1,  internal table2.
   refresh internal table2
endif.
endif.
endloop.
regards,
Ganesh