Debugging of BADI

Hi,
I am creating one Service order in CRM on Save of this order it will create the Purchase Requision in ECC 6. at same time it will call one BADI in ECC 6.
I want to debug this BADI in ECC 6. Can anybody please tell me the way to debug in this scenario.
Regards,
Rajesh

Try this way
+. write following code in your ECC badi :
DATA NUM TYPE I VALUE 1.
WHILE NUM < 2.
ENDWHILE.
+. This will begin an undefined loop. Now, goto transaction SM50, select your program in process overview, and goto Menu "Program/Mode->Program->Debugging"
+. Debugger will start at While loop statement. Change the value of NUM to greater than 2 to get out of loop and proceed further with debugging
PS I am not 100% sure about this.
a®

Similar Messages

Help needed in debugging the BADI: BBP_CREATE_REQ_BACk

Hi,
I need help in debugging a BADI which causing an error ' SE142 please enter quantity in line 3000111'.
This happens only when number items in the cart are more than four and only for Service category items for which we have this BADI, if the items were less than or equal to 4, follow on document is created.
Please let me know what could be the error.
Thank you,
Manyam
METHOD if_ex_bbp_create_req_back~fill_req_interface.
Method Parameters:
*LOGICAL_SYSTEM     TYPE BBP_BACKEND_DEST-LOG_SYS OPTIONAL
*REQ_ITEMS            TYPE BBP_REQ_ITEM_SPOOL
*REQ_ITEM_ACCOUNT     TYPE BBP_REQ_ACCT_SPOOL
*REQ_ITEM_TEXT     TYPE BBP_REQ_TEXT_SPOOL
*REQ_LIMITS            TYPE BBP_REQ_LIMITS_SPOOL
*REQ_CONTRACT_LIMITS     TYPE BBP_REQ_LIMITS_CONTR_SPOOL
*REQ_SERVICES            TYPE BBP_REQ_SERV_SPOOL
*REQ_SERV_ACCOUNT     TYPE BBP_REQ_SERV_ACC_SPOOL
*REQ_SERV_TEXT     TYPE BBP_REQ_SERV_TEXT_SPOOL
*REQ_ADDRDELIVERY     TYPE BBP_REQ_ADDRDELIVERY_SPOOL
This is the logic to create a Service Requisition based on a service
material group selected in the Shopping Cart. This logic is based on
SAP's standard function SPOOL_RQ_READ_BAPI_EXPORTS from which this
BADI is called.
INSERT FUNCTION SPOOL_RQ_READ_BAPI_EXPORTS TO REPROCESS DATA FOR
SERVICE SPECIAL REQUESTS. -- IOK 07/13/01
*function spool_rq_read_bapi_exports.
""Lokale Schnittstelle:
*" IMPORTING
*"     VALUE(REQNO) LIKE REQHEAD-REQNO
*"     VALUE(REQUIS_NUMBER) LIKE BAPIEBANC-PREQ_NO
*" EXPORTING
*"     VALUE(SKIP_ITEMS_WITH_ERROR) LIKE BAPIMMPARA-SELECTION
*"     VALUE(LOGICAL_SYSTEM) LIKE BBP_BACKEND_DEST-LOG_SYS
*" TABLES
*"      REQUISITION_ITEMS STRUCTURE BAPIEBANC
*"      REQUISITION_ACCOUNT_ASSIGNMENT STRUCTURE BAPIEBKN
*"      REQUISITION_ITEM_TEXT STRUCTURE BAPIEBANTX
*"      REQUISITION_LIMITS STRUCTURE BAPIESUHC
*"      REQUISITION_CONTRACT_LIMITS STRUCTURE BAPIESUCC
*"      REQUISITION_SERVICES STRUCTURE BAPIESLLC
*"      REQUISITION_SRV_ACCASS_VALUES STRUCTURE BAPIESKLC
*"      RETURN STRUCTURE BAPIRETURN
*"      REQUISITION_SERVICES_TEXT STRUCTURE BAPIESLLTX
*"      REQUISITION_ADDRDELIVERY STRUCTURE BBPS_RQADDRDELIVERY_46
*"      CONTROL_RECORD STRUCTURE BBP_CONTROL_RECORD
*" EXCEPTIONS
*"      INTERNAL_ERROR
---- Data Declaration - from LBBP_BS_RQTOP -
- Header                         -
DATA: reqheader TYPE reqhead.
- Header services                -
DATA: reqheaders TYPE reqheads.
- References -
TYPES: reqreferences_type TYPE reqref.
DATA: reqreferences      TYPE STANDARD TABLE OF reqreferences_type
                                 INITIAL SIZE 10.
DATA: l_reqreferences    TYPE reqreferences_type,
         x_reqreferences    TYPE reqreferences_type.
- Administrative lines requirement request -
TYPES: reqlines_type TYPE reqline.
DATA: reqlines      TYPE STANDARD TABLE OF reqlines_type
                            INITIAL SIZE 10.
DATA: l_reqlines    TYPE reqlines_type.
- MRO-Lines requirement request -
TYPES: reqlinemas_type TYPE reqlinema_eci.
DATA: reqlinemas      TYPE STANDARD TABLE OF reqlinemas_type
                              INITIAL SIZE 10.
DATA: l_reqlinemas    TYPE reqlinemas_type.
- SRV-Lines requirement request -
TYPES: reqlinesrs_type TYPE bbps_reqlinesr_eci.
DATA: reqlinesrs      TYPE STANDARD TABLE OF reqlinesrs_type
                              INITIAL SIZE 10.
DATA: l_reqlinesrs    TYPE reqlinesrs_type.
- Texts requirement request -
TYPES: reqtexts_type TYPE reqtext.
DATA: reqtexts      TYPE STANDARD TABLE OF reqtexts_type
                            INITIAL SIZE 10.
DATA: l_reqtexts    TYPE reqtexts_type.
*- Delivery address
TYPES: reqaddress_type TYPE reqaddress.
DATA: reqaddress      TYPE STANDARD TABLE OF reqaddress_type
                              INITIAL SIZE 10.
DATA: l_reqaddress    TYPE reqaddress_type.
- Account assignment requirement request -
TYPES: reqaccts_type TYPE reqacct_470.
DATA: reqaccts      TYPE STANDARD TABLE OF reqaccts_type
                            INITIAL SIZE 10.
