Data load taking so much time

Question

Hello Everybody
i have enhanced the 0info_rec_attr datasource for few fields. I am getting right result for which i have done enhancement. But during infopackage run and DTP run it is taking so much time. when i run infopackage it is taking arround 12hrs for 4 lack records.
previously it use to take only 5mint to load same amount of data. Same thing is happening DTP also.
Kindly suggest why this is happeneing. Alhough data are coming in right way in infoprovider.
Regards
Saurabh

Answer 1

Hello Durgesh following is entire code. Kindly help me in optimization of tcode .
WHEN '0INFO_REC_ATTR'.
    CLEAR : t_inforec,t_inforec1,t_infodata.
    REFRESH:t_inforec,t_inforec1,t_infodata.
    LOOP AT i_t_data INTO wa_inforec.
      l_tabix = sy-tabix.
      SELECT infnr
             ekgrp
             ekorg
             loekz
             esokz
             werks
             waers
             norbm
             aplfz
             netpr
             peinh
             mwskz
             INTO CORRESPONDING FIELDS OF TABLE t_inforec1
             FROM eine
             WHERE infnr = wa_inforec-infnr.
      IF sy-subrc = 0.
        LOOP AT t_inforec1.
          MOVE-CORRESPONDING wa_inforec TO t_inforec.
          MOVE t_inforec1-ekgrp TO t_inforec-zzekgrp.
          MOVE t_inforec1-ekorg TO t_inforec-zzekorg.
          MOVE t_inforec1-esokz TO t_inforec-zzesokz.
          MOVE t_inforec1-werks TO t_inforec-zzwerks.
          MOVE t_inforec1-aplfz TO t_inforec-zzaplfz.
          MOVE t_inforec1-mwskz TO t_inforec-zzmwskz.
          MOVE t_inforec1-loekz TO t_inforec-zzdelflag_eine.
          MOVE t_inforec1-meins TO t_inforec-zzmeins.
          MOVE t_inforec1-netpr TO t_inforec-zznetpr.
          MOVE t_inforec1-peinh TO t_inforec-zzpeinh.
          MOVE t_inforec1-waers TO t_inforec-zzwaers.
          MOVE t_inforec1-norbm TO t_inforec-zznorbm.
         Delete flag from EINA
          SELECT SINGLE loekz meins
                 INTO (t_inforec-zzdelflag_eina,
                      t_inforec-zzmeins)
            FROM eina
            WHERE infnr = t_inforec1-infnr.
          APPEND t_inforec.
        ENDLOOP.
      ENDIF.
      APPEND LINES OF t_inforec TO t_infodata.
      CLEAR : t_inforec,t_inforec1.
      REFRESH:t_inforec,t_inforec1.
    ENDLOOP.
    DATA:
     l_datbi TYPE kodatbi,
     l_datab TYPE kodatab,
     l_knumh TYPE knumh,
     l_kopos TYPE kopos,
     l_kschl TYPE kscha,
     l_kbetr TYPE kbetr_kond,
     l_flifn TYPE flifn.
    LOOP AT t_infodata.
      SELECT SINGLE datbi datab knumh
      FROM a017
      INTO (l_datbi, l_datab, l_knumh)
      WHERE lifnr = t_infodata-lifnr AND
            matnr = t_infodata-matnr AND
            ekorg = t_infodata-zzekorg AND
            werks = t_infodata-zzwerks.
      t_infodata-zzdatbi = l_datbi.
      t_infodata-zzdatab = l_datab.
      t_infodata-zzknumh = l_knumh.
      MODIFY t_infodata INDEX sy-tabix.
      CLEAR: l_datbi, l_datab, l_knumh.
   ENDLOOP.
   LOOP AT t_infodata.
      SELECT SINGLE kopos kschl kbetr
        FROM konp
        INTO (l_kopos, l_kschl, l_kbetr)
        WHERE knumh = t_infodata-zzknumh.
      SELECT SINGLE flifn
        FROM eord
        INTO l_flifn
        WHERE matnr = t_infodata-matnr AND
            werks = t_infodata-zzwerks AND
            lifnr = t_infodata-lifnr.
      t_infodata-zzkopos = l_kopos.
      t_infodata-zzkschl = l_kschl.
      t_infodata-zzkbetr = l_kbetr.
      t_infodata-zzflifn = l_flifn.
      MODIFY t_infodata INDEX sy-tabix.
      CLEAR: l_kopos, l_kschl, l_kbetr.
    ENDLOOP.
    CLEAR : i_t_data.
    REFRESH:i_t_data.
    i_t_data[] = t_infodata[].
Regards
saurabh