How to avoid using bapi_commit inside a loop .

Question

Hi ,
Need a help.
This is a program for uploading business partners in CRM.
The basic logic of the program is as below:
-         There are two types of records in the upload file – new/ old ones to be updated
-         A new record is identified by checking if a BP exits based on the cust id
-         In case it is a new record certain BAPI’s are called to create a new BP, else the address details, identification etc are updated for the existing one.
-         SQL analysis of the program showed that the maximum amount of time is taken in INSERT/UPDTAE/COMMIT processes.
When we raised the issue with SAP , they stated that the problem occurs due to the very high no of BAPI_COMMIT calls which is within the loop.
The standard BAPI available allows passing of one record at a time. Hence passing multiple records at a time and a single commit did not seem feasible.
Also while updating since there are different BAPI’s for address and identification it is being called in a sequence and commit issued after each. If commit is excluded it gives a locking error since the first BAPI tends to lock the record and does not allow subsequent BAPI call
kindly suggest me with a solution of using a less commit for updating series of records.
The code is as follows:
*& Report  ZBP_BDCP_ACCTRNSDATA_UPLOAD                                 *
*& Created By : Radhu Shankar.G                                        *
*& Purpose    : Program to Create Investors with the transaction       *
*&              data received from the De-dupe Software.               *
*& Note       : Can be Executed or scheduled only in Background        *
REPORT  zbp_bdcp_acctrnsdata_upload LINE-SIZE 255 LINE-COUNT 65 NO STANDARD PAGE HEADING
                                                                   MESSAGE-ID zcrm_upload.
TABLES : bbp_iu01.
Selection Screen
SELECTION-SCREEN: BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
PARAMETERS: p_file TYPE string LOWER CASE OBLIGATORY.
SELECTION-SCREEN: END OF BLOCK blk1.
SELECTION-SCREEN: BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002.
SELECT-OPTIONS:s_email FOR bbp_iu01-email NO INTERVALS.
SELECTION-SCREEN: END OF BLOCK blk2.
SELECTION-SCREEN: BEGIN OF BLOCK blk3 WITH FRAME TITLE text-003.
SELECTION-SCREEN COMMENT /1(72) text-004.
SELECTION-SCREEN COMMENT /1(72) text-006.
SELECTION-SCREEN COMMENT /1(72) text-007.
SELECTION-SCREEN COMMENT /1(72) text-005.
SELECTION-SCREEN: END OF BLOCK blk3.
Data Declaration
Main Upload structure and internal table
DATA : BEGIN OF i_main,
         cust_id        TYPE bu_bpext,              " Customer ID
         inv_type_code  TYPE crmt_mktpfchr_atvalue, " Investor Type Code
         insti_tag      TYPE crmt_mktpfchr_atvalue, " Retail/Instituitional Tag
         name           TYPE char120,               " Name
         address1       TYPE ad_strspp1,                    " Address1
         address2       TYPE ad_strspp2,                    " Address2
         address3       TYPE ad_street,                     " Address3
         city           TYPE ad_city1,              " City
         state          TYPE t005u-bezei,           " Region/State
         country        TYPE landx50,               " Country
         pin_code       TYPE ad_pstcd1,             " Pin Code
         off_phone1     TYPE ad_tlnmbr,             " Office Telephone Number1
         off_phone2     TYPE ad_tlnmbr,             " Office Telephone Number2
         res_phone1     TYPE ad_tlnmbr,             " Residence Telephone Number1
         res_phone2     TYPE ad_tlnmbr,             " Residence Telephone Number1
         mobile         TYPE ad_mbnmbr1,            " Mobile Number
         email          TYPE ad_smtpadr,                    " Email ID
         birth_date     TYPE bu_birthdt,            " Birth Date
         pan_no         TYPE bu_id_number,          " Pan Number
         lob            TYPE crmt_mktpfchr_atvalue, " Line of Business
         fam_tag        TYPE bu_id_number,          " FAM Tag Number
         mod_date       TYPE sy-datum,              " Modified Date
       END OF i_main.
DATA : it_main      LIKE i_main            OCCURS 0 WITH HEADER LINE.
Error file structure and internal table
DATA : BEGIN OF i_error,
         cust_id        TYPE bu_bpext,              " Customer ID
         inv_type_code  TYPE crmt_mktpfchr_atvalue, " Investor Type Code
         insti_tag      TYPE crmt_mktpfchr_atvalue, " Retail/Instituitional Tag
         name           TYPE char120,                     " Name
         address1       TYPE ad_strspp1,                    " Address1
         address2       TYPE ad_strspp2,                    " Address2
         address3       TYPE ad_street,                     " Address3
         city           TYPE ad_city1,              " City
         state          TYPE t005u-bezei,           " Region/State
         country        TYPE landx50,               " Country
         pin_code       TYPE ad_pstcd1,             " Pin Code
         off_phone1     TYPE ad_tlnmbr,             " Office Telephone Number1
         off_phone2     TYPE ad_tlnmbr,             " Office Telephone Number2
         res_phone1     TYPE ad_tlnmbr,             " Residence Telephone Number1
         res_phone2     TYPE ad_tlnmbr,             " Residence Telephone Number1
         mobile         TYPE ad_mbnmbr1,            " Mobile Number
         email          TYPE ad_smtpadr,                    " Email ID
         birth_date     TYPE bu_birthdt,            " Birth Date
         pan_no         TYPE bu_id_number,          " Pan Number
         lob            TYPE crmt_mktpfchr_atvalue, " Line of Business
         fam_tag        TYPE bu_id_number,          " FAM Tag Number
         mod_date       TYPE sy-datum,              " Modified Date
         bp             TYPE bapibus1006_head-bpartner, " BP
         recno(4)       TYPE c,                         " Record No
         message(255)   TYPE c,                         " Error Message
       END OF i_error.