DATA: l_reqaccts    TYPE reqaccts_type.
- tablekey with the shortlife-line -
DATA: BEGIN OF shortkey,
           client   TYPE ec_client, "REQLINE-CLIENT,
           reqno    TYPE ec_reqno, "REQLINE-REQNO,
           reqsline TYPE reqsline, "REQLINE-REQSLINE,
           reqlline TYPE reqlline, "REQLINE-REQLLINE,
        END OF shortkey.
- tablekey with the longlife-line -
DATA: BEGIN OF longkey,
           client   TYPE ec_client, "REQLINE-CLIENT,
           reqno    TYPE ec_reqno, "REQLINE-REQNO,
           reqlline TYPE reqlline, "REQLINE-REQLLINE,
        END OF longkey.
DATA: BEGIN OF bankey,
            preq_no    TYPE banfn, "BAPIEBAN-PREQ_NO,
            preq_item TYPE bnfpo, "BAPIPOGN-PREQ_ITEM,
        END OF bankey.
any other working fields
DATA: h_preq_item     TYPE bnfpo,       "BAPIEBANC-PREQ_ITEM,
        h_srv_item      TYPE bnfpo,       "BAPIEBANC-PREQ_ITEM,
        h_logsys        TYPE log_system. "reqref-logical_system.
DATA: h_serial_no     TYPE dzebkn.      "BAPIEBKN-SERIAL_NO.
DATA: h_packno_item   TYPE packno,      "BAPIESLL-PCKG_NO,
        h_packno_srv    TYPE packno,      "BAPIESLL-PCKG_NO,
        h_introw        TYPE srv_line_no, "BAPIESLL-LINE_NO,
        h_serial_no_srv TYPE dzekkn,      "BAPIESKN-SERIAL_NO,
        h_srv_outl_created,
        next TYPE i,
        h_index         LIKE sy-tabix,
        h_wempf         TYPE wempf.       "bapiekkn-gr_rcpt.
------ End of std data declaration -
DATA:   l_req_items               TYPE bapiebanc,
          l_req_item_account        TYPE bapiebkn,
          l_req_item_text               TYPE bapiebantx,
          l_req_limits               TYPE bapiesuhc,
          l_req_contract_limits      TYPE bapiesucc,
          l_req_services               TYPE bapiesllc,
          l_req_serv_account        TYPE bapiesklc,
          l_req_serv_text               TYPE bapieslltx,
          l_req_addrdelivery        TYPE bbps_rqaddrdelivery_46.
DATA:
       old_req_items           TYPE STANDARD TABLE OF bapiebanc,
       old_req_item_account    TYPE STANDARD TABLE OF bapiebkn,
       old_req_item_text       TYPE STANDARD TABLE OF bapiebantx,
       old_req_limits          TYPE STANDARD TABLE OF bapiesuhc,
       old_req_contract_limits TYPE STANDARD TABLE OF bapiesucc,
       old_req_services        TYPE STANDARD TABLE OF bapiesllc,
       old_req_serv_account    TYPE STANDARD TABLE OF bapiesklc,
       old_req_serv_text       TYPE STANDARD TABLE OF bapieslltx,
       old_req_addrdelivery    TYPE STANDARD TABLE OF
                                          bbps_rqaddrdelivery_46.
DATA: l_mat_group TYPE comm_category-category_id.
DATA: f_change_required TYPE c,
        f_limit_change    TYPE c,
        f_mat_sr_change   TYPE c,
        f_first_change    TYPE c VALUE 'X'.
Data declaration for Shopping Cart number and PO number
DATA: reqno          TYPE ec_reqno,
        requis_number TYPE banfn.
DATA: l_current_item TYPE bnfpo,
        line_item(5)   TYPE n.
---- Begin Processing ----
DATA: l_requis_number TYPE banfn.   "jms 022802
DEBUG TOOL ****** Goto SM50
*data: i type i value 1.
*while i <> 0.
i = i + 1.
*endwhile.
END DEBUG TOOL *******
Get Req Number and Shopping Cart Number
read table req_items into l_req_items index 1.
requis_number = l_req_items-preq_no.
select single reqno
     into (reqno)
     from reqref
     where refnumber = requis_number.
read detailed data from the requirement request
call function 'BBP_REQREQ_GETDETAIL'
      EXPORTING
           reqno               = reqno
      IMPORTING
           req_header          = reqheader
           req_header_srv      = reqheaders
      TABLES
           req_reference       = reqreferences
           req_line            = reqlines
           req_line_mat        = reqlinemas
           req_line_srv        = reqlinesrs
           req_text            = reqtexts
           req_acct            = reqaccts
           req_address         = reqaddress
      EXCEPTIONS
           not_found           = 1
           foreign_lock        = 2
           no_enqueue_possible = 3
           others              = 4.
if sy-subrc <> 0.
   raise internal_error.
   exit.
endif.
Begin JMS
PO_NUM = PO_HEADER-PO_NUMBER.
CMH Data declaration
TYPES: et_header TYPE bbp_pds_sc_header_d.
DATA: t_et_header TYPE STANDARD TABLE OF et_header INITIAL SIZE 0,
         x_et_header TYPE et_header.
TYPES: et_item TYPE bbp_pds_sc_item_d.
DATA: t_et_item TYPE STANDARD TABLE OF et_item INITIAL SIZE 0,
         x_et_item TYPE et_item.
TYPES: sc_header TYPE bbp_pds_sc_header_d.
DATA: x_sc_header TYPE sc_header.
TYPES: sc_is_pd TYPE xfeld.
DATA: l_sc_is_pd TYPE sc_is_pd.
TYPES: sc_item TYPE bbp_pds_sc_item_d.
DATA: t_sc_item TYPE STANDARD TABLE OF sc_item INITIAL SIZE 0,
         x_sc_item TYPE sc_item.
TYPES: sc_account TYPE bbp_pds_acc.
DATA: t_sc_account TYPE STANDARD TABLE OF sc_account INITIAL SIZE 0,
         x_sc_account TYPE sc_account.
TYPES: sc_partner TYPE bbp_pds_partner.
DATA: t_sc_partner TYPE STANDARD TABLE OF sc_partner INITIAL SIZE 0,
         x_sc_partner TYPE sc_partner.
