hi ,
use this it will exactly run,
report ztestprogramfordownload.
tables:zupload.
data:it_pa0002(200).
types: begin of ty_pa0002 ,
pernr like pa0002-pernr,
begda like pa0002-begda,
endda like pa0002-endda,
vorna like pa0002-vorna,
nachn like pa0002-nachn,
end of ty_pa0002.
data:begin of it_error occurs 0 ,
pernr like pa0000-pernr,
end of it_error .
data:it_final type standard table of ty_pa0002 with header line.
data:it_temp type standard table of ty_pa0002 with header line.
parameters:p_file like rlgrap-filename default 'F:\usr\sap\EC6\DVEBMGS00\work\entiraledu1'.
start-of-selection.
open dataset p_file for input in text mode encoding default.
do.
read dataset p_file into it_pa0002.
if sy-subrc = 0.
it_final-pernr = it_pa0002+0(8).
it_final-begda = it_pa0002+18(8).
it_final-endda = it_pa0002+36(8).
it_final-vorna = it_pa0002+54(40).
it_final-nachn = it_pa0002+104(40).
append it_final.
clear it_final.
else.
exit.
endif.
enddo.
if not it_final[] is initial.
sort it_final by pernr begda descending.
delete adjacent duplicates from it_final comparing pernr .
select pernr
begda
endda
vorna
nachn
from pa0002
into table it_temp
for all entries in it_final
where pernr = it_final-pernr.
endif.
loop at it_temp.
zupload-pernr = it_temp-pernr.
zupload-begda = it_temp-begda.
zupload-endda = it_temp-endda.
zupload-vorna = it_temp-vorna.
zupload-nachn = it_temp-nachn.
insert zupload.
clear it_temp.
clear zupload.
endloop.
close dataset p_file.
reward points if useful,
venkat.
Bluesky
