Update terminate on commit Bapi_network_comp_add

Question

Hi experts
   I write a form to add comp to Network.If the networks are not released the form can add components for these network and once commit and wait. if the network is released the form can add components one network and once commit and wait, If do that for more than two network and one network by one commit and wait the update terminat will appear.I read the system log ,It told me insert duplicate.the form code is follow, Anybody can give me a solution to solve this issue.Thanks
FORM FRM_TREAT_COMPANT TABLES PT_ITAB TYPE TY_T_ITAB  USING P_PSPID P_PLANT.
  DATA: WI_LINES TYPE I,
              WS_LINES TYPE STRING,
              WS_CURRLINE TYPE STRING,
               WI_PERCENT TYPE I.
  DATA: WS_MSG TYPE STRING.
  DATA: WA_ITAB_WORK TYPE TY_ITAB,
              WA_ITAB_MAT TYPE TY_ITAB.
  DATA WT_ITAB TYPE STANDARD TABLE OF TY_ITAB.
  DATA WT_MATNR TYPE STANDARD TABLE OF TY_ITAB.
  DATA W_ERROR TYPE C VALUE SPACE.
  DATA WT_MESSAGE TYPE STANDARD TABLE OF TY_MESSAGE.
  DATA W_EQUNR(24) TYPE C.
  DATA WA_MESSAGE TYPE TY_MESSAGE.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  LOOP AT PT_ITAB INTO WA_ITAB_WORK WHERE EQUNR NA '-F' AND AUFNR IS NOT INITIAL.
    APPEND WA_ITAB_WORK TO WT_ITAB.
  ENDLOOP.
  CHECK WT_ITAB[] IS NOT INITIAL.
  DESCRIBE TABLE WT_ITAB LINES WI_LINES.
  WS_LINES = WI_LINES.
  LOOP AT WT_ITAB INTO WA_ITAB_WORK.
    WS_CURRLINE = SY-TABIX.
    CONCATENATE '?y?úu2032|àíu03BCú' WS_CURRLINE 'ì?￡?12' WS_LINES 'ì?' INTO WS_CURRLINE.
    WI_PERCENT = SY-TABIX * 100 / WI_LINES.
    PERFORM FRM_DISPLAY_PROCESS USING WI_PERCENT WS_CURRLINE .
*--Begin Create Matnr
    REFRESH WT_MATNR.
    LOOP AT PT_ITAB INTO WA_ITAB_MAT
         WHERE ( PARENT EQ WA_ITAB_WORK-EQUNR
               AND UPMAT EQ CNS_X
               AND CSTYP NE 'A'  AND FLCOM NE CNS_X ) OR ( EQUNR EQ WA_ITAB_WORK-EQUNR AND UPMAT EQ CNS_X AND FLCOM NE CNS_X ).
      APPEND WA_ITAB_MAT TO WT_MATNR.
    ENDLOOP.
    CHECK WT_MATNR[] IS NOT INITIAL.
    PERFORM FRM_CREATE_MAT TABLES PT_ITAB
                                                         WT_MATNR
                                                         WT_MESSAGE
                                            USING P_PLANT
                                                       WA_ITAB_WORK.
  ENDLOOP.
  LOOP AT WT_MESSAGE INTO WA_MESSAGE WHERE TYPE CA 'EA'.
    W_ERROR = CNS_X.
    EXIT.
  ENDLOOP.
    PERFORM FRM_UPDATE_ZTPS014 TABLES PT_ITAB.
    MESSAGE I000 WITH '×é?té?1ò3é1|'.
  ENDIF.