TYPES: sc_confirm TYPE bbp_pds_con.
DATA: t_sc_confirm TYPE STANDARD TABLE OF sc_confirm INITIAL SIZE 0,
         x_sc_confirm TYPE sc_confirm.
TYPES: sc_longtext TYPE bbp_pds_longtext.
DATA: t_sc_longtext TYPE
           STANDARD TABLE OF sc_longtext INITIAL SIZE 0,
         x_sc_longtext TYPE sc_longtext.
TYPES: sc_limit TYPE bbp_pds_limit.
DATA: t_sc_limit TYPE STANDARD TABLE OF sc_limit INITIAL SIZE 0,
         x_sc_limit TYPE sc_limit.
TYPES: sc_orgdata TYPE bbp_pds_org.
DATA: t_sc_orgdata TYPE
           STANDARD TABLE OF sc_orgdata INITIAL SIZE 0,
         x_sc_orgdata TYPE sc_orgdata.
TYPES: sc_tax TYPE bbp_pds_tax.
DATA: t_sc_tax TYPE STANDARD TABLE OF sc_tax INITIAL SIZE 0,
         x_sc_tax TYPE sc_tax.
TYPES: sc_pridoc TYPE bbp_pds_prc.
DATA: t_sc_pridoc TYPE STANDARD TABLE OF sc_pridoc INITIAL SIZE 0,
         x_sc_pridoc TYPE sc_pridoc.
TYPES: sc_messages TYPE bbp_pds_messages.
DATA: t_sc_messages TYPE
           STANDARD TABLE OF sc_messages INITIAL SIZE 0,
         x_sc_messages TYPE sc_messages.
TYPES: sc_actval TYPE bbp_pds_actval.
DATA: t_sc_actval TYPE STANDARD TABLE OF sc_actval INITIAL SIZE 0,
         x_sc_actval TYPE sc_actval.
TYPES: sc_acc_actval TYPE bbp_pds_actval.
DATA: t_sc_acc_actval TYPE STANDARD TABLE OF sc_acc_actval
                                                      INITIAL SIZE 0,
         x_sc_acc_actval TYPE sc_acc_actval.
TYPES: sc_header_rel TYPE bbp_pds_hrel.
DATA: t_sc_header_rel TYPE STANDARD TABLE OF sc_header_rel
                                                      INITIAL SIZE 0,
         x_sc_header_rel TYPE sc_header_rel.
TYPES: sc_itmlim_rel TYPE bbp_pds_ilrel.
DATA: t_sc_itmlim_rel TYPE STANDARD TABLE OF sc_itmlim_rel
                                                      INITIAL SIZE 0,
         x_sc_itmlim_rel TYPE sc_itmlim_rel.
TYPES: it_cuf_item_type TYPE bbps_cuf_item.
DATA: t_it_cuf_item TYPE STANDARD TABLE OF it_cuf_item_type
                                                      INITIAL SIZE 0,
         x_it_cuf_item TYPE it_cuf_item_type.
- Contract limits                -
TYPES: reqconlimits_type TYPE reqheads.
DATA: reqconlimits      TYPE STANDARD TABLE OF reqconlimits_type
                            INITIAL SIZE 10.
DATA: l_reqconlimits    TYPE reqconlimits_type.
DATA:   lv_abort      TYPE xfeld,
          lv_is_pd      TYPE xfeld,
          lv_deliv_date LIKE sy-datum,
          lv_tabix      LIKE sy-tabix,
          lv_line       TYPE introw,
          lv_msarg      TYPE char200,
          lv_sc_guid    TYPE bbp_pdview_iap-header,
          lv_req_guid   TYPE bbp_pdview_iap-header.
DATA: x_requis_number TYPE bapiebanc.
IF NOT req_items[] IS INITIAL.
    CLEAR l_requis_number.
    READ TABLE req_items INTO x_requis_number INDEX 1.
    l_requis_number = x_requis_number-preq_no.
    requis_number = x_requis_number-preq_no.
ENDIF.
Get PO Guid from Backend Table.
SELECT SINGLE guid
         INTO   lv_req_guid
         FROM   bbp_pdbei
         WHERE be_object_id   = l_requis_number
         AND    be_object_type = 'BUS2105'.
Get Shopping Cart Guid from PO Guid
SELECT SINGLE header
         INTO   lv_sc_guid
         FROM   bbp_pdview_iap
         WHERE guid = lv_req_guid.
Get detail from shopping cart
CALL FUNCTION 'BBP_PD_SC_GETDETAIL'
    EXPORTING
      i_guid                  = lv_sc_guid
      i_with_itemdata         = 'X'
    IMPORTING
      e_header                = x_sc_header
      ev_is_pd                = l_sc_is_pd
    TABLES
      e_item                  = t_sc_item
      e_account               = t_sc_account
      e_partner               = t_sc_partner
      e_confirm               = t_sc_confirm
      e_longtext              = t_sc_longtext
      e_limit                 = t_sc_limit
      e_orgdata               = t_sc_orgdata
      e_tax                   = t_sc_tax
      e_pridoc                = t_sc_pridoc
      e_messages              = t_sc_messages
      e_actval                = t_sc_actval
      e_acc_actval            = t_sc_acc_actval
      e_header_rel            = t_sc_header_rel
      e_itmlim_rel            = t_sc_itmlim_rel.
lv_is_pd = l_sc_is_pd.
message handling
IF NOT t_sc_messages[] IS INITIAL.
    CALL FUNCTION 'BBP_BS_ADD_MESSAGES'
      IMPORTING
        ev_abort    = lv_abort
      TABLES
        it_messages = t_sc_messages.
ENDIF.
if error occured set alert/ exception.
IF NOT lv_abort IS INITIAL.
    CALL FUNCTION 'BBP_ALERT_SB_LOCAL'
      EXPORTING
        msgid              = 'BBP_PD'
        msgno              = 280
        msgarg1            = lv_msarg
      EXCEPTIONS
        invalid_parameters = 1
        OTHERS             = 2.
   RAISE internal_error.
