Update DBTAB updating only part of records

Question

Hello Gurus, Need your help.
I have an Update Dbtable with Internal Table statement in my ABAP. My IT (Internal table) is a hashed table with same keys and fields as my DB table. Suppose I have 30K records in my IT, ultimately only say 9K records gets updated eventhough all the 30K records exists in the DB table. Next time when I run, it might update 9500 entries but not all again. So this statement is behaving quite badly. Am not doing any Commits, which automatically happens after I run the program. So can you suggest me something, which can solve my issue? or is there anything bad which am doing?
Regards
Shrirama

Answer 1

Here it is.
Line: -
<TABLES /bic/ay2ws1za000.>
TYPES: BEGIN OF ty_docno,
       doc_number TYPE /bic/ay2ws1za000-doc_number,
       s_ord_item TYPE /bic/ay2ws1za000-s_ord_item,
       END OF ty_docno,
       BEGIN OF ty_status,
       doc_number TYPE /bic/ay2ws1za000-doc_number,
       s_ord_item TYPE /bic/ay2ws1za000-s_ord_item,
       rejectn_st TYPE /bic/ay2ws2za000-rejectn_st,
       END OF ty_status.
DATA: l_is_datapack LIKE STANDARD TABLE OF /bic/ay2ws1za000.
Data: l_ih_datapack like hashed table of /bic/ay2ws1za000 with unique
key /BIC/Y_REQSID /BIC/Y_PACKNO /BIC/YRECNO.
DATA: l_ih_docno TYPE HASHED TABLE OF ty_docno WITH UNIQUE KEY
table_line,
      l_is_status TYPE SORTED TABLE OF ty_status WITH NON-UNIQUE KEY
      doc_number s_ord_item.
DATA: ls_docno TYPE ty_docno.
DATA:  l_answer(1)              TYPE c,
       l_error(1)               TYPE c,
       l_tab1(16)               type c,
       l_tab2(16)               type c,
       l_tab3(16)               type c,
       l_tab4(16)               type c.
FIELD-SYMBOLS: <ls_datapack> TYPE /bic/ay2ws1za000,
               <ls_docno> TYPE ty_docno,
               <ls_status> TYPE ty_status.
REFRESH: l_is_datapack[],
         l_ih_docno[],
         l_is_status[].
CLEAR  l_answer.
clear l_tab1.
clear l_tab2.
clear l_tab3.
clear l_tab4.
Selecting records to update from 4 tables.
SELECT * FROM /bic/ay2ws1za000
  APPENDING TABLE l_is_datapack
  WHERE /bic/y_reqsid eq '0003424029' AND
        calquart1 NE '9'.
SELECT * FROM /bic/ay2ws1za100
  APPENDING TABLE l_is_datapack
  WHERE /bic/y_reqsid eq '0003424029' AND
        calquart1 NE '9'.
SELECT * FROM /bic/ay2ws1za200
  APPENDING TABLE l_is_datapack
  WHERE /bic/y_reqsid eq '0003424029' AND
        calquart1 NE '9'.
SELECT * FROM /bic/ay2ws1za300
  APPENDING TABLE l_is_datapack
  WHERE /bic/y_reqsid eq '0003424029' AND
        calquart1 NE '9'.
Collecting the doc number for lookup.
LOOP AT l_is_datapack ASSIGNING <ls_datapack>.
  ls_docno-doc_number = <ls_datapack>-doc_number.
  ls_docno-s_ord_item = <ls_datapack>-s_ord_item .
  ASSIGN ls_docno TO <ls_docno>.
  COLLECT <ls_docno> INTO l_ih_docno.
