Strat routine code in transfer rules for the Extractor - 0CO_OM_CCA_1

Question

Dear SDNers,
I have a scenario to implement a start rouine code in the transfer rulesfor the Extractor - 0CO_OM_CCA_1 , please give a light on this.
Scenario:
The extractor 0C0_OM_CCA_1 brings in Cost Center transactional data for costs and allocation into the SAP BI data warehouse. A cross reference table will be created in SAP BI for Profit Center. These tables will have CRM (CARDIAC RHYTHM MANAGEMENT) Profit Centers stored in them.
In the transfer rules for 0CO_OM_CCA_1, add ABAP code in the start routine to block CRM (CARDIAC RHYTHM MANAGEMENT) data. The code will have the following logic:
Check Cost center master data table u2018/BI0/QCOSTCENTERu2019
This table u2018/BI0/QCOSTCENTERu2019 being time dependent, use the last day of the fiscal period from transactional data as the date to select from u2018/BI0/QCOSTCENTERu2019.
Go to the Profit center reference table and identify if the data belongs to BSC Boston Scientific/CRM (CARDIAC RHYTHM MANAGEMENT).
Block CRM (CARDIAC RHYTHM MANAGEMENT) data.
Best Regards,
Satya
Edited by: satya prasad on Sep 8, 2009 8:16 AM

Answer 1

You could give this a try:
DATA: wa_qcostcenter TYPE /bi0/qcostcenter,
      wa_ppcxref TYPE /bic/ppcxref,       "Custom Profit Center Cross-Reference table
      l_tabix TYPE sy-tabix,
      l_last_date TYPE d.
LOOP AT data_package.
  l_tabix = sy-tabix.
  CALL FUNCTION
    'LAST_DAY_IN_PERIOD_GET'
  EXPORTING
    i_gjahr = data_package-fiscper+0(4)
    i_periv = data_package-fiscvarnt
    i_poper = data_package-fiscper+4(3)
  IMPORTING
    e_date = l_last_date.
  SELECT SINGLE
  FROM
    /bi0/qcostcenter
  INTO
    wa_qcostcenter
  WHERE
    costcenter = data_package-kostl
    AND dateto <= l_last_date
    AND datefrom >= l_last_date.
  IF sy-subrc EQ 0.
    SELECT
    FROM
      /bic/ppcxref
    INTO
      wa_ppcxref
    WHERE
      profit_ctr = wa_qcostcenter-profit_ctr.
    IF sy-subrc EQ 0.
      IF wa_ppcxref-data = 'CRM'.
        DELETE
          data_package
        INDEX
          l_tabix.
      ENDIF.
    ENDIF.
ENDLOOP.
Edited by: Dennis Scoville on Sep 8, 2009 4:32 PM