ENDIF.
map shopping cart in new structure into old structure to be able
to continue with the old coding
REFRESH t_sc_messages.
CALL FUNCTION 'BBP_SC_MAP_PD_TO_REQ'
    EXPORTING
      is_new_header    = x_sc_header
    IMPORTING
      es_reqhead       = reqheader
      es_req_heads     = reqheaders
     es_cuf_header    = is_cuf_header
    TABLES
      et_req_reference = reqreferences
      et_req_line      = reqlines
      et_req_line_mat = reqlinemas
      et_req_line_srv = reqlinesrs
      et_req_text      = reqtexts
      et_req_acct      = reqaccts
      et_req_address   = reqaddress
      et_req_conlimit = reqconlimits
      it_new_items     = t_sc_item
      it_account       = t_sc_account
      it_partner       = t_sc_partner
      it_longtext      = t_sc_longtext
      it_limit         = t_sc_limit
      it_orgdata       = t_sc_orgdata
      it_tax           = t_sc_tax
      it_actval        = t_sc_actval
      it_itmlim_rel    = t_sc_itmlim_rel
      et_messages      = t_sc_messages.
     et_cuf_item      = it_cuf_item
     et_cuf_acc       = it_cuf_acc.
IF NOT t_sc_messages[] IS INITIAL.
message handling
    CALL FUNCTION 'BBP_BS_ADD_MESSAGES'
      IMPORTING
        ev_abort    = lv_abort
      TABLES
        it_messages = t_sc_messages.
ENDIF.
if error occured set alert/ exception.
IF NOT lv_abort IS INITIAL.
    CALL FUNCTION 'BBP_ALERT_SB_LOCAL'
      EXPORTING
        msgid              = 'BBP_PU'
        msgno              = 326
        msgarg1            = lv_msarg
      EXCEPTIONS
        invalid_parameters = 1
        OTHERS             = 2.
   RAISE internal_error.
ENDIF.
End insert 03/26/2003
ReqReferences doesn't list the PO item number. We'll need that to
associate the WBS to a Service Sub Item later. Let's put it in.
SORT reqreferences BY client refnumber reqlline.
LOOP AT reqreferences INTO x_reqreferences.
    IF x_reqreferences-refline IS INITIAL.
      IF l_requis_number = x_reqreferences-refnumber. "jms 022802
        ADD 1 TO line_item.
      ELSE.
        l_requis_number = x_reqreferences-refnumber. "jms 022802
        line_item = 1.
      ENDIF.
    Accumulate the line item
      x_reqreferences-refline = line_item.
      MODIFY reqreferences FROM x_reqreferences INDEX sy-tabix.
    ENDIF.
ENDLOOP.
SORT reqlines      BY client reqno reqlline.
SORT reqreferences BY client reqno reqlline counter.
SORT reqlinemas    BY client reqno reqsline reqlline.
SORT reqlinesrs    BY client reqno reqsline reqlline.
SORT reqaccts      BY client reqno reqlline serial_no. " note 359605
CLEAR: h_preq_item.
CLEAR: h_srv_item, h_srv_outl_created,
         h_packno_item, h_packno_srv, h_introw.
First, the Shopping Cart number should be extracted from REQREF table
based on the Req number.
take all items with the specific reference number
LOOP AT reqreferences
     INTO l_reqreferences                                  "iok 091701
    WHERE refnumber EQ requis_number.
   if logical_system is initial.
     logical_system = l_reqreferences-logical_system.
   endif.
    MOVE-CORRESPONDING l_reqreferences TO longkey.
read table reqlines with key longkey binary search.
    READ TABLE reqlines INTO l_reqlines                    "iok 091701
        WITH KEY client = longkey-client
                  reqno = longkey-reqno
               reqlline = longkey-reqlline
               BINARY SEARCH.
    CHECK sy-subrc EQ 0.
    h_preq_item = l_reqlines-reqsline+5(5).
clear h_preq_item.
Change line_type based on Material Group
add code here later.
    CLEAR: f_change_required,
           f_mat_sr_change,
           f_limit_change.
    SELECT SINGLE category_id
      INTO l_mat_group
      FROM comm_category
     WHERE category_guid = l_reqlines-category.
Check if Services Special Request
    IF l_reqlines-catalogid IS INITIAL AND
       l_reqlines-product   IS INITIAL AND
       l_mat_group(1)        = 'S'     AND
       l_reqlines-line_type = '1'.     "Service Special Request
    Set flags for future processing
      l_reqlines-line_type = '3'.
      f_change_required    = 'X'.
      f_limit_change       = 'X'.
Check if Material Special Request
    ELSEIF l_reqlines-catalogid IS INITIAL AND
           l_reqlines-product   IS INITIAL AND
           l_mat_group(1)       <> 'S'     AND
           l_reqlines-line_type = '1'. "Material Special Request
    Set flags for future processing
      f_change_required = 'X'.
      f_mat_sr_change = 'X'.
    ENDIF.
    CHECK f_change_required = 'X'.
For Material Special Requests only need to select and store UNSPSC
code   -- iok 092401
    IF f_mat_sr_change = 'X'.
    Get UNSPSC code (first hit) based on Material Group and store
    in text id B05.   iok 092101
      READ TABLE req_items INTO l_req_items
          WITH KEY preq_item = h_preq_item
                   mat_grp   = l_mat_group.
      READ TABLE req_item_text INTO l_req_item_text
          WITH KEY preq_no   = requis_number
                   preq_item = l_req_items-preq_item
                   text_id = 'B05'.
      IF sy-subrc <> 0.
        CLEAR l_req_item_text.
      Find a UNSPSC Code from a Material Group .. even it's arbitrary
        SELECT unspsc_code UP TO 1 ROWS
             FROM zxl8_category_id
             INTO l_req_item_text-text_line
            WHERE category_id = l_mat_group.
        ENDSELECT.
      If nothing found then fill in a dummy UNSPSC. The first
      letter of the Material will designate whether it's a Material
      or Service.
        IF sy-subrc NE 0.
        Move the Material Group value into a holding variable
          CONCATENATE l_mat_group(1) 'XXXXXXXX'
                 INTO l_req_item_text-text_line.
        ENDIF.
        l_req_item_text-preq_no   = requis_number.
        l_req_item_text-preq_item = l_req_items-preq_item.
        l_req_item_text-text_id   = 'B05'.
        INSERT l_req_item_text INTO TABLE req_item_text.
      ENDIF.
      CONTINUE. "to next item.
    ENDIF.
    IF f_first_change = 'X' AND f_limit_change = 'X'.
    Save old P.Req. data and clear tables
      old_req_items[]           = req_items[].
      old_req_item_account[]    = req_item_account[].
      old_req_item_text[]       = req_item_text[].
      old_req_limits[]          = req_limits[].
      old_req_contract_limits[] = req_contract_limits[].
      old_req_services[]        = req_services[].
      old_req_serv_account[]    = req_serv_account[].
      old_req_serv_text[]       = req_serv_text[].
      old_req_addrdelivery[]    = req_addrdelivery[].
      REFRESH: req_items,
                req_item_account,
              req_item_text,
                req_limits,
                req_contract_limits,
                req_services,
                req_serv_account,
                req_serv_text.
              req_addrdelivery.
      CLEAR f_first_change.
    ENDIF.
