Avoid endless loop time_out error

Question

Hi,
I need to run a ALV report in foreground ( no alternative ..  ) and can not increase the time limit also.
Below is the code where there is a time out occuring:
loop at i_zmp_pledger_smry12 into wa_zmp_pledger_smry12.
  idx = sy-tabix.
  sort i_zmparas by werks.
  read table i_zmparas into wa_zmparas
       with key werks = wa_zmp_pledger_smry12-werks binary search.
  sort i_zmparea by area_code.
  read table i_zmparea into wa_zmparea
       with key area_code = wa_zmparas-area_code binary search.
  wa_zmp_pledger_smry12-area_name = wa_zmparea-area_name. " Area Name
  sort i_zmpreas by area_code.
  read table i_zmpreas into wa_zmpreas
       with key area_code = wa_zmparas-area_code binary search.
  sort i_zmpregi by region_code.
  read table i_zmpregi into wa_zmpregi
       with key region_code = wa_zmpreas-region_code binary search.
  wa_zmp_pledger_smry12-region_name = wa_zmpregi-region_name. " Region Name
  sort i_zmpt_uspt by werks.
  read table i_zmpt_uspt into wa_zmpt_uspt
       with key werks = wa_zmp_pledger_smry12-werks binary search.
  wa_zmp_pledger_smry12-name1 = wa_zmpt_uspt-name1. " Plant Name
  sort i_lfa1 by lifnr.
  read table i_lfa1 into wa_lfa1
       with key lifnr = wa_zmp_pledger_smry12-rep_id binary search.
  wa_zmp_pledger_smry12-name1v = wa_lfa1-name1. " Vendor Name
  modify  i_zmp_pledger_smry12 index idx from wa_zmp_pledger_smry12
  transporting area_name region_name
  name1 name1v.
  endloop.
The internal table i_zmp_pledger_smry12 contains 1,08,000 records.
kindly suggest changes
-Dep

Answer 1

Hi,
sort i_zmparas by werks.
sort i_zmparea by area_code.
sort i_zmpreas by area_code.
sort i_zmpregi by region_code.
sort i_zmpt_uspt by werks.
sort i_lfa1 by lifnr.
loop at i_zmp_pledger_smry12 into wa_zmp_pledger_smry12.
  idx = sy-tabix.
    read table i_zmparas into wa_zmparas
       with key werks = wa_zmp_pledger_smry12-werks binary search.
   read table i_zmparea into wa_zmparea
       with key area_code = wa_zmparas-area_code binary search.
if sy-subrc = 0.
  wa_zmp_pledger_smry12-area_name = wa_zmparea-area_name. " Area Name
endif.
    read table i_zmpreas into wa_zmpreas
       with key area_code = wa_zmparas-area_code binary search.
   read table i_zmpregi into wa_zmpregi
       with key region_code = wa_zmpreas-region_code binary search.
  wa_zmp_pledger_smry12-region_name = wa_zmpregi-region_name. " Region Name
    read table i_zmpt_uspt into wa_zmpt_uspt
       with key werks = wa_zmp_pledger_smry12-werks binary search.
  wa_zmp_pledger_smry12-name1 = wa_zmpt_uspt-name1. " Plant Name
  read table i_lfa1 into wa_lfa1
       with key lifnr = wa_zmp_pledger_smry12-rep_id binary search.
if sy-subrc = 0.
  wa_zmp_pledger_smry12-name1v = wa_lfa1-name1. " Vendor Name
endif.
if not  i_zmp_pledger_smry12 is initial.
  modify  i_zmp_pledger_smry12 index idx from wa_zmp_pledger_smry12
  transporting area_name region_name
  name1 name1v.
endif.
  endloop.
Regards,
muralii