SAP Reports / Programs | Controlling | Product Cost Controlling | Product Cost Planning(CO-PC-PCP) SAP CO

MK70BF20 SAP ABAP INCLUDE - documentation and ABAP source code







MK70BF20 is a standard ABAP INCLUDE available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.

If you would like to execute this report or see the full code listing simply enter MK70BF20 into the relevant SAP transactions such as SE38 or SE80


ABAP code to call this SAP report using the submit statement

This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.






SUBMIT MK70BF20. "Basic submit
SUBMIT MK70BF20 AND RETURN. "Return to original report after report execution complete
SUBMIT MK70BF20 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


INCLUDES used within this REPORT MK70BF20

No INCLUDES are used within this REPORT code!


TABLES used within REPORT and the associated SELECT statement:





No SAP DATABASE tables are accessed within this REPORT code!


Function Modules used within report and the associated call statement:

ENQUEUE_EKCKBSE CALL FUNCTION 'ENQUEUE_EKCKBSE' EXPORTING kokrs = bts_kokrs extnr = bts_extnr EXCEPTIONS foreign_lock = 2 system_failure = 3.

K_UNITCOSTING_REFRESH CALL FUNCTION 'K_UNITCOSTING_REFRESH'.

POPUP_TO_CONFIRM_STEP CALL FUNCTION 'POPUP_TO_CONFIRM_STEP' EXPORTING * DEFAULTOPTION = 'Y' textline1 = text-100 * TEXTLINE2 = ' ' titel = text-113 * START_COLUMN = 25 * START_ROW = 6 cancel_display = 'X' IMPORTING answer = l_answer.

K_KOKRS_SET CALL FUNCTION 'K_KOKRS_SET' EXPORTING popup = '1'.

K_UNITCOSTING_PROCESS CALL FUNCTION 'K_UNITCOSTING_PROCESS' EXPORTING i_rk70s = l_rk70s i_bzobj_pointer = l_ref_object key_qualified = ' ' * IMPORTING * SAVE_FLG = * E_RK70SOUT = * TABLES * I_KIS1 = EXCEPTIONS error = 1 fatal_error = 2 OTHERS = 3.

CK_F_ORG_ELEMENTS_COMPANY_CODE CALL FUNCTION 'CK_F_ORG_ELEMENTS_COMPANY_CODE' EXPORTING bukrs = sav_kbs1-bukrs IMPORTING f_ckibukrs = l_ckibukrs EXCEPTIONS bukrs_not_found = 1 "Checked kokrs_not_found = 2 "Checked OTHERS = 3.

K_UNITCOSTING_PROCESS CALL FUNCTION 'K_UNITCOSTING_PROCESS' EXPORTING i_rk70s = l_rk70s i_bzobj_pointer = l_ref_object key_qualified = space i_extnr = rk70b-ref_extnr IMPORTING save_flg = l_save_flg e_rk70sout = l_rk70sout * TABLES * I_KIS1 = EXCEPTIONS error = 1 fatal_error = 2 OTHERS = 3.

CK_F_ORG_ELEMENTS_COMPANY_CODE CALL FUNCTION 'CK_F_ORG_ELEMENTS_COMPANY_CODE' EXPORTING bukrs = sav_kbs1-bukrs IMPORTING f_ckibukrs = l_ckibukrs EXCEPTIONS bukrs_not_found = 1 "Checked kokrs_not_found = 2 "Checked OTHERS = 3.

K_UNITCOSTING_PROCESS CALL FUNCTION 'K_UNITCOSTING_PROCESS' EXPORTING i_rk70s = l_rk70s i_bzobj_pointer = l_ref_object key_qualified = space * I_EXTNR = RK70B-REF_EXTNR tmp_suppress_dialog = 'X' IMPORTING save_flg = l_save_flg e_rk70sout = l_rk70sout * TABLES * I_KIS1 = EXCEPTIONS error = 1 fatal_error = 2 OTHERS = 3.

K_UNITCOSTING_PROCESS CALL FUNCTION 'K_UNITCOSTING_PROCESS' EXPORTING i_rk70s = l_rk70s i_bzobj_pointer = l_ref_object key_qualified = ' ' IMPORTING save_flg = l_save_flg e_rk70sout = l_rk70sout * TABLES * I_KIS1 = EXCEPTIONS error = 1 fatal_error = 2 OTHERS = 3.

