Getting dump in my Z program

Question

hi,
i am  getting dump in my below code in the delete statement line.actually previously it worked fine but now suddenly we r getting dump  in the second delete statement below.can some body tell me the reason.
error analysis: You attempted to change, delete or create a line in the
internal table "\PROG=YBDISEMAT\DATA=INT_MARC", but no valid cursor exists
for the table.
Possible reasons:
1. The relevant ABAP/4 statement does not include the addition
   "...INDEX...", although the statement is not
   inside a "LOOP...ENDLOOP" loop processing this table.
2. The relevant ABAP/4 statement was called from within a
   "LOOP...ENDLOOP" loop after a DELETE "\PROG=YBDISEMAT\DATA=INT_MARC".
LOOP AT int_marc INTO wa_marc.
        IF wa_marc-werks IN ra_source.
          READ TABLE int_disgr WITH KEY zdisgr = wa_marc-disgr
                                        zwerks = wa_marc-werks.
          IF sy-subrc NE 0.
            DELETE int_marc.
          ENDIF.
        ENDIF.
        IF wa_marc-werks IN ra_zmdc.
          READ TABLE int_disgr WITH KEY zdisgr = wa_marc-disgr
                                        zwerks = wa_marc-werks.
          IF sy-subrc NE 0.
            DELETE int_marc. _______________________________________________ getting dump here
          ENDIF.
        ENDIF.
        CLEAR wa_marc.
      ENDLOOP.

Answer 1

Hi.
First of all deleting an internal table inside the loop is not a good practise ..You are deleting the same internal table that you are looping..
Instead of that you can make a small modification to your code.
LOOP AT int_marc INTO wa_marc.
IF wa_marc-werks IN ra_source.
READ TABLE int_disgr WITH KEY zdisgr = wa_marc-disgr
zwerks = wa_marc-werks.
IF sy-subrc NE 0.
move 'X' to any field in the internal table.
or you can have an additinal field in the end of the internal table like flag type char01.
and move 'X' to wa_marc-flag.
ENDIF.
ENDIF.
Now outside the loop you can delete
delete int_marc where flag = 'X'.
Regards
Ansari