topic Re: move to internal table in Application Development and Automation Discussions

move to internal table

Former Member — Sat, 02 Sep 2006 05:20:02 GMT

hi all

data : begin of it_vttk1 occurs 0,

tknum like vttk-tknum,

daten like vttk-daten,

uaten like vttk-uaten,

dtabf like vttk-dtabf,

uzabf like vttk-uzabf,

end of it_vttk1.

Data: begin of it_vttk occurs 0,

tknum like vttk-tknum,

erdat like vttk-erdat,

erzet like vttk-erzet,

aedat like vttk-aedat,

aezet like vttk-aezet,

frkrl like vttk-frkrl,

end of it_vttk.

I want to move the first 2 internal into final internal table i.e it_vttk3.

data: begin of it_vttk3 occurs 0,

erdat like vttk-erdat,

erzet like vttk-erzet,

aedat like vttk-aedat,

aezet like vttk-aezet,

frkrl like vttk-frkrl,

tknum like vttk-tknum,

daten like vttk-daten,

uaten like vttk-uaten,

dtabf like vttk-dtabf,

uzabf like vttk-uzabf,

end of it_vttk3.

Re: move to internal table

Former Member — Sat, 02 Sep 2006 05:34:13 GMT

Hi ,

Can u just modify the internal table?

Add some common field between 2 internal tables & then use append & modify to add the data in the final internal table.

Regards

Kapil

Re: move to internal table

Former Member — Sat, 02 Sep 2006 05:39:36 GMT

Hi,

loop the frist internal table it_vttk1 and than read the second internal table it_vttk with the key 'tknum' if sy-subrc is 0 move the values to final intenal table it_vttk3.

loop at it_vttk1.

read table it_vttk with key tknum = it_vttk1-tknum.

if sy-subrc = 0.

erdat = it_vttk-erdat.

erzet = it_vttk-erzet.

aedat = it_vttk-aedat.

aezet = it_vttk-aezet.

frkrl = it_vttk-frkrl .

tknum = it_vttk1-tknum.

daten = it_vttk1-daten.

uaten = it_vattk1-uaten.

dtabf = it_vattk1-dtabf.

uzabf = it_vattk1-uzabf.

endif.

endloop.

Thank you,

Ramu N.

Re: move to internal table

former_member480923 — Sat, 02 Sep 2006 06:04:53 GMT

Hi,

This might be helpfull:

data: begin of it_vttk3 occurs 0,
<b>tknum like vttk-tknum,</b>
erdat like vttk-erdat,
erzet like vttk-erzet,
aedat like vttk-aedat,
aezet like vttk-aezet,
frkrl like vttk-frkrl,
daten like vttk-daten,
uaten like vttk-uaten,
dtabf like vttk-dtabf,
uzabf like vttk-uzabf,
end of it_vttk3. 


append lines of it_vttk into it_vttk3.

check not it_vttk3[] is initial.
loop at it_vttk3.
read table it_vttk1 with key tknum = it_vttk3-tknum.
<move corresponding values...except tknum>.
modify it_vttk3 index sy-tabix. 
endloop.

Hope This Helps

Anirban

Re: move to internal table

Former Member — Sat, 02 Sep 2006 06:07:30 GMT

hi Priya,

Do this way ..

Loop at one internal table and read the second internal table based on the key fields and then populate the third/final table.

loop at it_vttk1.
  read table it_vttk with key tknum = it_vttk1-tknum.
 if sy-subrc = 0.
  erdat = it_vttk-erdat.
  erzet = it_vttk-erzet.
  aedat = it_vttk-aedat.
  aezet = it_vttk-aezet.
  frkrl = it_vttk-frkrl .
  tknum = it_vttk1-tknum.
  daten = it_vttk1-daten.
  uaten = it_vattk1-uaten.
  dtabf = it_vattk1-dtabf.
  uzabf = it_vattk1-uzabf.
 endif.
endloop.

Regards,

Santosh