Moving records to a table based on a condition...

Question

Hello experts,
Here is the problem.
1. select all records from table ztm0019 and put it in internal table t_ztm0019_tmp.
2. sort t_ztm_acc_variance by sernr(serial no), datum in descending order and uzeit also in descending order.
3. now loop t_ztm_acc_variance and at every new sernr, check whether its bwart is either 702, 708, 712, 718. Now if it is, move all of it(of the same serial no) into another table named t_ztm0019_tmp but if its bwart is not equal to the bwarts above then leave the first record and move all the remaining(with same serial no) in t_ztm0019. And then all the records that satisfied the condition must be deleted from the source table which is ztm0019.
4. all the records of t_ztm0019_tmp would now be inserted to table ztm_acc_variance.
example:
     SERNR        BWART
   123456         702
   123456         701
   123456         708
   123456         707
   222222         702
   222222         701
So at every new sernr in the loop it must check whether the bwart is either 702, 708, 712, 718. If it is, then move all of the records with same sernr(123456) and so on. but if it is like this:
    SERNR        BWART
   123456         701
   123456         702
   123456         701
   123456         718
the first record should be retained and the 2nd to last record(of the same sernr) must be moved.
Help would really be appreciated. Thank you very much guys!

Answer 1

1.
DATA  t_ztm0019_tmp LIKE TABLE OF ztm0019 WITH HEADER LINE.
SELECT *
FROM ztm0019
INTO TABLE t_ztm0019_tmp.
2.
SORT t_ztm_acc_variance BY <b>sernr ascending datum uzeit descending.</b>
3.
<b>DATA is_new TYPE i.</b>LOOP AT t_ztm_acc_variance.
AT NEW sernr.
IF bwart EQ '702' OR
   bwart EQ '708' OR
   bwart EQ '712' OR
   bwart EQ '718'.
is_new = 1.
LOOP AT t_ztm_acc_variance WHERE sernr = t_ztm_acc_variance-sernr.
IF sy-subrc EQ 0.
APPEND t_ztm_acc_variance TO t_ztm0019_tmp.
DELETE t_ztm_acc_variance.
ENDIF.
ENDLOOP.
ENDAT.
IF is_new EQ 1.
APPEND t_ztm_acc_variance TO t_ztm0019_tmp.
DELETE t_ztm_acc_variance.
ENDIF.
AT END OF sernr.
is_new = 0.
ENDAT.
ENDLOOP.
4.
CLEAR ztm_acc_variance[].
APPEND LINES OF t_ztm0019_tmp TO ztm_acc_variance.