hi ,
i m facing the problem in looping, well when i m transfering the data into final table be4 that one if condition is there, means my 4 fields contents should not be same.
but the problem is i m not getting the required putput because i m using only one loop on first table and comparing data is coming from another table, so what should do for best result.
form read_data.
clear T_J_3GBELP.
refresh T_J_3GBELP.
select equnr J_3GEMPFAE into
corresponding fields of table
T_J_3GBELP
from J_3GBELP
where J_3GEMPFAE in Reciver.
if sy-subrc <> 0.
message 'No data found' type 'I'.
g_exit = c_x.
stop.
endif.
sort T_J_3GBELP by equnr J_3GEMPFAE.
if not T_J_3GBELP[] is initial.
clear T_EQKT.
refresh T_EQKT.
select EQUNR EQKTX into corresponding fields of table T_EQKT
from EQKT for all entries in T_J_3GBELP
where equnr = T_J_3GBELP-equnr.
endif.
if not T_J_3GBELP[] is initial.
CLEAR T_ITOB.
REFRESH T_ITOB.
select EQUNR SWERK IWERK GSBER into corresponding fields of table T_ITOB
from ITOB for all entries in T_EQKT
where EQUNR = T_EQKT-EQUNR.
endif.
loop at T_J_3GBELP.
IF T_J_3GBELP-J_3GEMPFAE+1(4) NE T_ITOB-SWERK
or T_J_3GBELP-J_3GEMPFAE+1(4) NE T_ITOB-IWERK
or T_J_3GBELP-J_3GEMPFAE+1(4) NE T_ITOB-GSBER.
T_final-EQUNR = T_J_3GBELP-EQUNR. " EQUIPMENT LOG
T_final-J_3GEMPFAE = T_J_3GBELP-J_3GEMPFAE.
read table T_EQKT with key EQUNR = T_J_3GBELP-EQUNR binary search.
if sy-subrc = 0.
T_FINAL-EQKTX = T_EQKT-EQKTX.
ENDIF.
read table T_ITOB with key EQUNR = T_eqkt-EQUNR binary search.
if sy-subrc = 0.
T_FINAL-SWERK = T_ITOB-SWERK.
T_FINAL-IWERK = T_ITOB-IWERK.
T_FINAL-GSBER = T_ITOB-GSBER.
ENDIF.
endif.
append t_final.
clear t_final.
ENDLOOP.
DELETE T_FINAL WHERE EQUNR = '' .
endform. "Read Data
thanks and regards
vj
rewards will be sure for each helpfull answer
Bluesky
