Program is not working

Question

friends, need help once again.
i have created one structre which is based on table pa0000 and pa0001. where pernr is primary key on both table. i have seen both table data and there is more then 5000 records for same key. my datasource ias based on this structre and program but when i am checking in bw it is fetch only one recortd. please check my below code and suggest me where i am worng
code -
Tables: pa0000,
pa0001,
ztest12.
Data: begin of itab_pa0000 occurs 0.
include structure ztest12.
Data : end of itab_pa0000.
Data tab type i.
*<query_head>
select * from pa0000 into corresponding fields of table itab_pa0000.
Select * from pa0001 into corresponding fields of table itab_pa0000 where pernr = itab_pa0000-pernr.
append itab_pa0000.
Loop at itab_pa0000.
move-corresponding itab_pa0000 to ztest12.
*<query_body>.
endloop.
please let me know if yopu need any more information
regards

Answer 1

I think the below should work...
empl no begda endda
1277 01.01.1994 31.03.1998
1277 01.04.1998 31.12.9999
table pa0001
1277 01.01.1994 31.12.1996
1277 01.01.1997 31.12.9999
so my datasource shld fetch entries in following way
1277 01.01.1994 31.12.1996
1277 01.01.1997 31.03.1998
1277 01.04.1998 31.12.9999
XXX----
Tables: pa0000,
pa0001,
ztest12.
data: itab_pa0000 like ztest12 occurs 0 with header line,
itab_pa0001 like ztest12 occurs 0 with header line,
itab_final like ztest12 occurs 0 with header line.
Data tab type i.
*<query_head>
select * into corresponding fields of table itab_pa0000
from pa000.
select * into corresponding fields of table itab_pa0001
from pa0001.
loop at itab_pa0000.
clear: itab_pa0001, itab_final.
loop at itab_pa0001 where pernr = itab_pa0000-pernr
and begda = itab_pa0000-begda.
  if itab_pa0000-endda > itab_pa0001-endda.
     move-corresponding itab_pa0001 to itab_final.
  else.
    move-corresponding itab_pa0000 to itab_final.
  endif.
  delete itab_pa0001.
  exit.
endloop.
if sy-subrc ne 0.
   move-corresponding itab_pa0000 to itab_final.
endif.
append itab_final.
endloop.
loop at itab_pa0001.
move-corresponding itab_pa0001 to itab_final.
append itab_final.
endloop.
Loop at itab_final.
move-corresponding itab_final to ztest12.
*<query_body>.
endloop.
Regards
Anurag