topic Re: modify in Application Development and Automation Discussions

modify

Former Member — Thu, 09 Aug 2007 22:53:41 GMT

data: wa_compalz  like line of out_cif_compalz.

 loop at t_ppm.
    l_tabix = sy-tabix.
    read table out_cif_compalz into wa_compalz with key logcomp = t_ppm-logcomp.
    if sy-subrc eq 0.
*    if wa_compalz-logcomp eq t_ppm-logcomp.
      t_ppm-matnr = wa_compalz-matnr_alt.
      modify t_ppm index l_tabix.
    endif.
    select single zzacronym into l_acronym from
           zmchar where zzmatnr = t_ppm-matnr.
    if sy-subrc eq 0.
      select single zzmatnr into lv_matnr
      from zmchar where zzacronym = l_acronym
      and zzpkgtypds = 'FNG'.
      if sy-subrc eq 0.
        wa_compalz-matnr_alt = lv_matnr.
        modify out_cif_compalz  from wa_compalz transporting
matnr_alt.
        clear lv_matnr.
        clear l_acronym.
      endif.
    endif.
  endloop.

In the above code I am trying to modify the matnr of some entries to table out_cif_compalz and ending up with error.

Please let me know how to fix it .

Re: modify

Former Member — Thu, 09 Aug 2007 23:00:30 GMT

HI,

Take the index after read stament and use that in your second modify statement.

data: wa_compalz like line of out_cif_compalz.

data : lv_tabix like sy-tabix.

loop at t_ppm.

l_tabix = sy-tabix.

read table out_cif_compalz into wa_compalz with key logcomp = t_ppm-logcomp.

if sy-subrc eq 0.

lv_tabix = sy-tabix.

if wa_compalz-logcomp eq t_ppm-logcomp.

t_ppm-matnr = wa_compalz-matnr_alt.

modify t_ppm index l_tabix.

endif.

select single zzacronym into l_acronym from

zmchar where zzmatnr = t_ppm-matnr.

if sy-subrc eq 0.

select single zzmatnr into lv_matnr

from zmchar where zzacronym = l_acronym

and zzpkgtypds = 'FNG'.

if sy-subrc eq 0.

wa_compalz-matnr_alt = lv_matnr.

modify out_cif_compalz from wa_compalz index lv_tabix transporting

matnr_alt.

clear lv_matnr.

clear l_acronym.

endif.

endloop

Thanks

Mahesh

Re: modify

former_member194669 — Thu, 09 Aug 2007 23:05:09 GMT

Hi,


data: wa_compalz  like line of out_cif_compalz.
data: v_tabix like sy-tabix."<<<  Check this
 
loop at t_ppm.
    l_tabix = sy-tabix.
    read table out_cif_compalz into wa_compalz with key logcomp = t_ppm-logcomp.
    if sy-subrc eq 0.
     v_tabix = sy-tabix.
     t_ppm-matnr = wa_compalz-matnr_alt.
     modify t_ppm index l_tabix.
     select single zzacronym into l_acronym from
           zmchar where zzmatnr = t_ppm-matnr.
     if sy-subrc eq 0.
       select single zzmatnr into lv_matnr
         from zmchar where zzacronym = l_acronym
              and zzpkgtypds = 'FNG'.
       if sy-subrc eq 0.
         wa_compalz-matnr_alt = lv_matnr.
         modify out_cif_compalz  from wa_compalz index v_tabix transporting matnr_alt.
          "<<< check above line 
         clear lv_matnr.
         clear l_acronym.
       endif.
     endif.
    endif    "<<<<<<<<<<<
endloop.

aRs