ENDFORM.                    "FRM_CREATE_COMPANT
FORM FRM_CREATE_MAT TABLES PT_ITAB TYPE TY_T_ITAB
                                                         PT_MATNR TYPE TY_T_ITAB
                                                         PT_MESSAGE TYPE TY_T_MESSAGE
                                            USING P_PLANT
                                                        P_ITAB TYPE TY_ITAB.
  DATA:
              WA_ITAB_TMP TYPE TY_ITAB,
              WA_ITAB_MAT TYPE TY_ITAB,
              WA_MESSAGE TYPE TY_MESSAGE.
  DATA WT_COMPONENTS_ADD TYPE STANDARD TABLE OF BAPI_NETWORK_COMP_ADD WITH HEADER LINE.
  DATA WT_MESSAGE_TABLE TYPE STANDARD TABLE OF BAPI_METH_MESSAGE WITH HEADER LINE.
  DATA W_RETURN LIKE BAPIRET2.
  REFRESH WT_COMPONENTS_ADD.
  LOOP AT PT_MATNR INTO WA_ITAB_MAT .
    WT_COMPONENTS_ADD-ACTIVITY = '0010'.                                                             " ???ˉ
    PERFORM FRM_CONV_VALUE USING WA_ITAB_MAT-MATNR CHANGING WT_COMPONENTS_ADD-MATERIAL.
    WT_COMPONENTS_ADD-PLANT = P_PLANT.
    WT_COMPONENTS_ADD-ITEM_CAT = CNS_ITEMCAT.                                                           " ????àà±e
    WT_COMPONENTS_ADD-ENTRY_QUANTITY = WA_ITAB_MAT-BDMNG.                                            " êyá?
    WT_COMPONENTS_ADD-PUR_GROUP = WA_ITAB_MAT-EKGRP.
    WT_COMPONENTS_ADD-PURCH_ORG = WA_ITAB_MAT-EKORG.
    WT_COMPONENTS_ADD-PRICE = WA_ITAB_MAT-PRICE.
    WT_COMPONENTS_ADD-MRP_RELEVANT = '2'.                                                                      " 2é1oéê??éú3é·?ê?                   1 u2032ó2?     2??u2032?oó       3á￠?u2032
    WT_COMPONENTS_ADD-TYPE_OF_PUR_RESV = '5'.                                                               " 2é1oDè?ó + WBS ?a??u03BC?±￡á?
    WT_COMPONENTS_ADD-TRACKINGNO = WA_ITAB_MAT-XQGZH.                                                                            " Dè?ó?ú×ùo?
    APPEND WT_COMPONENTS_ADD.
  ENDLOOP.
  CHECK WT_COMPONENTS_ADD[] IS NOT INITIAL.
  CALL FUNCTION 'BAPI_NETWORK_COMP_ADD'
    EXPORTING
      NUMBER           = P_ITAB-AUFNR
    IMPORTING
      RETURN           = W_RETURN
    TABLES
      I_COMPONENTS_ADD = WT_COMPONENTS_ADD
      E_MESSAGE_TABLE  = WT_MESSAGE_TABLE.
*--Du2032è??????t
  LOOP AT WT_MESSAGE_TABLE.
    MOVE P_ITAB-EQUNR TO WA_MESSAGE-EQUNR.
    MOVE WT_MESSAGE_TABLE-MESSAGE_TYPE TO WA_MESSAGE-TYPE.
    MOVE WT_MESSAGE_TABLE-MESSAGE_TEXT TO WA_MESSAGE-MESSAGE.
    APPEND WA_MESSAGE TO PT_MESSAGE.
    CLEAR WA_MESSAGE.
  ENDLOOP.
ENDFORM.                    "FRM_CREATE_MAT
FORM FRM_UPDATE_ZTPS014 TABLES PT_ITAB TYPE TY_T_ITAB.
  MODIFY ZTPS_014 FROM TABLE PT_ITAB.
  COMMIT WORK AND WAIT.
ENDFORM.

Answer 1

Hi Amit,
ME_UPDATE_REQUISITION is giving the dump as it is tryingto  insert a PR that is already there in EBAN..
But i dont know why this is happening as a COMMIT WORK is also there after the first execution
of BAPI_NETWRK_COMP_ADD that too with a WAIT statement
It should insert a new PR .It should not take the previous one.
The problem is coming only if the activity is released...if the activity is not released everything is fine
Regards,
Nishant Rana