Reading internal table

Former Member — Tue, 18 Mar 2008 14:14:06 GMT

HI ALL

I HAVE ONE INTERNAL TABLE AND ONE ISEG TABLE.

I HAVE TO READ BOTH THE TABLES RECORDS, BUT ONLY THE RECORDS WHERE ISEG-IBLNR IS INITIAL.

I HAVE WRITTEN FOLLOWING CODE BUT NOT GETTING RESULTS.

ITAB_DEL AND ITAB_ISEG IS SHOWING DATA IN DEBUG MODE, BUT IT IS NOT RECOGNIZING

SY-SUBRC = 0 AND ITAB_ISEG-IBLNR IS INITIAL CONDITION IN THE FOLLOWING CODE.

I HAVE TO FIRST MOVE THE RECORDS TO itab_del2 WHERE ISEG-IBLNR IS INITIAL.

ONCE ITAB_DEL2 GOT RECORDS, THEN I HAVE TO DELETE ZTAB FROM DEL2.

FOLLOWING IS MY CODE pL CORRECT.

ITAB_DEL[] = ITAB_ERR[].

SELECT IBLNR MATNR WERKS LGORT CHARG ZLDAT BUDAT

FROM ISEG INTO CORRESPONDING FIELDS OF TABLE ITAB_ISEG.

LOOP AT ITAB_ISEG.

READ TABLE ITAB_DEL INTO ITAB_DEL WITH KEY ZWERKS = ITAB_ISEG-WERKS

ZLDAT = ITAB_ISEG-ZLDAT

ZBLDAT = ITAB_ISEG-BUDAT

ZMATNR1 = ITAB_ISEG-MATNR

ZCHARG1 = ITAB_ISEG-CHARG

ZLGORT = ITAB_ISEG-LGORT.

IF SY-SUBRC = 0 AND ITAB_ISEG-IBLNR IS INITIAL.

move-corresponding ITAB_DEL to itab_del2.

append itab_del2.

DELETE ZTAB FROM TABLE ITAB_DEL2.

ENDIF.

ENDLOOP.

THANX IN ADVANCE

ROCKY

Edited by: Alvaro Tejada Galindo on Mar 18, 2008 6:10 PM

Re: Reading internal table

Former Member — Tue, 18 Mar 2008 14:21:17 GMT

Write the coding as ...

LOOP AT ITAB_ISEG where IBLNR IS INITIAL.

READ TABLE ITAB_DEL INTO ITAB_DEL WITH KEY ZWERKS =

ITAB_ISEG-WERKS.

IF SY-SUBRC = 0.

move-corresponding ITAB_DEL to itab_del2.

append itab_del2.

clear itab_del2.

ENDIF.

ENDLOOP.

DELETE ZTAB FROM TABLE ITAB_DEL2.