DATA : it_error         LIKE i_error            OCCURS 0 WITH HEADER LINE.
BP Telephone, Email & Role Details
DATA : w_bp_tel        TYPE bapiadtel,
       it_bp_tel       TYPE bapiadtel             OCCURS 0 WITH HEADER LINE,
       it_bp_tel1      TYPE bapiadtel             OCCURS 0 WITH HEADER LINE,
       it_bp_email     TYPE bapiadsmtp            OCCURS 0 WITH HEADER LINE,
       it_bp_email1    TYPE bapiadsmtp            OCCURS 0 WITH HEADER LINE,
       it_bapicomrem   TYPE STANDARD TABLE OF bapicomrem   WITH HEADER LINE,
       it_bapicomrem_x TYPE STANDARD TABLE OF bapicomrex   WITH HEADER LINE,
       it_tel_x        TYPE STANDARD TABLE OF bapiadtelx   WITH HEADER LINE,
       it_email_x      TYPE STANDARD TABLE OF bapiadsmtx   WITH HEADER LINE,
       it_role         TYPE bapibusisb990_bproles OCCURS 0 WITH HEADER LINE,
       it_role_cp      TYPE bapibusisb990_bproles OCCURS 0 WITH HEADER LINE.
BP Identication Details
DATA: BEGIN OF it_identification OCCURS 0,
        idcategory TYPE bapibus1006_identification_key-identificationcategory,
        idnumber   TYPE bapibus1006_identification_key-identificationnumber,
      END OF it_identification.
DATA : w_identification TYPE bapibus1006_identification.
BP Marketing Attributes
DATA : BEGIN OF it_crmt OCCURS 0,
        crmt TYPE crmt_mktprof_keys-profile_template_id,
       END   OF it_crmt.
DATA : it_crmt1  TYPE STANDARD TABLE OF crmt_mktprof_comw WITH HEADER LINE,
       it_crmt2  TYPE STANDARD TABLE OF crmt_mktprof_comw WITH HEADER LINE,
       it_crmt3  TYPE STANDARD TABLE OF crmt_mktprof_comw WITH HEADER LINE,
       it_crmt4  TYPE STANDARD TABLE OF crmt_mktprof_comw WITH HEADER LINE,
       it_crmt5  TYPE STANDARD TABLE OF crmt_mktprof_comw WITH HEADER LINE,
       it_bp_ret TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE.
BP Basic Details
DATA : v_partn_cat       TYPE bapibus1006_head-partn_cat,
       w_central         TYPE bapibus1006_central,
       w_central_x       TYPE bapibus1006_central_x,
       w_central_org     TYPE bapibus1006_central_organ,
       w_central_per     TYPE bapibus1006_central_person,
       w_central_group   TYPE bapibus1006_central_group,
       w_centralorg_x    TYPE bapibus1006_central_organ_x,
       w_centralperson_x TYPE bapibus1006_central_person_x,
       w_centralgrp_x    TYPE bapibus1006_central_group_x,
       w_address         TYPE bapibus1006_address,
       w_addr_x          TYPE bapibus1006_address_x,
       v_bp              TYPE bapibus1006_head-bpartner.
Declaration for Duplication Check
DATA : w_zacc_address  TYPE zacc_address,
       g_dup_status      TYPE i.
DATA : it_dup_bp TYPE STANDARD TABLE OF zbuspartner WITH HEADER LINE.
CONSTANTS: c_pan     TYPE bu_id_type  VALUE 'ZID003',
           c_fam_tag TYPE bu_id_type  VALUE 'ZID011',
           c_cust    TYPE bu_id_type  VALUE 'ZID009'.
Other Declarations
DATA : v_inv_type      TYPE crmt_mktpfchr_atvalue, " Investor Type Code
       v_file          TYPE string,
       v_firstname     TYPE bu_nameor1,
       v_filename1(14) TYPE c,
       v_filename2(14) TYPE c,
       v_lines         TYPE int4,
       v_cat           TYPE bu_type,
       recno           TYPE int4,
       loopno          TYPE int4,
       it_iden_ret     TYPE bapiret2 OCCURS 0,
       it_attr_ret     TYPE bapiret2 OCCURS 0,
       it_role_ret     TYPE bapiret2 OCCURS 0,
       wa_iden_ret     TYPE bapiret2,
       wa_attr_ret     TYPE bapiret2,
       it_iden_flag    TYPE c,
       it_attr_flag    TYPE c,
       flag_central    TYPE c,
       flag_addr       TYPE c,
       flag_bp         TYPE c,
       flag_suc        TYPE c,
       flag_exist      TYPE c,
       flag_exit       TYPE c,
       g_bp_msg        TYPE string,
       g_bp_msg1       TYPE string.
DATA : BEGIN OF i_success,
         rec   TYPE  int4,                      "Record
         name  TYPE  bu_nameor1,                "Name
         bp    TYPE  bapibus1006_head-bpartner, "Business Partner
       END OF i_success,
       it_success     LIKE i_success OCCURS 0 WITH HEADER LINE,
       it_upd_success LIKE i_success OCCURS 0 WITH HEADER LINE.
Data Declaration for converting spool request to PDF and to trigger mail
DATA : gd_recsize TYPE i.
Spool IDs
TYPES : BEGIN OF t_tbtcp.
        INCLUDE STRUCTURE tbtcp.