Limit
    IF l_reqlines-line_type EQ '3'.
      and not reqheaders-limit is initial.
      DATA: l_reqreferences_temp   TYPE reqreferences_type.
    +JMS 2/26/2002
      CLEAR l_reqreferences_temp.
      READ TABLE reqreferences INTO l_reqreferences_temp
        WITH KEY client   = longkey-client
                 reqno    = longkey-reqno
                 reqlline = longkey-reqlline
                 BINARY SEARCH.
      IF sy-subrc = 0.
        h_preq_item = l_reqreferences_temp-refline.
      ENDIF.
      CLEAR l_req_items.
      READ TABLE old_req_items INTO l_req_items
          WITH KEY preq_item = h_preq_item.
      MOVE-CORRESPONDING l_req_items TO reqheaders.
      reqheaders-begdate   = l_req_items-deliv_date.
      reqheaders-limit     = l_req_items-c_amt_bapi.
      reqheaders-exp_value = l_req_items-c_amt_bapi.
      reqheaders-gr_ind    = 'X'.
      reqheaders-reqno     = l_req_items-preq_no.           "jms 022602
      CLEAR l_req_items.
INSERT FORM **** CREATE_SERVICE_ITEM
      h_packno_item = h_packno_item + 1.
      h_packno_srv = h_packno_srv + 10000.
      h_introw      = h_introw + 1.
      CLEAR l_req_items.                                 " Note 364396
      MOVE-CORRESPONDING reqheaders TO l_req_items.
      l_req_items-preq_no = reqheaders-reqno.               "jms 022602
     l_REQ_ITEMS-PREQ_NO = REQUIS_NUMBER.                 "jms 022602
l_REQ_ITEMS-PREQ_ITEM = H_PREQ_ITEM + 1.    "iok 091801
      l_req_items-preq_item = h_preq_item.                  "iok 091801
      l_current_item = h_preq_item.                         "iok 092101
      h_srv_item = l_req_items-preq_item.
      h_preq_item = h_preq_item + 1.
      IF NOT reqheaders-limit IS INITIAL OR
         NOT reqheaders-exp_value IS INITIAL.
        IF reqheaders-gr_ind IS INITIAL.
          l_req_items-item_cat = '1'.
        ELSE.
          l_req_items-item_cat = '9'.
        ENDIF.
        l_req_items-deliv_date = reqheaders-begdate.
      ELSE.
        l_req_items-item_cat = '9'.
      ENDIF.
      IF l_req_items-del_datcat IS INITIAL.
        l_req_items-del_datcat = '1'.
      ENDIF.
      l_req_items-quantity = 1.
      l_req_items-pckg_no = h_packno_item.
      IF l_req_items-preq_name EQ space.
        l_req_items-preq_name = sy-uname.
      ENDIF.
      APPEND l_req_items TO req_items.
END OF FORM INSERTION ********
      l_req_limits-pckg_no    = h_packno_item.
      l_req_limits-limit      = reqheaders-limit.
      l_req_limits-exp_value = reqheaders-exp_value.
      l_req_limits-no_limit   = reqheaders-no_limit.
      l_req_limits-no_frlimit = 'X'.
      APPEND l_req_limits TO req_limits.
*.... Account assignment
    clear requisition_srv_accass_values.
      CLEAR l_req_serv_account.
      l_req_serv_account-pckg_no = h_packno_item.
      MOVE-CORRESPONDING l_reqlines TO longkey.
    read table reqaccts with key longkey binary search. "iok 091801
      READ TABLE reqaccts INTO l_reqaccts                   "iok 091801
        WITH KEY client   = longkey-client
                 reqno    = longkey-reqno
                 reqlline = longkey-reqlline
                 BINARY SEARCH.
      IF sy-subrc = 0.
        LOOP AT reqaccts
            INTO l_reqaccts
            WHERE reqno    = l_reqreferences-reqno
            AND   reqlline = l_reqreferences-reqlline.
INSERT FULL FORM *********** FILL_REQ_ACCT_SRV
          DATA: acctcomp1 TYPE bapiebkn,
                acctcomp2 TYPE bapiebkn,
                high_serial TYPE dzekkn. "LIKE BAPIEKKN-SERIAL_NO.
          CLEAR l_req_serv_account-serial_no.
          CLEAR acctcomp1.
          MOVE-CORRESPONDING l_reqaccts TO acctcomp1.
          CLEAR: acctcomp1-preq_no,
                 acctcomp1-preq_item,
                 acctcomp1-serial_no,
                 acctcomp1-created_on,
                 acctcomp1-created_by,
                 acctcomp1-preq_qty,
                 acctcomp1-distr_perc,
                 acctcomp1-change_id,
                 acctcomp1-currency.
          LOOP AT req_item_account INTO l_req_item_account.
            CLEAR acctcomp2.
