Free memory command

Question

hello everybody
im getting a short dump of memory storage not available when double looping
loop at idatafile into wa_datafile.
   refresh i_update_bef.
      refresh i_old_bef.
      refresh i_old_after.
    date = sy-datum.
    concatenate date6(2) date4(2) date+0(4) into date2
    separated by '.' .
    concatenate '31' '12' '9999' into end_date
    separated by '.' .
    concatenate '9999' '12' '31' into end_date2.
   refresh icustomer.
    select  * from knvh into
    corresponding fields of table icustomer
    where hkunnr = wa_datafile-kunnr
    and hvkorg = wa_datafile-old_vkorg
    and hvtweg = wa_datafile-old_vtweg
    and hspart = wa_datafile-old_spart.
    loop at icustomer into wa_customer.
    clear datab.
    datab = wa_customer-datab.
    CALL FUNCTION 'BAPI_CUSTOMER_GET_CHILDREN'
         EXPORTING
              VALID_ON   = wa_customer-datab
              CUSTHITYP  = wa_customer-hityp
              NODE_LEVEL = '00'
              CUSTOMERNO = wa_datafile-kunnr
         IMPORTING
              RETURN     = return
         TABLES
              SALES_AREA = isales
              NODE_LIST  = inode.
    loop at inode into wa_node.
      if  wa_node-parent_customer is initial.
        wa_update-parent_customer = wa_node-customer.
        wa_update-parent_sales_org = wa_datafile-new_vkorg.
        wa_update-parent_distr_chan = wa_datafile-new_vtweg.
        wa_update-parent_division = wa_datafile-new_spart.
        wa_update-custhityp = wa_node-custhityp.
        wa_update-valid_to = end_date2.
        wa_update-valid_from = wa_customer-datab.
        append wa_update to i_update_after.
        wa_update-parent_customer = wa_node-customer.
        wa_update-parent_sales_org = wa_datafile-old_vkorg.
        wa_update-parent_distr_chan = wa_datafile-old_vtweg.
        wa_update-parent_division = wa_datafile-old_spart.
        wa_update-custhityp = wa_node-custhityp.
        wa_update-valid_to = wa_node-valid_to.
        wa_update-customer = space.
         wa_update-salesorg = wa_datafile-old_vkorg.
       wa_update-distr_chan = wa_datafile-old_vtweg.
       wa_update-division = wa_datafile-old_spart.
       wa_update-custhityp = wa_node-custhityp.
       wa_update-valid_from = wa_node-valid_from.
      append wa_update to i_old_bef.
      else.
        clear date3.
        concatenate   date0(4) date4(2) date+6(2) into date3.
        wa_update-parent_customer = wa_node-parent_customer.
        wa_update-parent_sales_org = wa_datafile-old_vkorg.
        wa_update-parent_distr_chan = wa_datafile-old_vtweg.
        wa_update-parent_division = wa_datafile-old_spart.
        wa_update-custhityp = wa_node-custhityp.
        wa_update-valid_to = wa_node-valid_to.
        wa_update-customer = wa_node-customer.
         wa_update-salesorg = wa_datafile-old_vkorg.
       wa_update-distr_chan = wa_datafile-old_vtweg.
       wa_update-division = wa_datafile-old_spart.
       wa_update-custhityp = wa_node-custhityp.
       wa_update-valid_from = wa_node-valid_from.
      append wa_update to i_old_bef.
*check if customer exist in new sales area
*if it exits check in table knvh
*if it does not exist, insert
        select single *
        into wa_knvv
        from knvv
        where kunnr = wa_node-customer
        and vkorg = wa_datafile-new_vkorg
        and vtweg = wa_datafile-new_vtweg
        and spart = wa_datafile-new_spart.
        if sy-subrc ne 0.
*if customer doesnt exist in new sales area, create it in new_sales area
          select single
          ktokd into ktokd
          from kna1
          where kunnr = wa_node-customer.
          if ktokd = c_h_acc_group.
           perform copy_sales_area_hierarchy
                       using wa_node-customer wa_datafile-new_vkorg
                           wa_datafile-new_vtweg wa_datafile-new_spart
                           wa_datafile-old_vkorg wa_datafile-old_vtweg
                           wa_datafile-old_spart.
          else.
           perform copy_sales_area
                           using wa_node-customer wa_datafile-new_vkorg
                           wa_datafile-new_vtweg wa_datafile-new_spart
                           wa_datafile-old_vkorg wa_datafile-old_vtweg
                           wa_datafile-old_spart.
          endif.
         endif.
          select single *
          into wa_knvh
          from knvh
          where hityp = wa_node-custhityp
          and hkunnr = wa_node-parent_customer
          and hvkorg = wa_datafile-new_vkorg
          and hvtweg = wa_datafile-new_vtweg
          and hspart = wa_datafile-new_spart
          and datab = wa_node-valid_from.
          if sy-subrc ne 0.
            wa_update-parent_customer = wa_node-parent_customer.
            wa_update-parent_sales_org = wa_datafile-new_vkorg.
            wa_update-parent_distr_chan = wa_datafile-new_vtweg.
            wa_update-parent_division = wa_datafile-new_spart.
            wa_update-custhityp = wa_node-custhityp.
            wa_update-valid_to = end_date2.
            wa_update-customer = wa_node-customer.
            wa_update-salesorg = wa_datafile-new_vkorg.
            wa_update-distr_chan = wa_datafile-new_vtweg.
            wa_update-division = wa_datafile-new_spart.
            wa_update-custhityp = wa_node-custhityp.
  wa_update-valid_to = wa_node-valid_to.
            wa_update-valid_from = wa_customer-datab.
            append wa_update to i_update_after.
            else.
              concatenate 'customer' wa_node-customer
         'does not exist in sales area'
         wa_datafile-new_vkorg wa_datafile-new_vtweg
         wa_datafile-new_spart into wa_error-message_v1.
         append wa_error to return4.
           endif.
      endif. "if  wa_node-parent_customer is initial.
    endloop.
   endloop.
can i use a free memory ?
will this affect the contents of the internal table?
should i use this command at the end of ecah loop?

Answer 1

Hi ,
I don't think Free Memory will help you in preventing the run-time dump. But i guess strucuturing your program in a better way will certainly will.
Remove the following statement from within the loop.
<b>select * from knvh into
corresponding fields of table icustomer
where hkunnr = wa_datafile-kunnr
and hvkorg = wa_datafile-old_vkorg
and hvtweg = wa_datafile-old_vtweg
and hspart = wa_datafile-old_spart.</b>
You can select all data from KNVH table based on the entries in your internal table idatafile using for all entries instead of using a loop-endloop construct.
This would help you to reduce the no: of loops from 3 to 2.
Get the field kunnr into the structure of internal table icustomer so that you can select using the above statment & use it in your loop.
Regards,
Chetan.
PS:Reward points if this helps.