TYPES : END OF t_tbtcp.
DATA : it_tbtcp TYPE STANDARD TABLE OF t_tbtcp INITIAL SIZE 0,
       wa_tbtcp TYPE t_tbtcp.
Job Runtime Parameters
DATA : gd_eventid                 LIKE tbtcm-eventid,
       gd_eventparm               LIKE tbtcm-eventparm,
       gd_external_program_active LIKE tbtcm-xpgactive,
       gd_jobcount                LIKE tbtcm-jobcount,
       gd_jobname                 LIKE tbtcm-jobname,
       gd_stepcount               LIKE tbtcm-stepcount,
       gd_error                   TYPE sy-subrc,
       gd_reciever                TYPE sy-subrc.
DATA : w_recsize TYPE i.
DATA : gd_subject   LIKE sodocchgi1-obj_descr,
       it_mess_bod LIKE solisti1 OCCURS 0 WITH HEADER LINE,
       it_mess_att LIKE solisti1 OCCURS 0 WITH HEADER LINE,
       gd_sender_type     LIKE soextreci1-adr_typ,
       gd_attachment_desc TYPE so_obj_nam,
       gd_attachment_name TYPE so_obj_des.
Spool to PDF conversions
DATA : gd_spool_nr LIKE tsp01-rqident,
       gd_destination LIKE rlgrap-filename,
       gd_bytecount LIKE tst01-dsize,
       gd_buffer TYPE string.
Binary store for PDF
DATA : BEGIN OF it_pdf_output OCCURS 0.
        INCLUDE STRUCTURE tline.
DATA : END OF it_pdf_output.
DATA : v_email1 TYPE somlreci1-receiver,
       v_sender TYPE somlreci1-receiver.
CONSTANTS: c_no(1)     TYPE c   VALUE ' ',
           c_device(4) TYPE c   VALUE 'LOCL',
           c_delspl    TYPE c   VALUE 'X'.
DATA : BEGIN OF result OCCURS 0,
         line(100) TYPE c,
       END OF result.
DATA:i_id_tab TYPE STANDARD  TABLE OF bapibus1006_id_details WITH HEADER LINE.
eliminting the error for convt page error
data: g_spl type c value ''.
eliminting the error for convt page error
Initialization
Renaming the target file daily
CONCATENATE '_' sy-datum '.txt' INTO v_filename1.
CONCATENATE '_' sy-datum '.TXT' INTO v_filename2.
START-OF-SELECTION
START-OF-SELECTION.
  SELECT COUNT(*) FROM zbp_tax_status.
  IF sy-subrc <> 0.
    SKIP 2.
    WRITE:/ text-011.
    STOP.
  ENDIF.
  REFRESH : it_main.
Uploading the file from either presentatinon layer or application server
  PERFORM file_upload.
Creating the BP number and assigning & adding up other attributes
  LOOP AT it_main.
    PERFORM data_fill.                       " Filling up global structures & variables
   IF v_bp IS INITIAL.
     PERFORM duplication_check.             " Duplication check
   ENDIF.
    PERFORM bp_creation.                     " BP Creation
    PERFORM return_fill.                     " Filling up Return Tables
    CLEAR : v_bp, it_main, flag_exit, g_dup_status, it_identification, it_crmt, it_crmt1, it_crmt2, it_crmt3, it_crmt4, it_crmt5,
            w_bp_tel,it_bp_tel,it_bp_tel1,it_bp_email,it_bp_email1,it_tel_x,it_email_x,w_addr_x,w_centralorg_x,w_centralperson_x,
            w_centralgrp_x,flag_addr,flag_central,it_iden_flag,it_attr_flag,it_bapicomrem,w_central,w_central_x, v_inv_type,it_bapicomrem_x,
            w_central_org,w_central_per,w_central_group,flag_bp,flag_suc,flag_exist,it_bp_ret,g_bp_msg,g_bp_msg1,v_cat,wa_attr_ret.
    REFRESH :it_identification, it_crmt, it_crmt1, it_crmt2, it_crmt3, it_crmt4, it_crmt5,it_bapicomrem,
             it_bp_tel,it_bp_tel1,it_bp_email,it_bp_email1,it_tel_x,it_email_x,it_bp_ret,it_bapicomrem_x.
  ENDLOOP.
Downloading the file to be reprocessed to the application server
  IF it_error[] IS NOT INITIAL.
    PERFORM error_file_download.
  ENDIF.
Constructing the Return Messages for the Job
  PERFORM return_messages.                  " Return Message Construction
Converting the return messages into PDF file and trigerring a mail notification
  IF sy-batch EQ 'X'.
    PERFORM get_job_details.
    PERFORM obtain_spool_id.
    PERFORM convert_spool_to_pdf.
    PERFORM process_email.
    PERFORM trigger_email.
  ENDIF.
*&      Form  file_upload
FORM file_upload .
Data declatration
  DATA: l_filestr  TYPE string.
  CLASS cl_abap_char_utilities DEFINITION LOAD.
  CONSTANTS: con_tab  TYPE c VALUE cl_abap_char_utilities=>horizontal_tab.
  REPLACE '.txt' WITH v_filename1 INTO p_file .
  REPLACE '.TXT' WITH v_filename2 INTO p_file .
  MOVE p_file TO v_file.
  IF sy-batch EQ 'X'.
Uploading the file from application server if the job is scheduled in background
    OPEN DATASET p_file FOR INPUT IN TEXT MODE ENCODING DEFAULT
