Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

Reading internal table

Former Member
0 Likes
369

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.

  • MODIFY ITAB_ERR FROM ITAB_DEL2.

ENDIF.

ENDLOOP.

THANX IN ADVANCE

ROCKY

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

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.

  • MODIFY ITAB_ERR FROM ITAB_DEL2.

ENDIF.

ENDLOOP.

THANX IN ADVANCE

ROCKY

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

1 REPLY 1
Read only

Former Member
0 Likes
342

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.