Deleting block from internal table with AT / ENDAT

Question

Hi.
I have the following code:
sort itab by pred_doc.
loop at itab into wa_cust.
At end of pred_doc.
sum.
write :/ wa_cust-pred_doc, wa_cust-amount.
if wa_cust-amount = 0.
Delete entire block of this pred_doc
endif.
endat.
endloop.
Within that "IF" statement, I want to delete the entire block (all entries with that pred_doc).  How do I do this?  I'm not sure of the syntax.  In other words, I just need to do subtotals of the internal table by pred_doc on amount.  If the subtotal equals zero, the records for that pred_doc need to be removed from the internal table. 
Thanks,
Clay

Answer 1

Hi,
I agree with Rob. Use two internal tables for this purpose.
data: itab1 like itab. New internal table which will hold the required entries
sort itab by pred_doc.
loop at itab into wa_cust.
At end of pred_doc.
sum.
write :/ wa_cust-pred_doc, wa_cust-amount.
if wa_cust-amount ne 0. " If the workarea has the subtotal entry with amount not equal to zero, then transfer it to a new internal table
append wa_cust to itab1
endif.
endat.
endloop.
Now itab1 will contain your required entries. But please note that this will be the 'summed up' entries and not the the individual entries before summing up.
Hope this helps!
Cheers,
Mahesh