eliminting the error for convt page error
                              IGNORING CONVERSION ERRORS REPLACEMENT CHARACTER g_spl.
eliminting the error for convt page error
    IF sy-subrc = 0.
      DO.
        READ DATASET p_file INTO l_filestr.
        IF sy-subrc <> 0.
          EXIT.
        ELSE.
          CLEAR it_main.
          SPLIT l_filestr  AT con_tab INTO:
            it_main-cust_id        it_main-inv_type_code
            it_main-insti_tag      it_main-name
            it_main-address1       it_main-address2
            it_main-address3       it_main-city
            it_main-state          it_main-country
            it_main-pin_code       it_main-off_phone1
            it_main-off_phone2     it_main-res_phone1
            it_main-res_phone2     it_main-mobile
            it_main-email          it_main-birth_date
            it_main-pan_no         it_main-lob
            it_main-fam_tag        it_main-mod_date.
          APPEND it_main.
        ENDIF.
      ENDDO.
    ELSE.
      WRITE : / 'The file',
                 p_file,
                 'is not found.'.
      STOP.
    ENDIF.
    CLOSE DATASET p_file.
  ELSE.
    WRITE : / 'The Program can only be executed in the background.'.
    STOP.
  ENDIF.
  CLEAR : l_filestr, it_main.
ENDFORM.                    " file_upload
*&      Form  data_fill
FORM data_fill .
Filling up Partner Category (v_Partn_cat) ,workarea (w_central), workarea (w_central_org) & workarea (w_central_per)
  SELECT SINGLE bp_category tax_status FROM zbp_tax_status
                    INTO (v_partn_cat,v_inv_type)
                    WHERE inv_code EQ it_main-inv_type_code.
Filling up the Authorization Group
  IF it_main-lob EQ 'M' AND it_main-insti_tag EQ 'N'.
    w_central-authorizationgroup = 'ZMFR'.
  ELSEIF it_main-lob EQ 'M' AND it_main-insti_tag EQ 'Y'.
    w_central-authorizationgroup = 'ZMFI'.
  ELSEIF it_main-lob EQ 'P' AND it_main-insti_tag EQ 'N'.
    w_central-authorizationgroup = 'ZPMR'.
  ELSEIF it_main-lob EQ 'P' AND it_main-insti_tag EQ 'Y'.
    w_central-authorizationgroup = 'ZPMI'.
  ELSEIF it_main-lob EQ 'A' AND it_main-insti_tag EQ 'N'.
    w_central-authorizationgroup = 'ZBOR'.
  ELSEIF it_main-lob EQ 'A' AND it_main-insti_tag EQ 'Y'.
    w_central-authorizationgroup = 'ZBOI'.
  ENDIF.
Filling up workarea (w_address)
  IF it_main-address1 IS NOT INITIAL.
    MOVE : it_main-address1 TO w_address-str_suppl1,
           it_main-address1 TO w_zacc_address-address1,
           'X'              TO w_addr_x-str_suppl1 .
  ENDIF.
  IF it_main-address2 IS NOT INITIAL.
    MOVE : it_main-address2 TO w_address-str_suppl2,
           it_main-address2 TO w_zacc_address-address2,
           'X'              TO w_addr_x-str_suppl2 .
  ENDIF.
  IF it_main-address3 IS NOT INITIAL.
    MOVE : it_main-address3 TO w_address-street,
           it_main-address3 TO w_zacc_address-address3,
          'X'               TO w_addr_x-street.
  ENDIF.
  IF it_main-city  IS NOT INITIAL.
    MOVE :   it_main-city     TO w_address-city,
             it_main-city     TO w_zacc_address-city,
             'X'              TO w_addr_x-city.
  ENDIF.
  IF it_main-pin_code  IS NOT INITIAL.
    MOVE :   it_main-pin_code TO w_address-postl_cod1,
            'X'               TO w_addr_x-postl_cod1.
    TRANSLATE w_address-postl_cod1 TO UPPER CASE.
  ENDIF.
  IF it_main-country IS NOT INITIAL.
    MOVE : 'X' TO w_addr_x-country.
  ENDIF.
  IF it_main-state IS NOT INITIAL.
    MOVE: 'X'  TO w_addr_x-region.
  ENDIF.
Picking up Country & State Codes
  SELECT SINGLE land1 FROM t005t INTO w_address-country
       WHERE spras   EQ 'E'
         AND landx50 EQ it_main-country.
  IF sy-subrc EQ 0.
    SELECT SINGLE bland FROM t005u INTO w_address-region
         WHERE spras EQ 'E'
           AND land1 EQ w_address-country
           AND bezei EQ it_main-state.
    IF sy-subrc NE 0.
      w_address-region = 'ZZ'.
    ENDIF.
  ELSE.
    w_address-country = 'ZZ'.
    SELECT SINGLE bland FROM t005u INTO w_address-region
         WHERE spras EQ 'E'
           AND land1 EQ w_address-country
           AND bezei EQ it_main-state.
    IF sy-subrc NE 0.
      w_address-region = 'ZZ'.
    ENDIF.
  ENDIF.
  w_zacc_address-country = w_address-country.
  w_zacc_address-state   = w_address-region.
Filling up the BP Role Detail
  it_role-partnerrole = 'Z1INVS'.
  APPEND it_role.
Finding out the BP number from the client ID
  IF it_main-cust_id IS NOT INITIAL.
    SELECT SINGLE partner FROM but0id INTO  v_bp
                  WHERE type     EQ 'ZID009'
                    AND idnumber EQ it_main-cust_id.
    IF sy-subrc = 0.
      SELECT SINGLE type FROM but000 INTO v_cat
                          WHERE partner = v_bp.
      PERFORM name_processing USING v_cat.
    ENDIF.
  ENDIF.
  IF v_bp IS INITIAL.
    PERFORM name_processing USING v_partn_cat.    " Processing the Name & Title depending on partner category