MOVE-CORRESPONDING l_req_item_account TO ACCTCOMP2. "is blank
            CLEAR: acctcomp2-preq_no,
                   acctcomp2-preq_item,
                   acctcomp2-serial_no,
                   acctcomp2-created_on,
                   acctcomp2-created_by,
                   acctcomp2-preq_qty,
                   acctcomp2-distr_perc,
                   acctcomp2-change_id,
                   acctcomp2-currency.
           IF acctcomp1 EQ acctcomp2 AND h_srv_outl_created IS INITIAL.
            l_req_serv_account-serial_no = l_req_item_account-serial_no.
              EXIT.
            ENDIF.
            high_serial = l_req_item_account-serial_no.
          ENDLOOP.
          h_srv_outl_created = ' '.
          IF l_req_serv_account-serial_no IS INITIAL.
            MOVE-CORRESPONDING l_reqaccts TO l_req_item_account.
           l_REQ_item_ACCOUNT-PREQ_NO   = REQUIS_NUMBER.   "jms 022702
            l_req_item_account-preq_no = l_req_items-preq_no."jms 022702
            l_req_item_account-preq_item = h_srv_item.
REQUISITION_ACCOUNT_ASSIGNMENT-WBS_ELEM_E = REQACCT-BBP_PROJECT.
            l_req_item_account-serial_no = high_serial + 1.
            l_req_serv_account-serial_no = l_req_item_account-serial_no.
            APPEND l_req_item_account TO req_item_account.
          ENDIF.
END OF FORM INSERTION ***********
          h_serial_no = h_serial_no + 1.
          l_req_serv_account-serno_line = h_serial_no.
          l_req_serv_account-percentage = l_reqaccts-distr_perc.
          APPEND l_req_serv_account TO req_serv_account.
        ENDLOOP.
INSERT FULL FORM **************** CONVERT_ACCOUNT_***_CAT
data: account_tab LIKE bbp_pds_acc OCCURS 0 WITH HEADER LINE.
        DATA: account_tab TYPE STANDARD TABLE OF bbp_pds_acc.
        DATA: l_account_tab TYPE bbp_pds_acc.
        DATA: h_knttp TYPE knttp.
      move the accounting data to that item into the interface table
            LOOP AT reqaccts
           INTO l_reqaccts
          WHERE reqno    EQ l_reqreferences-reqno
            AND reqlline EQ l_reqreferences-reqlline.
          MOVE-CORRESPONDING l_reqaccts TO l_account_tab.
          APPEND l_account_tab TO account_tab.
        ENDLOOP.
      call the convert API
        CALL FUNCTION 'BBP_ACCCAT_MAP_EXP'
             EXPORTING
                  i_logical_system = logical_system
             IMPORTING
                  e_r3_acc_cat     = h_knttp
             TABLES
                  i_pd_account     = account_tab.
        IF h_knttp IS INITIAL.
          h_knttp = 'X'.
        ENDIF.
      +JMS 2/14/2002 Issue #1590
        CLEAR   account_tab.
        REFRESH account_tab.
      account assignment category - set in the correct item
        LOOP AT req_items
           INTO l_req_items
          WHERE preq_item EQ l_req_item_account-preq_item.
          l_req_items-acctasscat = h_knttp.
          MODIFY req_items FROM l_req_items INDEX sy-tabix.
        ENDLOOP.
END OF FORM INSERTION ************
      ELSE.
INSERT FULL FORM ************* Form CONVERT_ACCOUNT_***_CAT_U
        LOOP AT req_items
           INTO l_req_items
          WHERE preq_item EQ l_current_item.
          l_req_items-acctasscat = 'U'.
          MODIFY req_items FROM l_req_items INDEX sy-tabix.
        ENDLOOP.
END OF FORM INSERTION ************
      ENDIF.
    Get UNSPSC code (first hit) based on Material Group and store
    in text id B05.   iok 092101
      READ TABLE req_items INTO l_req_items
          WITH KEY preq_item = l_current_item
                   mat_grp   = l_mat_group.
      READ TABLE req_item_text INTO l_req_item_text
          WITH KEY preq_no   = requis_number
                   preq_item = l_req_items-preq_item
                   text_id   = 'B05'.
      IF sy-subrc <> 0.
        CLEAR l_req_item_text.
      Get UNSPSC Code from Material Group .. even if arbitrary
        SELECT unspsc_code UP TO 1 ROWS
          FROM zxl8_category_id
          INTO l_req_item_text-text_line
         WHERE category_id = l_mat_group.
        ENDSELECT.
      If nothing found then fill in a dummy UNSPSC. The first
      letter of the Material will designate whether it's a Material
      or Service.
        IF sy-subrc NE 0.
        Move the Material Group value into a holding variable
          CONCATENATE l_mat_group(1) 'XXXXXXX'
                 INTO l_req_item_text-text_line.
        ENDIF.
        l_req_item_text-preq_no   = requis_number.
        l_req_item_text-preq_item = l_req_items-preq_item.
        l_req_item_text-text_id   = 'B05'.
        INSERT l_req_item_text INTO TABLE req_item_text.
      ENDIF.
    Don't send Internal Note to Backend
     delete req_item_text where text_id = 'B02'.
Service -- NOT NEEDED -- IOK 07/13/01
   elseif not reqlines-reqsline is initial
         and reqlines-line_type eq '2'.
     move-corresponding reqlines to shortkey.
     read table reqlinesrs with key shortkey binary search.
     if sy-subrc = 0.
       h_serv = reqlinesrs.
       append h_serv.
     endif.
material item -- NOT NEEDED -- IOK 07/13/01
    ENDIF.
ENDLOOP.
Services -- NOT NEED -- IOK 07/13/01
IF f_limit_change = 'X'.
Check multiple account assignment
    LOOP AT req_items INTO l_req_items.
      h_index = sy-tabix.
      CLEAR next.
      LOOP AT req_item_account
         INTO l_req_item_account
        WHERE preq_item EQ l_req_items-preq_item.
        next = next + 1.
      ENDLOOP.
      IF next > 1.
        l_req_items-distrib    = '2'. "prozentuale Verteilung
        l_req_items-part_inv   = '1'.
        l_req_items-gr_non_val = 'X'.
       MODIFY req_items FROM l_req_items INDEX h_index.     "217191
     modify requisition_items.                                "217191
      ENDIF.
    ENDLOOP.
ENDIF.
Remap delivery address for backend processing
LOOP AT req_addrdelivery INTO l_req_addrdelivery.
    MOVE: l_req_addrdelivery-name_2   TO l_req_addrdelivery-name,
           l_req_addrdelivery-c_o_name TO l_req_addrdelivery-name_2.
    CLEAR: l_req_addrdelivery-c_o_name.
    MODIFY req_addrdelivery FROM l_req_addrdelivery INDEX sy-tabix.