KKEK_IN_POPUP_LTEXT_LANGUAGE CALL FUNCTION 'KKEK_IN_POPUP_LTEXT_LANGUAGE' EXPORTING tdid_imp = l_ltext-tdid tdname_imp = l_ltext-tdname tdobject_imp = l_ltext-tdobject sug_spras_imp = g_ltext_spras IMPORTING rc_exp = l_rc spras_exp = l_new_spras.

K_LTXT_HANDLING CALL FUNCTION 'K_LTXT_HANDLING' EXPORTING ltext = l_ltext l_aktyp = g_aktyp "A,H,V IMPORTING flg_ltext_changed = l_flg_ltext_changed CHANGING txflg_chg = l_txflg.

RK_BUKRS_OF_KOKRS CALL FUNCTION 'RK_BUKRS_OF_KOKRS' EXPORTING kokrs = sav_rk70b-kokrs TABLES t_bukrs = t_bukrs.

HELP_VALUES_GET_WITH_TABLE_EXT CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE_EXT' EXPORTING cucol = 0 curow = 0 display = display fieldname = 'BUKRS' tabname = 'T001' * IMPORTING * INDEX = * SELECT_VALUE = TABLES fields = f4_value select_values = f4_vtab valuetab = sli_tab.

DYNP_VALUES_READ CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING dyname = l_prog dynumb = l_dnum translate_to_upper = char_x TABLES dynpfields = t_dynpread.

HELP_VALUES_GET CALL FUNCTION 'HELP_VALUES_GET' EXPORTING display = display fieldname = 'WERKS' * INPUT_VALUE = E03 tabname = 'RK70B' IMPORTING select_value = f4_werks.

K_WERKS_OF_BUKRS_FIND CALL FUNCTION 'K_WERKS_OF_BUKRS_FIND' EXPORTING bukrs = f4_bukrs TABLES itab_001w = valwerks EXCEPTIONS "INS CM Jan. 2000

HELP_VALUES_GET_WITH_TABLE_EXT CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE_EXT' EXPORTING cucol = 0 curow = 0 display = display fieldname = 'WERKS' tabname = 'T001W' * IMPORTING * INDEX = * SELECT_VALUE = TABLES fields = f4_value select_values = f4_vtab valuetab = sli_tab.

DYNP_VALUES_READ





CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING dyname = l_prog dynumb = l_dnum translate_to_upper = char_x TABLES dynpfields = t_dynpread.

K_VALUE_REQUEST_ZSCHL CALL FUNCTION 'K_VALUE_REQUEST_ZSCHL' EXPORTING display = display IMPORTING select_value = f4_zschl.

UNIT_CONVERSION_SIMPLE CALL FUNCTION 'UNIT_CONVERSION_SIMPLE' EXPORTING input = rk70c-losgr round_sign = char_x unit_in = rk70b-meeht unit_out = rk70b-meeht IMPORTING output = menge_output.

POPUP_TO_CONFIRM_STEP CALL FUNCTION 'POPUP_TO_CONFIRM_STEP' EXPORTING * DEFAULTOPTION = 'Y' textline1 = text-100 "Wollen Sie Ihre Daten sichern * TEXTLINE2 = ' ' titel = l_title * START_COLUMN = 25 * START_ROW = 6 cancel_display = 'X' IMPORTING answer = l_answer.

POPUP_TO_CONFIRM_STEP CALL FUNCTION 'POPUP_TO_CONFIRM_STEP' EXPORTING defaultoption = 'N' textline1 = text-101 "Daten werden verloren gehen textline2 = text-102 "Wollen Sie die Transaktion titel = l_title * START_COLUMN = 25 * START_ROW = 6 cancel_display = space IMPORTING answer = l_answer.

KE_PROFIT_CENTER_CHECK CALL FUNCTION 'KE_PROFIT_CENTER_CHECK' EXPORTING bukrs = p_bukrs * DATUM = '00000000' * DATUM_BIS = '00000000' prctr = p_prctr * TEST_KOKRS = ' ' * READ_TEXT = 'X' * IMPORTING * BUKRS_JV = * DATBI = * ETYPE = * KOKRS = * KTEXT = * RECID = * REGIO = * RETURN_CODE = * TXJCD = * VNAME = * LTEXT = EXCEPTIONS not_found = 1 no_kokrs_for_bukrs = 2 parameter_mismatch = 3 prctr_locked = 4 not_defined_for_bukrs = 5 OTHERS = 6.



Contribute (Add Comments)

Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.

The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.

This will then be available for everyone to easily find by simply searching on the report name MK70BF20 or its description.