topic Re: Read table probelm in Application Development and Automation Discussions

Read table probelm

Former Member — Sun, 28 Feb 2010 02:14:36 GMT

hi i have one internal table T_STAT like that

vbeln posnr matnr

111 10 abc

111 20 def

112 10 abc

112 20 abc

113 30 def

I am using read table compare only matnr. means the line items which contain matnr abc should move other internal table.

but it is moving only one record. is it possible without loop.

Re: Read table probelm

Former Member — Sun, 28 Feb 2010 07:40:04 GMT

READ TABLE reads just one record. So in your case, it will not work. You use

LOOP at ITAB WHERE MATNR eq 'abc'.

move the records to another internal table.

ENDLOOP.

Re: Read table probelm

kesavadas_thekkillath — Sun, 28 Feb 2010 10:13:49 GMT

I think you are doing this with two itabs.

Loop at itab1 into wa. "The matnr to be checked

loop at itab2 into wa2 from wk_tabix. "The records to be moved.

if wa2-matnr ne wa-matnr.

wk_tabix = sy-tabix.

exit.

endif.

move-corresponding wa2 to wa3.

append wa3 to itab3.

endloop.

Re: Read table probelm

StMou — Sun, 28 Feb 2010 10:56:04 GMT

hi,

try this



data T_STAT_ABC  like T_STAT occurs 0.

T_STAT_ABC[] = T_STAT[].

delete T_STAT_QBC where MATNR NE 'ABC'.

you have in T_STAT_ABC entry with matnr = 'ABC' without used loop. CQFD

Rgds

Re: Read table probelm

Former Member — Mon, 01 Mar 2010 07:47:58 GMT

Hi Priyank,

Try with the below mentioned code :


data : begin of itab occurs 0,
        vbeln(3) type c,
        posnr(2) type c,
        matnr(3) type c ,
        end of itab.

*data : itab type table of ty_tab,
*       wa_itab like line of itab.
data : ind type i value 1.
data : it_final like itab occurs 0.
data : recs type i.

itab-vbeln = '111'.
itab-posnr = '10'.
itab-matnr = 'abc'.
append itab.
clear itab.

itab-vbeln = '111'.
itab-posnr = '20'.
itab-matnr = 'def'.
append itab.
clear itab.

itab-vbeln = '112'.
itab-posnr = '10'.
itab-matnr = 'abc'.
append itab.
clear itab.

itab-vbeln = '112'.
itab-posnr = '20'.
itab-matnr = 'abc'.
append itab.
clear itab.

itab-vbeln = '113'.
itab-posnr = '30'.
itab-matnr = 'def'.
append itab.
clear itab.


read table itab.

recs = sy-tfill.

while ind LE recs.
read table itab into itab index ind.
if itab-matnr = 'abc'.
append itab to it_final.
clear itab.
endif.
ind = ind + 1.
endwhile.

Cheers