ENDLOOP.
CHM 07/16/2003 Changed created by to always be actual creator even
               for on behalf of situations
    LOOP AT req_items
       INTO l_req_items.
      l_req_items-created_by = x_sc_header-created_by.
      MODIFY req_items FROM l_req_items INDEX sy-tabix.
    ENDLOOP.
CMH - end change
MA 12/10/04 - Pass MP2 number from Manu Prod# to Req Item Text
LOOP AT req_items INTO l_req_items.
    READ TABLE t_sc_item into x_sc_item
         WITH KEY number_int = l_req_items-preq_item.
    l_req_item_text-preq_no   = requis_number.
    l_req_item_text-preq_item = l_req_items-preq_item.
    l_req_item_text-text_id   = 'B06'.
    l_req_item_text-text_line = x_sc_item-manu_prod.
    INSERT l_req_item_text INTO TABLE req_item_text.
ENDLOOP.
ENDMETHOD.

Any help guys?
Thanks
Manyam

Debugging the BADI Enhancement while running XIF

Hi gurus,
I am currently trying to modify some data in the Inbound BDoc BUPA_REL (Business Partner Relationship) using the BADI CRMXIF_PARTNER_R_MAP with method CHANGE_MAPPED_DATA_IN.
Unfortunately I am trying to debug without sucess. I tried to follow the procedure described in Note 591691.
How shall I proceed to debug this Badi?
Thanks in advance

Hi Gabriel,
It is generally you put an External Breakpoint on the method and while executig you Bdoc the debbuger should stop,
In case you are still not able to achieve this there is a an out of box option that plaese re install your SAP GUI, coz i have seen in certain instance that the debbugger starts working.
Regards,,
Pranay
Do rewrad Points

Not able to debug BBP_GROUP_LOC_PO badi in SRM

Hi Experts ,
I am not able to debug the badi BBP_GROUP_LOC_PO .
I have set the external break points in the BADI .
Is this geting called in Background? In that case what needs to be done?
Regards,
Sunitha

Sunitha,
you can debug badi BBP_GROUP_LOC_PO BADI only after execute the program BBP_SC_TRANSFER_GROUPED.
Keep the external bp in your Badi implementation and later execute the above program. It will exactly stop the place where you place the BP.

Debugging BBP_CREATE_BE_PO_NEW BADI

Experts,
I'm trying to debug BBP_CREATE_BE_PO_NEW while creating PO in the backend system. First, I tried putting break-point and it didn't work. Then, thinking it may be background task, I tried to put an infinite loop in the implementation and using transaction SM50 to switch on the process...it didn't work either (couldn't find the process at all). I've checked everything and the implementation is active. However, I had difficulty activating my implementation because SAP had a delivered implementation (BBP_CREATE_BE_PO_BR specific for Brazil implementation) and was not able to activate my implementation....but after deactivating the delivered implementation I was able to activate my implementation. Does anyone have a better idea to debug this BADI? Thanks for your help in advance.
P.S. I'm working in SRM 6.0 and ECC 6.0
Edited by: Teferi M on Oct 9, 2008 11:30 PM

What scenario are you working in? BBP_CREATE_BE_PO_NEW only gets called in classic scenario. BBP_ECS_PO_OUT_BADI is the one used in Extended Classic Scenario.
You can try to use external debugging with WF-BATCH, but if an endless loop doesn't help, there is the big chance (bordering on certainty) that you've got the wrong badi.
Regards,
Robin

How to debug the BADI - BBP_CREATE_BE_RQ_NEW

Hi Experts,
Help me how to debug the BADI in order to validate my coding.
I have put a break point in the BADI and run the class CL_BBP_SC_TRANSFER_CLASSIC Instance DO by giving the SC no and the GUID but still the BADI is not getting triggered.
Suggest me any other way to debug the BADI.
Regards
Paul

Hi,
You can put an endless loop in your BADI BBP_CREATE_BE_RQ_NEW ,as shown below and force the program to stop there. Now go to SM50 and switch to debug mode for the program and start debugging(take process that keeps hangs in your endless loop).
Data: l_flag.
do.
if l_flag eq 'X'.
exit.
endif.
enddo.
BR,
Disha.
DO reward points for useful answers.

How to Debug UJD_Retract BADI

Hi,
How can i debug UJD_RETRACT BADI created for retracting the data from BW to ECC?
any t-code in BW?
I am executing the BADI through DM package.
Inputs appreciated.

Which part do you want to debug: BPC or ECC?
To debug it in BPC I'd recommend running program UJD_TEST_PACKAGE. Debugging in ECC could be more tricky.
Regards,
Gersh

Debugging ES BADI

Hello, gurus
Iu2019m not sure that I put this question in right thread, feel free to move it.
Here is mine problem:
I have implementation of BADI of BADI_ESH_IF_OBJECT_DATA, It have been call from Enterprise Search.
The breakpoints doesnu2019t stop.
I put ext. breakpoint in mine class and schedule indexing job, itu2019s not stop.
I also try to stop and debug that process from sm50, its not stop again nor give me error message.
Any idea how to debug such class?
Thanks
sorry for my poor english
Hristo

Try this way
+. write following code in your ECC badi :
DATA NUM TYPE I VALUE 1.
WHILE NUM < 2.
ENDWHILE.
+. This will begin an undefined loop. Now, goto transaction SM50, select your program in process overview, and goto Menu "Program/Mode->Program->Debugging"
+. Debugger will start at While loop statement. Change the value of NUM to greater than 2 to get out of loop and proceed further with debugging
PS I am not 100% sure about this.
a®

Not able to debug the BADI implemntation-for badi "BBP_ECS_PO_OUT_BADI"

Hi ,
Currently i need to debug the implemenation YBBP_ECS_PO_OUT_BADI" of the badi "BBP_ECS_PO_OUT_BADI" this is used for tolerance check .but in the portal when i am click on the confirm button this implementation need to be called for checking the tolerance but in my case the badi is not at triggering. can any one give the solution for the above problem.
how can i find the program calling the BADI implemenation YBBP_ECS_PO_OUT_BADI .can i know this from the portal.help me

