Open Production Order with Mark for deletion

Question

Hi
Friends again stuck in open production order
i want to calculate  production order quantity for open production order,
only those production order which dont have mark for deletion.
I find a field in afpo XLOEK ..but it wont get reflects when done changes in CO02
Then i used the table JEST and i want to delete those aufnr which has deletion flag i wrote the folowing code pls do correct me where iam wrong .
IN this code  deletes aufnr which are marked as deletion  ?
SELECT afko~aufnr
       afko~gamng
       afko~plnbez
       afpo~dwerk
       afpo~psmng
       afpo~matnr
       INTO CORRESPONDING FIELDS OF TABLE i_afko
       FROM afko INNER JOIN
       afpo ON afpoaufnr = afkoaufnr
       WHERE afpo~dwerk = s_werks
      AND   afpo~matnr IN s_matnr
      AND afpo~elikz = space.
LOOP AT i_afko.
  CONCATENATE 'OR' i_afko-aufnr INTO i_afko-aufnr.
  MODIFY i_afko.
ENDLOOP.
IF NOT  i_afko[] IS  INITIAL.
  SELECT jest~objnr
         jest~stat
         jest~inact
          INTO CORRESPONDING FIELDS OF TABLE i_jest
          FROM jest
         FOR ALL ENTRIES IN i_afko
         WHERE objnr = i_afko-aufnr.
ENDIF.
LOOP AT i_jest INTO wa_ijest.
  IF wa_ijest-stat = 'I0076' and ( wa_ijest-inact = SPACE  ).
    DELETE i_afko WHERE aufnr = wa_ijest-objnr.
  ENDIF.
ENDLOOP.
i_afko1[]  =  i_afko[].
SORT i_afko BY matnr dwerk.
DELETE ADJACENT DUPLICATES FROM i_afko COMPARING matnr dwerk.
loop ....
calculate :quantity
endloop.
Regards and answers will be rewarded points

Answer 1

thnks
solved the problem
regards