Filling up the Identication Number Details
    IF it_main-cust_id IS NOT INITIAL.        " Customer ID
      it_identification-idcategory = 'ZID009'.
      it_identification-idnumber   = it_main-cust_id.
      APPEND it_identification.
      CLEAR  it_identification.
    ENDIF.
    IF it_main-pan_no IS NOT INITIAL.        " Pan Number
      it_identification-idcategory = 'ZID003'.
      it_identification-idnumber   = it_main-pan_no.
      APPEND it_identification.
      CLEAR  it_identification.
    ENDIF.
    IF it_main-fam_tag IS NOT INITIAL.        " Family Tag Number
      it_identification-idcategory = 'ZID011'.
      it_identification-idnumber   = it_main-fam_tag.
      APPEND it_identification.
      CLEAR  it_identification.
    ENDIF.
Filling up the Marketing Attributes
   IF v_inv_type IS NOT INITIAL.                 " Tax status
     it_crmt1-atname = 'TAX_STATUS'.
     it_crmt1-atwrt  =  v_inv_type.
     APPEND it_crmt1.
     CLEAR : it_crmt1.
   ENDIF.
   IF it_main-lob IS NOT INITIAL.                " Product Tag
     it_crmt1-atname   = 'LOB'.
     IF it_main-lob EQ 'M'.
       it_crmt1-atwrt  = 'MF'.
     ELSEIF it_main-lob EQ 'P'.
       it_crmt1-atwrt  = 'PMS'.
     ELSEIF it_main-lob EQ 'A'.
       it_crmt1-atwrt  = 'BOTH'.
     ENDIF.
     APPEND it_crmt1.
     CLEAR : it_crmt1.
   ENDIF.
   IF it_main-insti_tag IS NOT INITIAL.         " Retail/Instituitional Tag
     it_crmt1-atname   = 'ORGANISATION_STRUCTURE'.
     IF it_main-insti_tag EQ 'N'.
       it_crmt1-atwrt  = 'RETAIL'.
     ELSEIF it_main-insti_tag EQ 'Y'.
       it_crmt1-atwrt  = 'INSTITUTIONAL'.
     ELSEIF it_main-insti_tag EQ 'F'.
       it_crmt1-atwrt  = 'INTERNATIONAL'.
     ENDIF.
     APPEND it_crmt1.
     CLEAR : it_crmt1.
   ENDIF.
   it_crmt2-atname = 'VIP'.
   it_crmt2-atwrt  = 'NOT CLASSIFIED'.
   APPEND it_crmt2.
   CLEAR : it_crmt2.
   it_crmt3-atname = 'PRIORITY'.
   it_crmt3-atwrt  = 'NOT CLASSIFIED'.
   APPEND it_crmt3.
   CLEAR : it_crmt3.
   it_crmt4-atname = 'CONTACTBLE'.
   it_crmt4-atwrt  = 'NOT CLASSIFIED'.
   APPEND it_crmt4.
   CLEAR : it_crmt4.
   it_crmt5-atname = 'SOURCE'.
   it_crmt5-atwrt  = 'CAMS'.
   APPEND it_crmt5.
   CLEAR : it_crmt5.
   it_crmt-crmt = 'CENTALISED_CLF_INV'.
   APPEND it_crmt.
   it_crmt-crmt = 'GENERAL_CLF_INV'.
   APPEND it_crmt.
   it_crmt-crmt = 'MF_CLF_INV'.
   APPEND it_crmt.
   it_crmt-crmt = 'PMS_CLF_INV'.
   APPEND it_crmt.
   it_crmt-crmt = 'SOURCE'.
   APPEND it_crmt.
   CLEAR it_crmt-crmt.
  ENDIF.
For Return Message
  recno = recno + 1.
ENDFORM.                    " data_fill
*&      Form  duplication_check
FORM duplication_check .
  DATA : l_lines TYPE i.
  IF v_firstname IS NOT INITIAL.
    CALL FUNCTION 'ZACC_DUPLICATIONCHECK'
      EXPORTING
        role            = 'Z1INVS'
        firstname       = v_firstname
        pan_no          = it_main-pan_no
        mobile          = it_main-mobile
        email           = it_main-email
        address         = w_zacc_address
        partnercategory = v_partn_cat
      IMPORTING
        status          = g_dup_status
      TABLES
        buspartner      = it_dup_bp.
    DESCRIBE TABLE it_dup_bp LINES l_lines.
    IF l_lines EQ 1.
      IF g_dup_status EQ 1.
        READ TABLE it_dup_bp INDEX 1.
        MOVE it_dup_bp-partner TO v_bp.
      ELSEIF g_dup_status EQ 2.
        flag_exit = 'X'.
      ENDIF.
    ELSEIF l_lines GT 1.
      flag_exit = 'X'.
    ENDIF.
  ENDIF.
  CLEAR : l_lines, v_firstname.