Hi,
Please go through the following links:
Re: Debug PO transfer
How do debug BBP_ECS_PO_OUT_BADI?
Thanks,
Pradeep

How to debug BADI BBP_SAPXML1_OUT_BADI during PO Creation and change

Hi All,
I have a scenario in which i need to send some additional fields with the PO data to the XI via PROXY .
To do this i have enhanced the proxy structure with additional fields and For mapping these fields, I created an implementation of method PURCHASEORDER of BAdI BBP_SAPXML1_OUT_BADI with filter PO ( Purchase orders ).
But this implementation is not getting processed.
Whenever Po is created the XI will receive the data but the additional fields are not available in XI.
To check the code i need to debug the badi implementation .
Can anybody please tell me why this badi is not triggered and how to debug the badi code.
Its urgebt .
Thanks in Advance.
Regards,
Naresh

Hi Naresh,
Go to your BADI Implementation set infinite loop in the method. Run the transaction SPPFP & set Promotion status to 0 & Processing Type as MET & execute it, Select the PO you want to debug & press F8. Goto sm50 to debug the BADI.
Thanks

How to Debug - Badi BBP_SAPXML1_IN_BADI

Hello Experts,
Could you please guide me that how to debug this badi - BBP_SAPXML1_IN_BADI.
Will this badi works for Schedule agreement release?
Thanks in advance.
Aakash

you have to use the transaction sxi_support to debug the inbound xml document.
get the xml document , insert the payload , use /h for debugging , place the breakpoint and execute.

Debug BADI....

Hi all,
     I need to debug a BADI BILL_ACC_IF.
     I am setting a break point in the BADI implementation and then I am trying to maintain the Billing document online.......
     but it is not going in debugging mode.....
can you pls hel p me ?

You need to catch the BDoc and then debug from there.
1. In transaction SMQR, deregister the CSA_BILLDOC* queue.
2. Run the Billing Due List
3. In transaction SMQ2, you will see the "caught" BDoc
4. Execute the BDoc in debug mode, and set a breakpoint in your Implementing Class and Method
Thanks,
Ben

Debugging N step badi triggering GOA workflow

Hi Gurus,
We have a approval workflow which is triggered whenever a GOA document is saved or its change version is saved.
The BADI is used for determining the approvers and assigning leves as we have multiple level approval process.
I want to debug this badi whenever i create a GOA document using transaction BBP_CTR_MAINCC.
I tried using normal session break point technique but it didn't work. I also tried to put infinite loop in the badi and tried debugging using sm50 but without success.
Request you to suggest how to debug that badi .
Regards,
Rohit

I think you can just debug the badi from SE19.
1. Create a GOA in the web frontend, but don't do any approval just yet
2. Write the GOA number down somewhere.
3. the object type is BUS2000113
4. Start SE19 and start debugging the BADI workflow
5. Enter the object id = goa number, object type = BUS2000113
6. Start debugging
Regards,
Robin

SRM - Shopping Cart - how to debug BADI BBP_CREATE_BE_RS_NEW in ECC system

Hi,
We are using BADI BBP_CREATE_BE_RS_NEW (ECC system).
We put external breakpoint on this BADI. Made sure also that the BADI is activated.
Our problem is it didnu2019t stop on our breakpoint. Authorizations to debug/etc are there.
When it was not possible to debug when shopping cart is created in internet link (SRM), we used tcode BBPSC01 (ECC system) to see if we can go to the BADI and debug it. However still the program did not stop at break point at the ECC side.
(SRM Module shopping cart)
How do we debug this BADI in ECC? Anything to set up or ?????
SRM_SERVER 550 0013 SAPKIBKT13 SRM_SERVER 550: Add-on installation
SRM add on to ECC 6.0
Looking forward to hearing from you as soon as possible.
Thanks.

Hello,
User calling BAdI in ECC must be a dialog one in order to be able to debug with.
Check whom user is called in R/3 by having a look at RFC transactional assigned to your R/3 backend in SRM SM59 transaction.
Then, in R/3, modify this user as a dialog one (type 'B') then put an external break-point for this user.
Regards.
Laurent

BADI BBP_CREATE_BE_RS_NEW - how to debug in ECC (SRM shopping cart)

Hi,
We are using BADI BBP_CREATE_BE_RS_NEW (ECC system).
We put external breakpoint on this BADI.   Made sure also that the BADI is activated.
Our problem is it didnu2019t stop on our breakpoint. Authorizations to debug/etc are there.
When it was not possible to debug when shopping cart is created in internet link (SRM), we used tcode BBPSC01 (ECC system) to see if we can go to the BADI and debug it. However still the program did not stop at break point at the ECC side.
(SRM Module shopping cart)
How do we debug this BADI in ECC? Anything to set up or ?????
SRM_SERVER   550   0013    SAPKIBKT13   SRM_SERVER 550: Add-on installation
SRM add on to ECC 6.0
Looking forward to hearing from you <removed by moderator>.
Thanks.
Edited by: Thomas Zloch on Sep 30, 2011 4:01 PM

1) If your debugging in our Development system.
You can use the DO , ENDDO loop.
Copy and paste the below code in your BADI code where you want to start debugging.
Create the shopping cart in SRM then the screen will be in processing mode.
Go to ECC system transaction code SM50
execute the transaction you will see an ALV report with all processeor running.
You will find one line with your BADI name .
Select that line and GOTO -> Program/Session menu option -> Program -> Debugging.
After the above action Debugger will start and the curser will be at DO , ENDDO loop.
make the FLAG value = 'X" in the debugging and from there you can debug the BADI.
DATA : FLAG.
DO.
IF FLAG = 'X'.
   EXIT.
ENDIF.
ENDDO.
Once your debugging is over make sure that the above code is deleted.
Let me know if there are any concerns.
2) If you want to debug in the Testing or production environment then you have to login to ECC system with your RFC user name and put the external break point.
When you create the Shopping cart the RFC user will run the ECC logic thats why we ned to login with the RFC user.
We can request BASIS people to give the access for some time to debug the application with RFC user.
This you can do in Development also.
Thanks
Naresh
Edited by: Naresh Nelapatla on Oct 26, 2011 1:54 PM

Debugging of BADI

Similar Messages

Maybe you are looking for