Small issue in dialog program

Question

Hello all,
i have a requirement in dialog programming.
I have to modify a record a record which exist in zatble.
For each record , i have a header info, item details.
for header iam ok , i can use modify.
for item details i have like
itemno    material     materialdesc quantity
1          m1           pqr          12
2          m2           def          9
3          m3           abc          2
4          m4           xyz          1
item no and material are my primary keys.
so iam retrieving this data from a z table and have to update.
may be i need to delete 3 record and modify 2 record,i would do that based on the selectionfrom table control
itemno    material     materialdesc quantity
1          m1           pqr          12
2          m2           def          19
3          m4           xyz          1
now i have deleted 3 record and modifed 2 with increase in quantity and the itemno are changed
I have ths data in my internal table.
iAM USING MODIFY STATEMNT WHEN I SAVE THE DATA INTO DATABASE TABLE.
i SEE THE FOLLOWING DAT AIN MY ZTABLE
1          m1           pqr          12
2          m2           def          19
3          m3           abc          2
4          m4           xyz          1
3          m4           xyz          1
THOGHT I NEED ONLY THESE DATA TO BE PRESENT IN MY ZTABLE
1          m1           pqr          12
2          m2           def          19
3          m4           xyz          1
Any help or suggestions regarding this
Thanks
Suchitra

Answer 1

Hi suchitra,
do one thing ,,
first task
1.first of all select all the contents of ztable based on primary keys into a internal table itab.
1 m1 pqr 12
2 m2 def 9
3 m3 abc 2
4 m4 xyz 1
2. in ur m-pool table control u r performing the operations like delete and modify to the table control GET THE CONTENTS INTO UR FINAL TABLE JTAB ..Lets say
This is ur final jtab.
1 m1 pqr 12
2 m2 def 19
4 m4 xyz 1
NOW PERFORM COMPARISIONS,
3.  LOOP AT ITAB.
    READ TABLE JTAB WITH KEY ITEMNO = ITAB-ITEMNO
                                                   AND MATNR  = JTAB-MATNR
                                                    And  menge     =  jtab -menge       
          IF SY-SUBRC <> 0.
            ITAB-ITEMNO  = JTAB-ITEMNO.
            ITAB_MATNR   = JTAB-MATNR.
            ITAB_MATDESC = JTAB_MATDESC
            ITAB_MENGE   = JTAB_MENGE
            MODIFY  ITAB. ”TRANSPORTING 
          ENDIF.
          ENDLOOP.
THIS WILL COVER RECORD 2 IN UR ITAB CHANGES ARE OK  ..
second task ..
4. NOW SINCE U HAVE DELETED RECORD 3 ,, PLACE  IN AN EXTRA FILED IN THE JTAB  STRUCTURE
LIKE CHAR TYPE C, SAME HAS TO BE IN ITAB ALSO
AND MAKE IT X WHEN EVER U DELETE IT IN TABLE CONTROL
LIKE THIS THE O/P IM EXPECTING HERE IS IN JTAB
1 m1 pqr  12
2 m2 def   19
3 m3 abc    2     x
4 m4 xyz   1
LOOP AT ITAB.
    READ TABLE JTAB WITH KEY ITEMNO = ITAB-ITEMNO
                                                   AND MATNR  = JTAB-MATNR
IF JTAB-CHAR = ‘X’.
            ITAB-ITEMNO     = JTAB-ITEMNO.
            ITAB_MATNR      = JTAB-MATNR.
            ITAB_MATDESC = JTAB_MATDESC
            ITAB_MENGE      = JTAB_MENGE
            ITAB-CHAR          = JTAB-CHAR
            MODIFY  ITAB.  ”TRANSPORTING 
          ENDIF.
  ENDLOOP.
NOW THE ITAB CONTENT IS
1 m1 pqr  12
2 m2 def   19
3 m3 abc    2     x
4 m4 xyz   1
My suggestion to u is modify the ztable from itab .
Without deleting entry 3
This will solve ur prob .
Cause when u do a select next time
Select entries where  char <> ‘X’
Which will fetch u
1 m1 pqr 12
2 m2 def 19
4 m4 xyz 1
Try to bring the logic in a single loop this will do
i have split this for ur understanding ....