ENDFORM.                    " duplication_check
*&      Form  name_processing
FORM name_processing USING uv_cat TYPE bu_type.
  IF it_main-name IS NOT INITIAL.
  If category is Person
    IF uv_cat EQ 1.
      CALL FUNCTION 'ZGET_NAME_FROM_STRING'
        EXPORTING
          name   = it_main-name
        IMPORTING
          first  = w_central_per-firstname
          middle = w_central_per-middlename
          last   = w_central_per-lastname.
      w_centralperson_x-firstname  = 'X'.
      w_centralperson_x-middlename = 'X'.
      w_centralperson_x-lastname   = 'X'.
      w_centralperson_x-birthdate  = 'X'.
      MOVE : it_main-birth_date TO w_central_per-birthdate,
             w_central_per-firstname TO v_firstname.
    ELSEIF uv_cat EQ 2.
    If category is organisation
      CALL FUNCTION 'ZGET_NAME_FROM_STRING'
        EXPORTING
          name   = it_main-name
        IMPORTING
          first  = w_central_org-name2
          middle = w_central_org-name1
          last   = w_central_org-name3.
      w_centralorg_x-name1 = 'X'.
      w_centralorg_x-name2 = 'X'.
      w_centralorg_x-name3 = 'X'.
      MOVE w_central_org-name2 TO v_firstname.
    ELSEIF uv_cat EQ 3.
    If category is group
      CALL FUNCTION 'ZGET_NAME_FROM_STRING'
        EXPORTING
          name   = it_main-name
        IMPORTING
          first  = w_central_group-namegroup2
          middle = w_central_group-namegroup1.
      w_centralgrp_x-namegroup1 = 'X'.
      w_centralgrp_x-namegroup2 = 'X'.
      MOVE w_central_group-namegroup2 TO v_firstname.
    ENDIF.
    MOVE : it_main-name+0(8)    TO w_central-searchterm1,
           'X'                  TO w_central_x-searchterm1.
  ENDIF.
ENDFORM.                    " name_processing
*&      Form  bp_creation
FORM bp_creation.
  DATA:l_identification   TYPE bapibus1006_identification_key-identificationnumber.
BP Creation
  IF v_bp IS INITIAL.
Filling up the Telephone Details
    MOVE : w_address-country TO w_bp_tel-country.
    IF it_main-off_phone1 IS NOT INITIAL.     " Office Telephone1
      w_bp_tel-r_3_user  = '1'.
      w_bp_tel-telephone = it_main-off_phone1.
      APPEND w_bp_tel TO it_bp_tel.
      CLEAR : w_bp_tel-r_3_user, w_bp_tel-telephone.
      it_bapicomrem-comm_type  = 'TEL'.
      it_bapicomrem-langu      = 'EN'.
      it_bapicomrem-comm_notes = 'OFFICE PHONE1'.
      APPEND it_bapicomrem.
    ENDIF.
    IF it_main-off_phone2 IS NOT INITIAL.     " Office Telephone2
      w_bp_tel-telephone = it_main-off_phone2.
      APPEND w_bp_tel TO it_bp_tel.
      CLEAR : w_bp_tel-telephone.
      it_bapicomrem-comm_type  = 'TEL'.
      it_bapicomrem-langu      = 'EN'.
      it_bapicomrem-comm_notes = 'OFFICE PHONE2'.
      APPEND it_bapicomrem.
    ENDIF.
    IF it_main-res_phone1 IS NOT INITIAL.     " Residence Telephone1
      w_bp_tel-telephone = it_main-res_phone1.
      APPEND w_bp_tel TO it_bp_tel.
      CLEAR : w_bp_tel-telephone.
      it_bapicomrem-comm_type  = 'TEL'.
      it_bapicomrem-langu      = 'EN'.
      it_bapicomrem-comm_notes = 'RESIDENCE PHONE1'.
      APPEND it_bapicomrem.
    ENDIF.
    IF it_main-res_phone2 IS NOT INITIAL.     " Residence Telephone2
      w_bp_tel-telephone = it_main-res_phone2.
      APPEND w_bp_tel TO it_bp_tel.
      CLEAR : w_bp_tel-telephone.
      it_bapicomrem-comm_type  = 'TEL'.
      it_bapicomrem-langu      = 'EN'.
      it_bapicomrem-comm_notes = 'RESIDENCE PHONE2'.
      APPEND it_bapicomrem.
    ENDIF.
    IF it_main-mobile IS NOT INITIAL.         " Mobile Number
      w_bp_tel-r_3_user  = '3'.
      w_bp_tel-telephone = it_main-mobile.
      APPEND w_bp_tel TO it_bp_tel.
      CLEAR : w_bp_tel-r_3_user, w_bp_tel-telephone.
    ENDIF.
Filling up the E-Mail Details
    IF it_main-email IS NOT INITIAL.                        " E-mail1
      it_bp_email-e_mail = it_main-email.
      APPEND it_bp_email.
      CLEAR it_bp_email.
    ENDIF.
  BAPI for BP creation
    CALL FUNCTION 'BAPI_BUPA_FS_CREATE_FROM_DATA2'
      EXPORTING
        partnercategory         = v_partn_cat
        centraldata             = w_central
        centraldataperson       = w_central_per
        centraldataorganization = w_central_org
        centraldatagroup        = w_central_group
        addressdata             = w_address
      IMPORTING
        businesspartner         = v_bp
      TABLES
        telefondata             = it_bp_tel
        communicationnotes      = it_bapicomrem
        e_maildata              = it_bp_email
        roles                   = it_role
        return                  = it_bp_ret.
    IF v_bp IS NOT INITIAL.
      flag_bp = 'X'.
    ENDIF.
  Commiting the transaction
    PERFORM transaction_commit.
  To add Identification details to BP
    PERFORM add_details.
    CLEAR   : v_partn_cat, w_central, w_central_per, w_central_org, it_bp_tel, it_bp_email, it_role.
    REFRESH : it_bp_tel, it_bp_email, it_role.
  ELSE.
    flag_exist = 'X'.
