Former Member

August 24, 2006 21 minute read

How to Retract BPS data back to R/3 when there is no standard retractor

http://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/webcontent/uuid/925b02f9-0b01-0010-bbbf-c68268bb3c41″ width=”235″/>

In this final (Retraction Series) weblog I would like to give an idea on how to retract BPS data back to R/3 when there is no standard retractor available

Necessity: What if

there’s no standard retractor
you cannot make retractor work due to design complexities

So, whats the answer?…..its simple.

find the relavant BAPI thats responsible for posting the values in R/3
Read the records from cube
call the BAPI and pass reqd values to BAPI from BW system

BAPI’s for COSTCENTER Accounting

BAPI_COSTACTPLN_POSTPRIMCOST – For posting Primary Cost & Quantity
BAPI_COSTACTPLN_POSTACTOUTPUT – For posting Activities & Prices

How to Read data from Cube

Call function module ‘RSDRI_INFOPROV_READ’ to read the data from cube
For more help and info on how to read the cube then see the program ‘RSDRI_INFOPROV_READ_DEMO‘

Sample Code
REPORT z_post_co_data.TABLES: /bic/vbps_tlb01h.TYPE-POOLS: rs, rsdrc.TYPES: BEGIN OF gt_s_data, 0co_area(4) TYPE c, 0costcenter(10) TYPE c, 0costelmnt(10) TYPE c, 0acttype(6) TYPE c, 0version(3) TYPE c, 0emplgroup(1) TYPE c, 0cstelmntyp(2) TYPE c, 0vtype(3) TYPE n, 0fiscper(7) TYPE n, 0fiscper3(3) TYPE n, 0fiscvarnt(2) TYPE c, 0fiscyear(4) TYPE n, 0amount TYPE p DECIMALS 2, 0quantity TYPE p DECIMALS 1, 0act_capact TYPE p DECIMALS 1, 0amoccc TYPE p DECIMALS 2, END OF gt_s_data.TYPES: BEGIN OF ys_bapiacpstru, object_index(000006) TYPE n, value_index(000006) TYPE n, attrib_index(000006) TYPE n, END OF ys_bapiacpstru, yt_bapiacpstru TYPE STANDARD TABLE OF ys_bapiacpstru WITH NON-UNIQUE DEFAULT KEY.TYPES: BEGIN OF ys_bapipcpobj, object_index(000006) TYPE n, costcenter(000010) TYPE c, acttype(000006) TYPE c, co_busproc(000012) TYPE c, orderid(000012) TYPE c, wbs_element(000024) TYPE c, END OF ys_bapipcpobj, yt_bapipcpobj TYPE STANDARD TABLE OF ys_bapipcpobj WITH NON-UNIQUE DEFAULT KEY.TYPES: BEGIN OF ys_bapipcpval, value_index(000006) TYPE n, cost_elem(000010) TYPE c, resource(000010) TYPE c, trans_currency_iso(000003) TYPE c, trans_curr(000005) TYPE c, unit_iso(000003) TYPE c, unit_of_measure(000003) TYPE c, fix_val_per01(000012) TYPE p DECIMALS 000004, fix_val_per02(000012) TYPE p DECIMALS 000004, fix_val_per03(000012) TYPE p DECIMALS 000004, fix_val_per04(000012) TYPE p DECIMALS 000004, fix_val_per05(000012) TYPE p DECIMALS 000004, fix_val_per06(000012) TYPE p DECIMALS 000004, fix_val_per07(000012) TYPE p DECIMALS 000004, fix_val_per08(000012) TYPE p DECIMALS 000004, fix_val_per09(000012) TYPE p DECIMALS 000004, fix_val_per10(000012) TYPE p DECIMALS 000004, fix_val_per11(000012) TYPE p DECIMALS 000004, fix_val_per12(000012) TYPE p DECIMALS 000004, fix_val_per13(000012) TYPE p DECIMALS 000004, fix_val_per14(000012) TYPE p DECIMALS 000004, fix_val_per15(000012) TYPE p DECIMALS 000004, fix_val_per16(000012) TYPE p DECIMALS 000004, var_val_per01(000012) TYPE p DECIMALS 000004, var_val_per02(000012) TYPE p DECIMALS 000004, var_val_per03(000012) TYPE p DECIMALS 000004, var_val_per04(000012) TYPE p DECIMALS 000004, var_val_per05(000012) TYPE p DECIMALS 000004, var_val_per06(000012) TYPE p DECIMALS 000004, var_val_per07(000012) TYPE p DECIMALS 000004, var_val_per08(000012) TYPE p DECIMALS 000004, var_val_per09(000012) TYPE p DECIMALS 000004, var_val_per10(000012) TYPE p DECIMALS 000004, var_val_per11(000012) TYPE p DECIMALS 000004, var_val_per12(000012) TYPE p DECIMALS 000004, var_val_per13(000012) TYPE p DECIMALS 000004, var_val_per14(000012) TYPE p DECIMALS 000004, var_val_per15(000012) TYPE p DECIMALS 000004, var_val_per16(000012) TYPE p DECIMALS 000004, fix_quan_per01(000008) TYPE p DECIMALS 000003, fix_quan_per02(000008) TYPE p DECIMALS 000003, fix_quan_per03(000008) TYPE p DECIMALS 000003, fix_quan_per04(000008) TYPE p DECIMALS 000003, fix_quan_per05(000008) TYPE p DECIMALS 000003, fix_quan_per06(000008) TYPE p DECIMALS 000003, fix_quan_per07(000008) TYPE p DECIMALS 000003, fix_quan_per08(000008) TYPE p DECIMALS 000003, fix_quan_per09(000008) TYPE p DECIMALS 000003, fix_quan_per10(000008) TYPE p DECIMALS 000003, fix_quan_per11(000008) TYPE p DECIMALS 000003, fix_quan_per12(000008) TYPE p DECIMALS 000003, fix_quan_per13(000008) TYPE p DECIMALS 000003, fix_quan_per14(000008) TYPE p DECIMALS 000003, fix_quan_per15(000008) TYPE p DECIMALS 000003, fix_quan_per16(000008) TYPE p DECIMALS 000003, var_quan_per01(000008) TYPE p DECIMALS 000003, var_quan_per02(000008) TYPE p DECIMALS 000003, var_quan_per03(000008) TYPE p DECIMALS 000003, var_quan_per04(000008) TYPE p DECIMALS 000003, var_quan_per05(000008) TYPE p DECIMALS 000003, var_quan_per06(000008) TYPE p DECIMALS 000003, var_quan_per07(000008) TYPE p DECIMALS 000003, var_quan_per08(000008) TYPE p DECIMALS 000003, var_quan_per09(000008) TYPE p DECIMALS 000003, var_quan_per10(000008) TYPE p DECIMALS 000003, var_quan_per11(000008) TYPE p DECIMALS 000003, var_quan_per12(000008) TYPE p DECIMALS 000003, var_quan_per13(000008) TYPE p DECIMALS 000003, var_quan_per14(000008) TYPE p DECIMALS 000003, var_quan_per15(000008) TYPE p DECIMALS 000003, var_quan_per16(000008) TYPE p DECIMALS 000003, fund(000010) TYPE c, function(000016) TYPE c, grant_nbr(000020) TYPE c, END OF ys_bapipcpval, yt_bapipcpval TYPE STANDARD TABLE OF ys_bapipcpval WITH NON-UNIQUE DEFAULT KEY.TYPES: BEGIN OF ys_bapipcptot, value_index(000006) TYPE n, cost_elem(000010) TYPE c, resource(000010) TYPE c, trans_currency_iso(000003) TYPE c, trans_curr(000005) TYPE c, unit_iso(000003) TYPE c, unit_of_measure(000003) TYPE c, fix_value(000012) TYPE p DECIMALS 000004, dist_key_fix_val(000004) TYPE c, var_value(000012) TYPE p DECIMALS 000004, dist_key_var_val(000004) TYPE c, fix_quan(000008) TYPE p DECIMALS 000003, dist_key_fix_quan(000004) TYPE c, var_quan(000008) TYPE p DECIMALS 000003, dist_key_var_quan(000004) TYPE c, fund(000010) TYPE c, function(000016) TYPE c, grant_nbr(000020) TYPE c, END OF ys_bapipcptot, yt_bapipcptot TYPE STANDARD TABLE OF ys_bapipcptot WITH NON-UNIQUE DEFAULT KEY.DATA: g_bpheader TYPE bapiplnhdr, g_delta TYPE c, lt_index_structure TYPE yt_bapiacpstru, lt_coobject TYPE yt_bapipcpobj, lt_pervalue TYPE yt_bapipcpval, lt_totvalue TYPE yt_bapipcptot, is_return_com LIKE bapiret2, lt_return TYPE STANDARD TABLE OF bapiret2.DATA: i_index TYPE ys_bapiacpstru, i_coobject TYPE ys_bapipcpobj, i_pervalue TYPE ys_bapipcpval.DATA: g_s_sfc TYPE rsdri_s_sfc, g_th_sfc TYPE rsdri_th_sfc, g_s_range TYPE rsdri_s_range, g_th_range TYPE rsdri_t_range, g_s_sfk TYPE rsdri_s_sfk, g_th_sfk TYPE rsdri_th_sfk, g_t_sfc TYPE rsdri_t_sfc, g_t_sfk TYPE rsdri_t_sfk, g_t_rfcdata TYPE rsdri_t_rfcdata, e_t_field TYPE rsdp0_t_field, g_t_data TYPE STANDARD TABLE OF gt_s_data, g_s_data TYPE gt_s_data.DATA: g_end_of_data TYPE rs_bool, g_first_call TYPE rs_bool.SELECT-OPTIONS: s_coctr FOR /bic/vbps_tlb01h-0costcenter, s_cstelm FOR /bic/vbps_tlb01h-0costelmnt, s_acttyp FOR /bic/vbps_tlb01h-0acttype, s_fyear FOR /bic/vbps_tlb01h-0fiscyear NO-EXTENSION NO INTERVALS, s_period FOR /bic/vbps_tlb01h-0fiscper, s_ver FOR /bic/vbps_tlb01h-0version NO-EXTENSION NO INTERVALS.g_end_of_data = rs_c_false.g_first_call = rs_c_true.* Insert the rangePERFORM modify_ranges.* Insert CharacteristicsPERFORM insert_characteristics.* Insert Key FiguresPERFORM insert_keyfigures.* Read the infocubePERFORM read_infocube_records.PERFORM populate_header.PERFORM populate_bapi_tables.*PERFORM retract_to_r3.*&———————————————————————**& Form insert_characteristics*&———————————————————————** text*———————————————————————-** –> p1 text* <– p2 text*———————————————————————-*FORM insert_characteristics . CLEAR g_th_sfc. CLEAR g_s_sfc. g_s_sfc-chanm = ‘0ACTTYPE’. g_s_sfc-chaalias = ‘0ACTTYPE’. g_s_sfc-orderby = 0. INSERT g_s_sfc INTO TABLE g_th_sfc. CLEAR g_s_sfc. g_s_sfc-chanm = ‘0CO_AREA’. g_s_sfc-chaalias = ‘0CO_AREA’. g_s_sfc-orderby = 0. INSERT g_s_sfc INTO TABLE g_th_sfc. CLEAR g_s_sfc. g_s_sfc-chanm = ‘0COSTCENTER’. g_s_sfc-chaalias = ‘0COSTCENTER’. g_s_sfc-orderby = 0. INSERT g_s_sfc INTO TABLE g_th_sfc. CLEAR g_s_sfc. g_s_sfc-chanm = ‘0COSTELMNT’. g_s_sfc-chaalias = ‘0COSTELMNT’. g_s_sfc-orderby = 0. INSERT g_s_sfc INTO TABLE g_th_sfc. CLEAR g_s_sfc. g_s_sfc-chanm = ‘0VERSION’. g_s_sfc-chaalias = ‘0VERSION’. g_s_sfc-orderby = 0. INSERT g_s_sfc INTO TABLE g_th_sfc. CLEAR g_s_sfc. g_s_sfc-chanm = ‘0EMPLGROUP’. g_s_sfc-chaalias = ‘0EMPLGROUP’. g_s_sfc-orderby = 0. INSERT g_s_sfc INTO TABLE g_th_sfc. CLEAR g_s_sfc. g_s_sfc-chanm = ‘0CSTELMNTYP’. g_s_sfc-chaalias = ‘0CSTELMNTYP’. g_s_sfc-orderby = 0. INSERT g_s_sfc INTO TABLE g_th_sfc. CLEAR g_s_sfc. g_s_sfc-chanm = ‘0FISCYEAR’. g_s_sfc-chaalias = ‘0FISCYEAR’. g_s_sfc-orderby = 0. INSERT g_s_sfc INTO TABLE g_th_sfc. CLEAR g_s_sfc. g_s_sfc-chanm = ‘0FISCPER3’. g_s_sfc-chaalias = ‘0FISCPER3’. g_s_sfc-orderby = 0. INSERT g_s_sfc INTO TABLE g_th_sfc.ENDFORM. ” insert_characteristics*&———————————————————————**& Form insert_keyfigures*&———————————————————————** text*———————————————————————-** –> p1 text* <– p2 text*———————————————————————-*FORM insert_keyfigures . CLEAR g_th_sfk. CLEAR g_s_sfk. g_s_sfk-kyfnm = ‘0AMOUNT’. g_s_sfk-kyfalias = ‘0AMOUNT’. g_s_sfk-aggr = ‘SUM’. INSERT g_s_sfk INTO TABLE g_th_sfk. g_s_sfk-kyfnm = ‘0QUANTITY’. g_s_sfk-kyfalias = ‘0QUANTITY’. g_s_sfk-aggr = ‘SUM’. INSERT g_s_sfk INTO TABLE g_th_sfk. CLEAR g_s_sfk. g_s_sfk-kyfnm = ‘0ACT_CAPACT’. g_s_sfk-kyfalias = ‘0ACT_CAPACT’. g_s_sfk-aggr = ‘SUM’. INSERT g_s_sfk INTO TABLE g_th_sfk. CLEAR g_s_sfk. g_s_sfk-kyfnm = ‘0AMOCCC’. g_s_sfk-kyfalias = ‘0AMOCCC’. g_s_sfk-aggr = ‘SUM’. INSERT g_s_sfk INTO TABLE g_th_sfk.ENDFORM. ” insert_keyfigures*&———————————————————————**& Form read_infocube_records*&———————————————————————** text*———————————————————————-** –> p1 text* <– p2 text*———————————————————————-*FORM read_infocube_records . CALL FUNCTION ‘RSDRI_INFOPROV_READ’ EXPORTING i_infoprov = ‘BPS_T01’ i_th_sfc = g_th_sfc i_th_sfk = g_th_sfk i_t_range = g_th_range i_reference_date = sy-datum* i_save_in_table = rs_c_false* i_save_in_file = rs_c_false i_packagesize = ‘ ‘ i_authority_check = ‘R’ i_currency_conversion = ‘ ‘ i_use_db_aggregation = ‘ ‘ i_use_aggregates = ‘ ‘ i_rollup_only = ‘ ‘ i_read_ods_delta = ‘ ‘ IMPORTING e_t_data = g_t_data e_end_of_data = g_end_of_data CHANGING c_first_call = g_first_call EXCEPTIONS illegal_input = 1 illegal_input_sfc = 2 illegal_input_sfk = 3 illegal_input_range = 4 illegal_input_tablesel = 5 no_authorization = 6 ncum_not_supported = 7 illegal_download = 8 illegal_tablename = 9 OTHERS = 11. IF sy-subrc = 0. ENDIF.ENDFORM. ” read_infocube_records*&———————————————————————**& Form modify_ranges*&———————————————————————** text*———————————————————————-** –> p1 text* <– p2 text*———————————————————————-*FORM modify_ranges . IF NOT s_coctr IS INITIAL. g_s_range-chanm = ‘0COSTCENTER’. g_s_range-sign = ‘I’. g_s_range-compop = ‘EQ’. g_s_range-low = s_coctr-low.* g_s_range-high = s_coctr-high. INSERT g_s_range INTO TABLE g_th_range. ENDIF. IF NOT s_cstelm IS INITIAL. g_s_range-chanm = ‘0COSTELMNT’. g_s_range-sign = ‘I’. g_s_range-compop = ‘EQ’. g_s_range-low = s_cstelm-low.* g_s_range-high = s_coctr-high. INSERT g_s_range INTO TABLE g_th_range. ENDIF. IF NOT s_fyear IS INITIAL. g_s_range-chanm = ‘0FISCYEAR’. g_s_range-sign = ‘I’. g_s_range-compop = ‘EQ’. g_s_range-low = s_fyear-low. INSERT g_s_range INTO TABLE g_th_range. ENDIF. IF NOT s_ver IS INITIAL. g_s_range-chanm = ‘0VERSION’. g_s_range-sign = ‘I’. g_s_range-compop = ‘EQ’. g_s_range-low = s_ver-low. INSERT g_s_range INTO TABLE g_th_range. ENDIF.ENDFORM. ” modify_ranges*&———————————————————————**& Form populate_header*&———————————————————————** text*———————————————————————-** –> p1 text* <– p2 text*———————————————————————-*FORM populate_header . DATA: v_text(100) TYPE c, v_date(10) TYPE c.* Header Details g_bpheader-co_area = ‘CONT’. g_bpheader-fisc_year = s_fyear-low. g_bpheader-period_from = ‘001’. g_bpheader-period_to = ‘012’. g_bpheader-version = s_ver-low. WRITE sy-datum TO v_date MM/DD/YYYY. CONCATENATE ‘Retraction-‘ v_date ‘/’ sy-uzeit INTO v_text SEPARATED BY space. g_bpheader-doc_hdr_tx = v_text. g_bpheader-plan_currtype = ‘O’. CLEAR v_text.ENDFORM. ” populate_header*&———————————————————————**& Form populate_bapi_tables*&———————————————————————** text*———————————————————————-** –> p1 text* <– p2 text*———————————————————————-*FORM populate_bapi_tables . DATA: v_index(6) TYPE n. LOOP AT g_t_data INTO g_s_data.* Populate the indexstructure. v_index = sy-tabix. i_index-object_index = v_index. i_index-value_index = v_index. i_index-attrib_index = ‘000000’. INSERT i_index INTO TABLE lt_index_structure.* Populate the COOBJECT i_coobject-object_index = v_index. i_coobject-costcenter = g_s_data-0costcenter. i_coobject-acttype = g_s_data-0acttype. INSERT i_coobject INTO TABLE lt_coobject.* Populate the PERVALUE i_pervalue-value_index = v_index. i_pervalue-cost_elem = g_s_data-0costelmnt. i_pervalue-unit_of_measure = ‘STD’. CASE g_s_data-0fiscper3. WHEN ‘001’. i_pervalue-fix_val_per01 = g_s_data-0amount . i_pervalue-fix_quan_per01 = g_s_data-0quantity. WHEN ‘002’. i_pervalue-fix_val_per02 = g_s_data-0amount. i_pervalue-fix_quan_per02 = g_s_data-0quantity. WHEN ‘003’. i_pervalue-fix_val_per03 = g_s_data-0amount. i_pervalue-fix_quan_per03 = g_s_data-0quantity. WHEN ‘004’. i_pervalue-fix_val_per04 = g_s_data-0amount. i_pervalue-fix_quan_per04 = g_s_data-0quantity. WHEN ‘005’. i_pervalue-fix_val_per05 = g_s_data-0amount. i_pervalue-fix_quan_per05 = g_s_data-0quantity. WHEN ‘006’. i_pervalue-fix_val_per06 = g_s_data-0amount. i_pervalue-fix_quan_per06 = g_s_data-0quantity. WHEN ‘007’. i_pervalue-fix_val_per07 = g_s_data-0amount. i_pervalue-fix_quan_per07 = g_s_data-0quantity. WHEN ‘008’. i_pervalue-fix_val_per08 = g_s_data-0amount. i_pervalue-fix_quan_per08 = g_s_data-0quantity. WHEN ‘009’. i_pervalue-fix_val_per09 = g_s_data-0amount. i_pervalue-fix_quan_per09 = g_s_data-0quantity. WHEN ‘010’. i_pervalue-fix_val_per10 = g_s_data-0amount. i_pervalue-fix_quan_per10 = g_s_data-0quantity. WHEN ‘011’. i_pervalue-fix_val_per11 = g_s_data-0amount. i_pervalue-fix_quan_per11 = g_s_data-0quantity. WHEN ‘012’. i_pervalue-fix_val_per12 = g_s_data-0amount. i_pervalue-fix_quan_per12 = g_s_data-0quantity. ENDCASE. INSERT i_pervalue INTO TABLE lt_pervalue. PERFORM retract_to_r3. clear: i_pervalue , i_coobject, i_index, lt_pervalue, lt_coobject, lt_index_structure.* clear: i_pervalue , i_coobject, i_index. ENDLOOP.ENDFORM. ” populate_bapi_tables*&———————————————————————**& Form retract_to_r3*&———————————————————————** text*———————————————————————-** –> p1 text* <– p2 text*———————————————————————-*FORM retract_to_r3 . g_delta = ‘X’. CALL FUNCTION ‘BAPI_COSTACTPLN_POSTPRIMCOST’ DESTINATION ‘DS1310’ EXPORTING headerinfo = g_bpheader delta = g_delta TABLES indexstructure = lt_index_structure coobject = lt_coobject pervalue = lt_pervalue totvalue = lt_totvalue* contrl = lt_contrl return = lt_return. IF sy-subrc = 0. CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT’ DESTINATION ‘DS1310’ EXPORTING wait = ‘5’ IMPORTING return = is_return_com. WRITE:/ ‘Bapi Successful’. ENDIF.ENDFORM. ” retract_to_r3

