2008 Mar 18 2:14 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
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
2008 Mar 18 2:21 PM
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.
| User | Count |
|---|---|
| 3 | |
| 2 | |
| 2 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 |