If BP exists,address,communication and ID details will be updated
    CALL FUNCTION 'BAPI_BUPA_CENTRAL_CHANGE'
      EXPORTING
        businesspartner           = v_bp
        centraldata               = w_central
        centraldataperson         = w_central_per
        centraldataorganization   = w_central_org
        centraldatagroup          = w_central_group
        centraldata_x             = w_central_x
        centraldataperson_x       = w_centralperson_x
        centraldataorganization_x = w_centralorg_x
        centraldatagroup_x        = w_centralgrp_x
      TABLES
        return                    = it_bp_ret.
    READ TABLE it_bp_ret WITH KEY type = 'E'.
    IF sy-subrc = 0.
      flag_central = 'E'.
      g_bp_msg  = it_bp_ret-message.
      CLEAR:it_bp_ret.
      REFRESH:it_bp_ret.
    ELSE.
      flag_suc = 'X'.
    ENDIF.
    PERFORM transaction_commit.
To get the existing communication details
    CALL FUNCTION 'BAPI_BUPA_ADDRESS_GETDETAIL'
      EXPORTING
        businesspartner = v_bp
      TABLES
        bapiadtel       = it_bp_tel1
        bapiadsmtp      = it_bp_email1.
    LOOP AT it_bp_tel1 WHERE r_3_user = '1' OR r_3_user = ' '.
      it_bp_tel-consnumber = it_bp_tel1-consnumber.
      it_tel_x-updateflag     = 'D'.
      APPEND:it_bp_tel,
             it_tel_x.
      CLEAR: it_bp_tel,
             it_tel_x.
    ENDLOOP.
    IF it_main-mobile  IS NOT INITIAL .
      LOOP AT it_bp_tel1 WHERE r_3_user = '2' OR r_3_user = '3'.
        it_bp_tel-consnumber = it_bp_tel1-consnumber.
        it_tel_x-updateflag     = 'D'.
        APPEND:it_bp_tel,
               it_tel_x.
        CLEAR: it_bp_tel,
               it_tel_x.
      ENDLOOP.
    ENDIF.
*Updating communication details
    IF it_main-off_phone1 IS NOT INITIAL.     " Office Telephone1
      w_bp_tel-r_3_user  = '1'.
      w_bp_tel-telephone = it_main-off_phone1.
      it_tel_x-telephone     = 'I'.
      it_tel_x-updateflag    = 'I'.
      APPEND:it_tel_x.
      CLEAR: it_tel_x.
      APPEND w_bp_tel TO it_bp_tel.
      CLEAR : w_bp_tel-r_3_user, w_bp_tel-telephone.
      it_bapicomrem-comm_type  = 'TEL'.
      it_bapicomrem-langu      = 'EN'.
      it_bapicomrem-comm_notes = 'OFFICE PHONE1'.
      APPEND it_bapicomrem.
      it_bapicomrem_x-comm_type  = 'I'.
      it_bapicomrem_x-langu      = 'I'.
      it_bapicomrem_x-comm_notes = 'I'.
      it_bapicomrem_x-updateflag = 'I'.
      APPEND it_bapicomrem_x.
    ENDIF.
    IF it_main-off_phone2 IS NOT INITIAL.     " Office Telephone2
      w_bp_tel-telephone = it_main-off_phone2.
      APPEND w_bp_tel TO it_bp_tel.
      it_tel_x-telephone     = 'I'.
      it_tel_x-updateflag    = 'I'.
      APPEND:it_tel_x.
      CLEAR:it_tel_x.
      CLEAR : w_bp_tel-telephone.
      it_bapicomrem-comm_type  = 'TEL'.
      it_bapicomrem-langu      = 'EN'.
      it_bapicomrem-comm_notes = 'OFFICE PHONE2'.
      APPEND it_bapicomrem.
      it_bapicomrem_x-comm_type  = 'I'.
      it_bapicomrem_x-langu      = 'I'.
      it_bapicomrem_x-comm_notes = 'I'.
      it_bapicomrem_x-updateflag = 'I'.
      APPEND it_bapicomrem_x.
    ENDIF.
    IF it_main-res_phone1 IS NOT INITIAL.     " Residence Telephone1
      w_bp_tel-telephone = it_main-res_phone1.
      APPEND w_bp_tel TO it_bp_tel.
      it_tel_x-telephone     = 'I'.
      it_tel_x-updateflag    = 'I'.
      APPEND:it_tel_x.
      CLEAR:it_tel_x.
      CLEAR : w_bp_tel-telephone.
      it_bapicomrem-comm_type  = 'TEL'.
      it_bapicomrem-langu      = 'EN'.
      it_bapicomrem-comm_notes = 'RESIDECE PHONE1'.
      APPEND it_bapicomrem.
      it_bapicomrem_x-comm_type  = 'I'.
      it_bapicomrem_x-langu      = 'I'.
      it_bapicomrem_x-comm_notes = 'I'.
      it_bapicomrem_x-updateflag = 'I'.
      APPEND it_bapicomrem_x.
    ENDIF.
    IF it_main-res_phone2 IS NOT INITIAL.     " Residence Telephone2
      w_bp_tel-telephone = it_main-res_phone2.
      APPEND w_bp_tel TO it_bp_tel.
      it_tel_x-telephone     = 'I'.
      it_tel_x-updateflag    = 'I'.
      APPEND:it_tel_x.
      CLEAR:it_tel_x.
      CLEAR : w_bp_tel-telephone.
      it_bapicomrem-comm_type  = 'TEL'.
      it_bapicomrem-langu      = 'EN'.
      it_bapicomrem-comm_notes = 'RESIDECE PHONE2'.
      APPEND it_bapicomrem.
      it_bapicomrem_x-comm_type  = 'I'.
      it_bapicomrem_x-langu      = 'I'.
      it_bapicomrem_x-comm_notes = 'I'.
      it_bapicomrem_x-updateflag = 'I'.
      APPEND it_bapicomrem_x.
    ENDIF.
    IF it_main-mobile IS NOT INITIAL.         " Mobile Number
      w_bp_tel-r_3_user  = '3'.
      w_bp_tel-telephone = it_main-mobile.
      APPEND w_bp_tel TO it_bp_tel.
      it_tel_x-telephone     = 'I'.
      it_tel_x-updateflag    = 'I'.
      APPEND:it_tel_x.
      CLEAR:it_tel_x.
      CLEAR : w_bp_tel-r_3_user, w_bp_tel-telephone.
    ENDIF.
    IF it_main-email IS NOT INITIAL.
      LOOP AT it_bp_email1.
        it_bp_email-consnumber   = it_bp_email1-consnumber.
        it_email_x-updateflag    = 'D'.
        APPEND:it_bp_email,
               it_email_x.
      ENDLOOP.
      it_bp_email-e_mail    =   it_main-email.
      it_email_x-e_mail     = 'I'.
      it_email_x-updateflag = 'I'.
      APPEND:it_bp_email,
             it_email_x.
      CLEAR:it_bp_email,
            it_email_x.
    ENDIF.
    REFRESH:it_bp_ret.