9 Comments

You must be Logged on to comment or reply to a post.

Former Member

August 28, 2006 at 9:28 am

This is helpful as we are trying to write the HR retraction.

Former Member

Blog Post Author

August 31, 2006 at 4:53 pm

Im glad that its helpful for you.

Former Member

April 16, 2008 at 3:09 pm

Hello PRaveen,

We are planning to implement PCA retraction. I am trying to find the BAPI that posts the profit center values in R/3? Could you give any suggestion?

Regards

Former Member

January 23, 2007 at 3:13 am

Thanks a Lot for this useful information.

Former Member

June 5, 2007 at 6:56 pm

Hi. I need to retract planning data from BPS to a LIS, but I don't have CO-PA activated in R/3.
How can I find a BAPI that helps me to get this data into a LIS in R/3?

Thanks for your help.

Karim Reyes

Former Member

January 2, 2008 at 1:12 pm

Praveen,
Firstly thank you for creating a wonderful blog.
We are planning to PCA retraction . In this process I am trying to read a custom cube by using SAP demo program and I am having difficluties in reading.
Could you please give me your email-id or any type of contact?

Rgds
Praveen

Former Member

May 14, 2008 at 4:00 am

Great weblog.

Question is this still applicable to version 7 for custom built real-time info providers

Thanks

Former Member

July 6, 2009 at 10:16 am

Hi Praveen,

We are planning to extract same data like for costcenter planning. but i have a BPC infocube, I should not use BPS method of retracting data. but have to build a FM or do something to retrct.

could you please help me on this

Former Member

December 2, 2012 at 12:20 am

Hi Praveen...nice code..I have a question Why did you called subroutine PERFORM retract_to_r3 within loop and calling bapi again an again..Just curious to know is there any specific reason...???

How to Retract BPS data back to R/3 when there is no standard retractor

Assigned Tags