ENDLOOP.
Lookup into another table. infact 7 tables appending IT.
IF l_ih_docno[] IS NOT INITIAL.
  SELECT doc_number s_ord_item rejectn_st FROM /bic/ay3ws2aa000
    APPENDING TABLE l_is_status
    FOR ALL ENTRIES IN l_ih_docno
    WHERE doc_number = l_ih_docno-doc_number AND
          s_ord_item = l_ih_docno-s_ord_item .
  SELECT doc_number s_ord_item rejectn_st FROM /bic/ay3ws2ab000
    APPENDING TABLE l_is_status
    FOR ALL ENTRIES IN l_ih_docno
    WHERE doc_number = l_ih_docno-doc_number AND
          s_ord_item = l_ih_docno-s_ord_item.
  SELECT doc_number s_ord_item rejectn_st FROM /bic/ay3ws2ba000
    APPENDING TABLE l_is_status
    FOR ALL ENTRIES IN l_ih_docno
    WHERE doc_number = l_ih_docno-doc_number AND
          s_ord_item = l_ih_docno-s_ord_item.
  SELECT doc_number s_ord_item rejectn_st FROM /bic/ay3ws2bb000
    APPENDING TABLE l_is_status
    FOR ALL ENTRIES IN l_ih_docno
    WHERE doc_number = l_ih_docno-doc_number AND
          s_ord_item = l_ih_docno-s_ord_item.
  SELECT doc_number s_ord_item rejectn_st FROM /bic/ay3ws2bc000
    APPENDING TABLE l_is_status
    FOR ALL ENTRIES IN l_ih_docno
    WHERE doc_number = l_ih_docno-doc_number AND
          s_ord_item = l_ih_docno-s_ord_item.
  SELECT doc_number s_ord_item rejectn_st FROM /bic/ay3ws2bd000
    APPENDING TABLE l_is_status
    FOR ALL ENTRIES IN l_ih_docno
    WHERE doc_number = l_ih_docno-doc_number AND
          s_ord_item = l_ih_docno-s_ord_item.
  SELECT doc_number s_ord_item rejectn_st FROM /bic/ay3ws2za000
    APPENDING TABLE l_is_status
    FOR ALL ENTRIES IN l_ih_docno
    WHERE doc_number = l_ih_docno-doc_number AND
          s_ord_item = l_ih_docno-s_ord_item.
SELECT doc_number s_ord_item rejectn_st FROM /bic/ay3ws2zb000
    APPENDING TABLE l_is_status
    FOR ALL ENTRIES IN l_ih_docno
    WHERE doc_number = l_ih_docno-doc_number AND
          s_ord_item = l_ih_docno-s_ord_item.
ENDIF.
LOOP AT l_is_datapack ASSIGNING <ls_datapack>.
updating the fields by reading from IT.
  READ TABLE l_is_status ASSIGNING <ls_status>
  WITH KEY doc_number = <ls_datapack>-doc_number
           s_ord_item = <ls_datapack>-s_ord_item
           BINARY SEARCH.
  IF sy-subrc = 0.
    <ls_datapack>-rejectn_st = <ls_status>-rejectn_st.
  ENDIF.
ENDLOOP.
sort l_is_datapack[] ascending by /BIC/Y_REQSID /BIC/Y_PACKNO
/BIC/YRECNO.
Delete adjacent duplicates from l_is_datapack[] comparing /BIC/Y_REQSID
/BIC/Y_PACKNO /BIC/YRECNO.
l_ih_datapack[] = l_is_datapack[].
refresh l_is_datapack[].
refresh l_is_status[].
refresh l_ih_docno[].
IF l_ih_datapack[] IS NOT INITIAL.
Updating the original tables with this new read field.
    UPDATE /bic/ay2ws1za000 FROM TABLE l_ih_datapack .
    IF sy-subrc NE 0.
      write /'/bic/ay2ws1za000-inserted 0 records'.
    else.
      write /'/bic/ay2ws1za000-inserted records successfully'.
    ENDIF.
    UPDATE /bic/ay2ws1za100 FROM TABLE l_ih_datapack.
    IF sy-subrc NE 0.
      write /'/bic/ay2ws1za100-inserted 0 records'.
    else.
      write /'/bic/ay2ws1za100-inserted records successfully'.
    ENDIF.
    break-point.
    UPDATE /bic/ay2ws1za200 FROM TABLE l_ih_datapack.
    IF sy-subrc NE 0.
      write /'/bic/ay2ws1za200-inserted 0 records'.
    else.
      write /'/bic/ay2ws1za200-inserted records successfully'.
    ENDIF.
    UPDATE /bic/ay2ws1za300 FROM TABLE l_ih_datapack.
    IF sy-subrc NE 0.
      write /'/bic/ay2ws1za300-inserted 0 records'.
    else  .
      write /'/bic/ay2ws1za300-inserted records successfully'.
    ENDIF.
    refresh l_is_datapack[].
ENDIF.
Line: -
Most of the times, it update around only 9500 entries.
Edited by: Sriram k on Jul 28, 2009 7:34 AM I dont know how to show the new lines...:(