BP Change
    CALL FUNCTION 'BAPI_BUPA_ADDRESS_CHANGE'
      EXPORTING
        businesspartner = v_bp
        addressdata     = w_address
        addressdata_x   = w_addr_x
      TABLES
        bapiadtel       = it_bp_tel
        bapicomrem      = it_bapicomrem
        bapiadtel_x     = it_tel_x
        bapiadsmtp      = it_bp_email
        bapiadsmt_x     = it_email_x
        bapicomre_x     = it_bapicomrem_x
        return          = it_bp_ret.
    READ TABLE it_bp_ret WITH KEY type = 'E'.
    IF sy-subrc = 0.
      flag_addr = 'E'.
      g_bp_msg1 = it_bp_ret-message.
    ELSE.
      flag_suc = 'X'.
    ENDIF.
    PERFORM transaction_commit.
    REFRESH it_bp_ret.
    IF it_main-pan_no IS NOT INITIAL OR it_main-fam_tag IS NOT INITIAL OR it_main-cust_id IS NOT INITIAL.
    Retreiving the existing Identification details
      PERFORM id_get USING v_bp.
    ENDIF.
  PAN number addition
    IF it_main-pan_no IS NOT INITIAL.
      CLEAR l_identification.
      MOVE it_main-pan_no TO l_identification.
      TRANSLATE l_identification TO UPPER CASE.
      READ TABLE i_id_tab WITH KEY identificationtype = c_pan.
      IF sy-subrc = 0.
      To remove existing PAN number
        PERFORM id_remove USING v_bp c_pan i_id_tab-identificationnumber.
        READ TABLE it_iden_ret INTO wa_iden_ret WITH KEY type = 'E'.
        IF sy-subrc EQ 0.
          it_iden_flag = 'E'.
        ELSE.
          flag_suc = 'X'.
        Performing transaction commit
          PERFORM transaction_commit.
        ENDIF.
      ENDIF.
      CLEAR:it_iden_ret[],it_iden_ret.
    To add new PAN number
      PERFORM id_add USING v_bp c_pan l_identification.
      READ TABLE it_iden_ret INTO wa_iden_ret WITH KEY type = 'E'.
      IF sy-subrc EQ 0.
        it_iden_flag = 'E'.
      ELSE.
        flag_suc = 'X'.
        PERFORM transaction_commit.
      ENDIF.
    ENDIF.
   Customer ID addition
    IF it_main-cust_id IS NOT INITIAL AND (  g_dup_status = 1 ).
      CLEAR l_identification.
      MOVE it_main-cust_id  TO l_identification.
      TRANSLATE l_identification TO UPPER CASE.
      READ TABLE i_id_tab WITH KEY identificationtype = c_cust.
      IF sy-subrc = 0.
      To remove existing Customer ID
        PERFORM id_remove USING v_bp c_cust i_id_tab-identificationnumber.
        READ TABLE it_iden_ret INTO wa_iden_ret WITH KEY type = 'E'.
        IF sy-subrc EQ 0.
          it_iden_flag = 'E'.
        ELSE.
      Performing transaction commit
          PERFORM transaction_commit.
        ENDIF.
      ENDIF.
      CLEAR:it_iden_ret[],it_iden_ret.
    To add new Customer ID number
      PERFORM id_add USING v_bp c_cust l_identification.
      READ TABLE it_iden_ret INTO wa_iden_ret WITH KEY type = 'E'.
      IF sy-subrc EQ 0.
        it_iden_flag = 'E'.
      ELSE.
        flag_suc ='X'.
        PERFORM transaction_commit.
      ENDIF.
    ENDIF.
  To add marketing attributes
   IF it_main-insti_tag IS NOT INITIAL AND it_main-lob IS NOT INITIAL.
     PERFORM add_makt_attr .
   ELSE.
     it_attr_flag = 'E'.

Answer 1

Guy&#65292;i don't regard here is anybody wanna read so much code .For more constructive answers, you would distill core question from your program.