topic question on itabs in Application Development and Automation Discussions

question on itabs

Former Member — Wed, 23 May 2007 05:15:55 GMT

friends i have scenario in which

i have to make sure there are no two entries in itab2 ie.

for every name entry in itab1 ,

check that a corresponding UNIQUE entry for that name exists in itab2. ie.

if itab1 has an entry john in name field, then itab should have exactly one entry as john in name entry.

not zero not 2, but exactly one.

i thought of following code. does any one have a better idea, with read or anything else.

count = 0.

loop at itab1.

loop at itab2 where name EQ itab1-name.

count = count +1.

endloop.

if count >1.

write:/ ' error'.

endif.

Re: question on itabs

Former Member — Wed, 23 May 2007 05:19:00 GMT

Hi Saritha,

i Find thats fine.

count = 0.

loop at itab1.

loop at itab2 where name EQ itab1-name.

count = count +1.

if count >1.

count = 0.

write:/ ' error'.

exit.

endif.

endloop.

Try this and reward points if helpful.

Regards,

Ravi G

Re: question on itabs

Former Member — Wed, 23 May 2007 05:19:57 GMT

Hi,

YOu can try this way...

Loop at ITAB1.

Read table ITAB2 where name = ITAB1-NAME.

if sy-subrc NE 0.

write:\ ' Error'.

Endif.

Endloop.

Regards,

sachin

Re: question on itabs

anversha_s — Wed, 23 May 2007 05:20:12 GMT

hi,

chk this. will improve perfromance.

count = 0.
clear count.
loop at itab1.
loop at itab2 where name EQ itab1-name.
count = count +1.
<b>if count >1.
exit.
endif.</b> 
endloop.
endloop.

if count >1.
write:/ ' error'.
endif.

Rgds

Anver

Re: question on itabs

Former Member — Wed, 23 May 2007 05:20:23 GMT

hi saritha,

one small change

count = 0.

loop at itab1.

loop at itab2 where name EQ itab1-name.

count = count +1.

endloop.

if count >1 and count = 0. " (u said know ther shuld be 1 not 0 & 2 )

write:/ ' error'.

endif.

With regards,

S.Barani

Re: question on itabs

dev_parbutteea — Wed, 23 May 2007 05:25:53 GMT

sort itab2 by name

sort itab1 by name

loop at itab1 into wa_area1.

read table itab2 into wa_area2 where name = wa_area1-name binary search.

clear v_index.

move sy-tabix to V_index.

if sy_subrc = 0. " i.e. 1 record exists.

-- read table itab2 into wa_area2 index v_index.

if sy_subrc = 0. " i.e 2nd record exists.

error msg or watever

else. " i.e. only 1 record exists.

do processing

endif.

else. " i.e. no record exists.

--error msg or watever

endif.

Regards,

Sooness.

Re: question on itabs

Former Member — Wed, 23 May 2007 05:26:04 GMT

Hi,

You have to maintain a flag in itab1 for unique entry & make it X if there is corresponding 1 entry in itab2.

count = 0.

sort itab2 by name.

loop at itab1.

loop at itab2 where name EQ itab1-name.

count = count +1.

if count > 1.

exit.

endif.

endloop.

if count ne 1.

itab-flag = 'X'.

modify itab1.

endif.

clear : count,itab1,itab2.

endloop.

Thanks

Sandeep

Reward if helpful

Re: question on itabs

dev_parbutteea — Wed, 23 May 2007 05:28:22 GMT

hi, there's a small error:

if sy_subrc = 0. " i.e. 1 record exists.

V_index2 = V_index + 1.

-- read table itab2 into wa_area2 index v_index2.

if sy_subrc = 0. " i.e 2nd record exists.

Re: question on itabs

Former Member — Wed, 23 May 2007 05:30:29 GMT

Hi Saritha,

The way u choose is ok. Let me tell u one more way.

You can use one more itab just for this purpose. Eg itab3.

then do a read to the itab3 with ur key, if u find Your record, delete that entry, then do a read again in itab3. At this stage u can decide the multiple occurance of the record.

Hope this will help u to avoid the looping.

Regards

Sarath

Re: question on itabs

Former Member — Wed, 23 May 2007 05:37:42 GMT

hi saritha,

report xxx message-id msg1.

data:count type i value 0.

loop at itab1.

loop at itab2 where name EQ itab1-name.

if sy-subrc eq 0.

count = count +1.

endif.

else.

if count >1.

message e000 with ' error'.

endif.

endloop.

if helpful reward some points.

with regards,

suresh babu aluri.