topic Re: Fetch records from internal table in Application Development and Automation Discussions

Fetch records from internal table

Former Member — Wed, 19 Mar 2008 11:35:05 GMT

I HAVE ONE INTERNAL TABLE ITAB_ERR. THIS HAS RECORDS AND I AM FETCHING DATA FROM ISEG AS WELL.

WHAT I WANT IS I NEED TO FETCH THE RECORDS FROM

ITAB_ERR WHOSE RECORDS DO NOT MATCH WITH ISEG TABLE RECORDS.

I HAVE WRITTEN FOLLOWING CODE BUT IT DOES NOT FETCH THE RECORDS FROM ITAB_ERR THAT DOES NOT MATCH WITH ISEG RECORDS i.e. ITAB_ERR HAS SOME RECORDS WHICH ARE NOT THERE IN ISEG AND I NEED TO FETCH THOSE RECORDS FROM ITAB_ERR.

PLEASE LOOK AT MY CODE AND CORRECT OR SUGGEST CORRECTIONS.

ITAB_ERR[] = ITAB_UPD[]. (ITAB_ERR HAS RECORDS)

SELECT *

FROM ISEG INTO CORRESPONDING FIELDS OF TABLE WA_ITAB_ISEG

where werks eq zptf_phyinv_hed-zwerks and zldat eq itab-zldat and budat eq itab-zbldat.

WA_ITAB_ISEG HAS RECORDS.

clear sy-subrc.

sort itab_err by zmatnr1.

LOOP AT WA_ITAB_ISEG.

loop at itab_err INTO ITAB_DEL

where ZWERKS <> WA_ITAB_ISEG-WERKS

and ZLDAT <> WA_ITAB_ISEG-ZLDAT

and ZBLDAT <> WA_ITAB_ISEG-BUDAT

and ZMATNR1 <> WA_ITAB_ISEG-MATNR

and ZCHARG1 <> WA_ITAB_ISEG-CHARG

and ZLGORT <> WA_ITAB_ISEG-LGORT.

IF SY-subrc = 0.

move-corresponding ITAB_err to itab_del2.

append itab_del2.

CLEAR SY-SUBRC.

ENDIF.

ENDLOOP.

THANX

ROCKY

Edited by: Alvaro Tejada Galindo on Mar 19, 2008 7:04 PM

Re: Fetch records from internal table

Former Member — Wed, 19 Mar 2008 11:44:38 GMT

Hi,

during selection in where condition u have compared using internal table. Compare using work Area Fields.

Secondly, You have looped at work-area but i think loop is possible on internal table to workarea.

Thirdly, Dont' use loop within a loop.(performance Issue)

regards

Sandipan ghosh

Re: Fetch records from internal table

Former Member — Wed, 19 Mar 2008 11:48:49 GMT

Write the coding as :

LOOP AT ITAB_ERR.

READ TABLE WA_ITAB_ISEG with key

ZWERKS = ITAB_ERR-WERKS.

If sy-subrc <> 0.

itab_err1 = ITAB_ERR.

append itab_err1.

Endif.

ENDLOOP.

Re: Fetch records from internal table

Former Member — Thu, 20 Mar 2008 02:39:38 GMT

Try This,

LOOP AT WA_ITAB_ISEG.

loop at itab_err INTO ITAB_DEL

where ZWERKS WA_ITAB_ISEG-WERKS

and ZLDAT WA_ITAB_ISEG-ZLDAT

and ZBLDAT WA_ITAB_ISEG-BUDAT

and ZMATNR1 WA_ITAB_ISEG-MATNR

and ZCHARG1 WA_ITAB_ISEG-CHARG

and ZLGORT WA_ITAB_ISEG-LGORT.

DELETE itab_err FROM ITAB_DEL.

ENDLOOP.

Now the itab_err will contains only the records which you required.

Re: Fetch records from internal table

Former Member — Thu, 20 Mar 2008 02:47:12 GMT

Hi,

LOOP AT WA_ITAB_ISEG.

loop at itab_err INTO ITAB_DEL

where ZWERKS WA_ITAB_ISEG-WERKS

and ZLDAT WA_ITAB_ISEG-ZLDAT

and ZBLDAT WA_ITAB_ISEG-BUDAT

and ZMATNR1 WA_ITAB_ISEG-MATNR

and ZCHARG1 WA_ITAB_ISEG-CHARG

and ZLGORT WA_ITAB_ISEG-LGORT.

move-corresponding ITAB_DEL to itab_del2.

append itab_del2.

ENDIF.

ENDLOOP.

No need of SY-SUBRC if condition satisfies then only cursor enter into loop.