Dump in 'BAPI_MATERIAL_AVAILABILITY' for mass materials....

Question

Hi Experts,
pl. help us for following abap. I have fetched nearly 40,000 materials in itab and when i am executing it is taking long time 10-20 minutes or it is giving dump.
   DATA: iwmdvsx TYPE TABLE OF bapiwmdvs WITH HEADER LINE,
    iwmdvex TYPE TABLE OF bapiwmdve WITH HEADER LINE.
    DATA: r TYPE bapireturn, " Check it once.
    FQty TYPE MENGV13.
    jtab[] = itab[].
    LOOP AT itab.
      CALL FUNCTION 'BAPI_MATERIAL_AVAILABILITY'
      EXPORTING
      plant = 'HIP' "p_werks
      material = itab-matnr "p_matnr
      unit = 'EA' "p_meins
      stge_loc = 'BSR'
      IMPORTING
      return  = r
      TABLES
      wmdvsx = iwmdvsx
      wmdvex = iwmdvex.
      IF r-type is initial OR r-type = 'S'.
        LOOP AT  iwmdvex.
          FQty = FQty + iwmdvex-com_qty.
        ENDLOOP.
        jtab-free_qty = FQty.
        MODIFY jtab TRANSPORTING free_qty WHERE matnr = itab-matnr.
        FQty = 0.
      ENDIF.
      REFRESH iwmdvex.
      CLEAR: itab.
      REFRESH iwmdvsx.
    ENDLOOP.

Answer 1

This is the way i do it. See if it helps:
      LOOP AT I_WERKS.
        refresh: return.
        CALL FUNCTION 'BAPI_MATERIAL_AVAILABILITY'
          EXPORTING
            plant      = I_WERKS-LOW
            material   = I_MARA-MATNR
            unit       = 'EA'
          IMPORTING
            av_qty_plt = bapi_onhand
            return     = return
          TABLES
            wmdvsx     = atp1
            wmdvex     = atp2.
        IF return IS INITIAL.
          READ TABLE atp2 WITH TABLE KEY bdcnt = 0
                                           req_date = sy-datum
                                           com_date = sy-datum.
          IF atp2-com_qty <> '9999999999.000'.
            ONHAND = ONHAND + atp2-com_qty.
          ELSE.
            ONHAND = ONHAND + bapi_onhand.
          ENDIF.
        ENDIF.