SAP Reports / Programs | Controlling | Overhead Cost Controlling | Cost Center Accounting(CO-OM-CCA) SAP CO
MKGALFO4 SAP ABAP INCLUDE - documentation and ABAP source code
MKGALFO4 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 MKGALFO4 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 MKGALFO4. "Basic submit
SUBMIT MKGALFO4 AND RETURN. "Return to original report after report execution complete
SUBMIT MKGALFO4 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 MKGALFO4
INCLUDE LKAIPTAT.
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:
K_VERSN_ACTIVATE_VALUTYP_5 CALL FUNCTION 'K_VERSN_ACTIVATE_VALUTYP_5'.
K_KOKRS_READ CALL FUNCTION 'K_KOKRS_READ' EXPORTING ** GJAHR = sy-datum(4) HW 894940 GJAHR = rkga2u-gjahr kokrs = it811c-cycle(4) IMPORTING E_TKA00 = tka00.
G_SET_INDEX_READ CALL FUNCTION 'G_SET_INDEX_READ' EXPORTING INDEX = KEYVALUES-SETINDX IMPORTING HEADER = RGSMH SUBRC = RCODE.
G_SET_GET_ALL_VALUES CALL FUNCTION 'G_SET_GET_ALL_VALUES' EXPORTING SETNR = RGSMH-SETNR TABLES SET_VALUES = LT_VALUES EXCEPTIONS SET_NOT_FOUND = 1 OTHERS = 2.
K_SUBKEY_GET CALL FUNCTION 'K_SUBKEY_GET' EXPORTING MERKMALE = COKEY_IS IMPORTING CO_HRKFT = ALL-HRKFT.
SELECT_COSTELEMENTS * call function 'SELECT_COSTELEMENTS' * exporting * ce_from = coka-kstar * ce_to = coka-kstar * kokrs = all-kokrs * tables * it_cskaf = itcskaf * it_cskau = itcskaf * period = itperiods * exceptions * kokrs_not_found = 01 * no_record_found = 02.
MESSAGE_STORE * call function 'MESSAGE_STORE' * exporting arbgb = 'GA' * msgty = 'A' * txtnr = '125' * msgv1 = coka-kstar * msgv2 = '' * msgv3 = ''.
K_SUBKEY_GET CALL FUNCTION 'K_SUBKEY_GET' EXPORTING MERKMALE = COKEY_IS IMPORTING CO_HRKFT = ALL-HRKFT.
SELECT_COSTELEMENTS * call function 'SELECT_COSTELEMENTS' * exporting * ce_from = coka-kstar * ce_to = coka-kstar * kokrs = all-kokrs * tables * it_cskaf = itcskaf * it_cskau = itcskaf * period = itperiods * exceptions * kokrs_not_found = 01 * no_record_found = 02.
MESSAGE_STORE * call function 'MESSAGE_STORE' * exporting arbgb = 'GA' * msgty = 'A' * txtnr = '125' * msgv1 = coka-kstar * msgv2 = '' * msgv3 = ''.
K_COKA_MEINH_GET CALL FUNCTION 'K_COKA_MEINH_GET' EXPORTING I_KOKRS = ALL-KOKRS I_OBJNR = ALL-OBJNR I_USPOB = ALL-USPOB I_GJAHR = ALL-GJAHR I_KSTAR = ALL-KSTAR I_HRKFT = ALL-HRKFT I_VRGNG = ALL-VRGNG I_MEINB = ALL-MEINH * I_GJAHR_LOOKUP = IMPORTING E_MEINH = COKA-MEINH.
K_COKA_FILL CALL FUNCTION 'K_COKA_FILL' EXPORTING COKA_FILL = COKA.
K_COKA_MEINH_GET * call function 'K_COKA_MEINH_GET' * exporting * i_kokrs =
* i_objnr = coka-objnr * i_uspob = cossa-uspob * i_gjahr = coka-gjahr * i_kstar = coka-kstar * i_hrkft = coka-hrkft * i_vrgng = cossa-vrgng * i_meinb = coka-meinh * I_GJAHR_LOOKUP = * importing * e_meinh = coka-meinh.
K_COKL_FILL * call function 'K_COKL_FILL' * exporting * cokl_fill = cokl.
K_COKL_READ CALL FUNCTION 'K_COKL_READ' EXPORTING COKL_READ = COKL TEST_READ = 'X' EXCEPTIONS NOT_FOUND = 1 CSSL_MISSING = 2 BP_MISSING = 3 OTHERS = 4.
SELECT_COSTELEMENTS CALL FUNCTION 'SELECT_COSTELEMENTS' EXPORTING CE_FROM =
CE_TO = COMPL_FLAG = 'X' KOKRS = TEXT_FLAG = SPACE TABLES IT_CSKAF = ICSKAF IT_CSKAU = ICSKAU PERIOD = ITPERIODS EXCEPTIONS OTHERS = 1.
K_COKA_MEINH_GET CALL FUNCTION 'K_COKA_MEINH_GET' EXPORTING I_KOKRS =
I_OBJNR = COKA-OBJNR I_USPOB = USPOB I_GJAHR = COKA-GJAHR I_KSTAR = COKA-KSTAR I_HRKFT = COKA-HRKFT I_VRGNG = VRGNG I_MEINB = COKA-MEINH * i_gjahr_lookup = IMPORTING E_MEINH = C_MEINH.
K_LINE_ITEM_PLN_CALL_WITH_DATA CALL FUNCTION 'K_LINE_ITEM_PLN_CALL_WITH_DATA' EXPORTING I_REP_OBJECT = 'AL ' " allocation I_CO_AREA =
I_VERSION = I_FROM_PER = PERIO_FROM I_TO_PER = PERIO_TO I_YEAR = RKGA2U-GJAHR I_CALLBACK_PROGRAM = SELF I_EXIT_SET_TITLE = 'SET_EPOS_TITLE_PLN' IT_COSEL = LT_COSEL TABLES T_COEJA = INT_COEJ T_COBK = INT_COBK EXCEPTIONS NO_DATA = 1 OTHERS = 2.
CALL FUNCTION 'K_VERSN_FOR_VALUATION' EXPORTING I_KOKRS =I_ASK_FOR_VALUATION = 'X' IMPORTING E_VERSION_OF_VALUATION = LD_VERSN TABLES T_VERSN = LD_ITAB_BW_VERSN CHANGING C_VALUTYP = LD_C_VALUTYP. " not used
K_LINE_ITEM_ACT_CALL_WITH_DATA CALL FUNCTION 'K_LINE_ITEM_ACT_CALL_WITH_DATA' EXPORTING I_REP_OBJECT = 'AL ' " allocation I_CO_AREA =
I_ACTUAL_VERSION = LD_VERSN I_FROM_PER = PERIO_FROM I_TO_PER = PERIO_TO I_YEAR = RKGA2U-GJAHR I_CALLBACK_PROGRAM = SELF I_EXIT_SET_TITLE = 'SET_EPOS_TITLE_ACT' IT_COSEL = LT_COSEL TABLES T_COEP = INT_COEP T_COBK = INT_COBK EXCEPTIONS NO_DATA = 1 OTHERS = 2.
RWIN_CHECK CALL FUNCTION 'RWIN_CHECK' EXPORTING GJAHR = COBK-GJAHR PROCESS = PROCESS EVENT = 'KOPF ' TABLES TKOMP = TKOMP.
K_KOKRS_READ CALL FUNCTION 'K_KOKRS_READ' EXPORTING KOKRS = COBK-KOKRS IMPORTING E_TKA01 = TKA01.
FCOM_RECEIVER_DERIVE CALL FUNCTION 'FCOM_RECEIVER_DERIVE' EXPORTING I_KOKRS = all-kokrs I_VORGN = rkga2u-activity * I_UPDATE_DATE = * I_OBJNR_RECEIVER = * I_KSTAR_RECEIVER = IS_PERIOD = itperiods * IS_COBL_RECEIVER = IS_ALLOC_RECEIVER = kalc_valrc IS_OBJECT_INFO = commonkey * IS_SENDER_FIELDS = IS_DERIVE_FIELDS = gs_subkey_active I_SR_FLAG = 'S' IMPORTING ES_RECEIVER_FIELDS = ls_receiver_fields EXCEPTIONS INPUT_NOT_SUFFICIENT = 1 ERROR_OCCURRED = 2 OTHERS = 3.
K_ORDER_CHECK CALL FUNCTION 'K_ORDER_CHECK' EXPORTING AUFNR = AUFNR KATYP = KATYP TEST_VRGNG = ACTIVITY IMPORTING ERROR_OCCURRED = ERROR_OCCURED.
K_ORDER_CHECK CALL FUNCTION 'K_ORDER_CHECK' EXPORTING AUFNR = AUFNR TEST_VRGNG = ACTIVITY IMPORTING *...................hier steht die echt zu bebuchende KOSTL !!!
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING arbgb = 'GM' msgty = 'I' MSGV1 = all-kosar MSGV2 = all-kostl MSGV3 = all-lstar MSGV4 = all-kstty txtnr = '013'.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = 'BK' MSGTY = 'W' TXTNR = '143' MSGV1 = CSSL-KOSTL MSGV2 = CSSL-LSTAR MSGV3 = COKL-VERSN MSGV4 = CSSL-GJAHR.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = 'BK' MSGTY = 'W' TXTNR = '505' MSGV1 = LD_ACT-PRZNR MSGV2 = COKL-VERSN MSGV3 = CSSL-GJAHR.
JV_KOKRS_ACTIVE CALL FUNCTION 'JV_KOKRS_ACTIVE' EXPORTING KOKRS =
IMPORTING ACTIVE = JV_ACTIVE.
K_COKL_READ CALL FUNCTION 'K_COKL_READ' EXPORTING COKL_READ = COKL * KOKRS =
IMPORTING * vksta = cokl-vksta * tarkz = cokl-tarkz * tarkz_i = cokl-tarkz_i * latyp = cokl-latyp * latypi = cokl-latypi READ_COKL = READ_COKL EXCEPTIONS NOT_FOUND = 02.
K_CSSL_DELETE CALL FUNCTION 'K_CSSL_DELETE' EXPORTING GJAHR = CSSL-GJAHR KOKRS = CSSL-KOKRS KOSTL = CSSL-KOSTL LSTAR = CSSL-LSTAR EXCEPTIONS NOT_FOUND = 01.
K_COKL_DELETE CALL FUNCTION 'K_COKL_DELETE' EXPORTING COKL_READ = COKL EXCEPTIONS NOT_FOUND = 01.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = 'GA' MSGTY = 'W' TXTNR = '121' MSGV1 = TLATYP MSGV2 = LSTAR MSGV3 = ''.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = 'GA' MSGTY = 'W' TXTNR = '122' MSGV1 = TLATYP MSGV2 = LSTAR MSGV3 = ''.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = 'GA' MSGTY = 'W' TXTNR = '136' MSGV1 = LSTAR MSGV2 = '' MSGV3 = ''.
G_VSR_SUBSTITUTION_CALL CALL FUNCTION 'G_VSR_SUBSTITUTION_CALL' EXPORTING callup_point = c_callup_0500 substitution = substid_0500 tab_data1 = kalc_jvxtr tab_data2 = kalc_jvsnd tab_data3 = kalc_jvrec valuser = valuser IMPORTING * result = " F /T " nicht substituiert sub_data1 = kalc_jvxtr TABLES tabnames = tab_names EXCEPTIONS not_found = 01.
G_VSR_SUBSTITUTION_CALL CALL FUNCTION 'G_VSR_SUBSTITUTION_CALL' EXPORTING callup_point = c_callup_0500 substitution = substid_0500 tab_data1 = kalc_jvxtr tab_data2 = kalc_jvsnd tab_data3 = kalc_jvrec valuser = valuser IMPORTING * result = " F /T " nicht substituiert sub_data1 = kalc_jvxtr TABLES tabnames = tab_names EXCEPTIONS not_found = 01.
K_SUBKEY_INTERPRET CALL FUNCTION 'K_SUBKEY_INTERPRET' EXPORTING CO_HRKFT = RRCOEP-HRKFT IMPORTING MERKMALE = COKEY_IS.
K_KOKRS_READ CALL FUNCTION 'K_KOKRS_READ' EXPORTING KOKRS =
IMPORTING E_TKA01 = TKA01 EXCEPTIONS OTHERS = 4.
G_POSTING_DATE_OF_PERIOD_GET CALL FUNCTION 'G_POSTING_DATE_OF_PERIOD_GET' EXPORTING PERIOD = ITPERIODS-BUPER VARIANT = TKA01-LMONA YEAR = RKGA2U2-REBOOKGJHR IMPORTING FROM_DATE = ITPERIODS-DATAB TO_DATE = ITPERIODS-DATBI EXCEPTIONS PERIOD_NOT_DEFINED = 1 VARIANT_NOT_DEFINED = 2.
K_ALLOCATIONS_CUA_SET CALL FUNCTION 'K_ALLOCATIONS_CUA_SET' EXPORTING PFKEY = SPACE TITLE = 'ALP' TITLETEXT1 = TITLETEXT2 * TITLETEXT2 = ' ' * TITLETEXT3 = ' ' * tables * functab = EXCEPTIONS OTHERS = 0.
K_ALLOCATIONS_CUA_SET CALL FUNCTION 'K_ALLOCATIONS_CUA_SET' EXPORTING PFKEY = SPACE TITLE = 'ALA' TITLETEXT1 = TITLETEXT2 * TITLETEXT2 = ' ' * TITLETEXT3 = ' ' * tables * functab = EXCEPTIONS OTHERS = 0.
K_VERSN_READ CALL FUNCTION 'K_VERSN_READ' EXPORTING I_KOKRS =
i_versn = IMPORTING E_TKA09 = LS_TKA09.
K_OBJECTS_MASTER_READ CALL FUNCTION 'K_OBJECTS_MASTER_READ' TABLES COIOB_TAB = GT_DELTA_COIOB I_PERIODS = ITPERIODS EXCEPTIONS ERROR_OCCURS = 1 WRONG_OBJECT = 2 OTHERS = 3.
FILL_COBL_OBJECTS_AND_COKZ CALL FUNCTION 'FILL_COBL_OBJECTS_AND_COKZ' EXPORTING I_COIOB = LD_COIOB I_ASS_TYPE = CON_ACC_REAL CHANGING C_COBL_COKZ = LD_COBL_COKZ C_COBL_REC_OBJECT = LD_COBL_OBJECTS EXCEPTIONS WRONG_INPUT = 1 OTHERS = 2.
FILL_COBL_OBJECTS * call function 'FILL_COBL_OBJECTS' * exporting * i_coiob = ld_coiob * changing * c_cobl_rec_object = ld_cobl_objects * exceptions * wrong_input = 1 * others = 2.
FILL_COBL_OBJECTS_AND_COKZ CALL FUNCTION 'FILL_COBL_OBJECTS_AND_COKZ' EXPORTING I_COIOB = LD_COIOB I_ASS_TYPE = CON_ACC_STAT CHANGING C_COBL_COKZ = LD_COBL_COKZ C_COBL_REC_OBJECT = LD_COBL_OBJECTS EXCEPTIONS WRONG_INPUT = 1 OTHERS = 2.
FILL_COBL_OBJECTS_AND_COKZ CALL FUNCTION 'FILL_COBL_OBJECTS_AND_COKZ' EXPORTING I_COIOB = LD_COIOB I_ASS_TYPE = CON_ACC_REAL CHANGING C_COBL_COKZ = LD_COBL_COKZ C_COBL_REC_OBJECT = LD_COBL_OBJECTS EXCEPTIONS WRONG_INPUT = 1 OTHERS = 2.
FILL_COBL_OBJECTS_AND_COKZ CALL FUNCTION 'FILL_COBL_OBJECTS_AND_COKZ' EXPORTING I_COIOB = LD_COIOB I_ASS_TYPE = CON_ACC_STAT CHANGING C_COBL_COKZ = LD_COBL_COKZ C_COBL_REC_OBJECT = LD_COBL_OBJECTS EXCEPTIONS WRONG_INPUT = 1 OTHERS = 2.
FILL_COBL_OBJECTS_AND_COKZ CALL FUNCTION 'FILL_COBL_OBJECTS_AND_COKZ' EXPORTING I_COIOB = LD_COIOB I_ASS_TYPE = CON_ACC_REAL CHANGING C_COBL_COKZ = LD_COBL_COKZ C_COBL_REC_OBJECT = LD_COBL_OBJECTS EXCEPTIONS WRONG_INPUT = 1 OTHERS = 2.
FILL_COBL_OBJECTS_AND_COKZ CALL FUNCTION 'FILL_COBL_OBJECTS_AND_COKZ' EXPORTING I_COIOB = LD_COIOB I_ASS_TYPE = CON_ACC_REAL CHANGING C_COBL_COKZ = LD_COBL_COKZ C_COBL_REC_OBJECT = LD_COBL_OBJECTS EXCEPTIONS WRONG_INPUT = 1 OTHERS = 2.
G_VSR_VALIDATION_CALL CALL FUNCTION 'G_VSR_VALIDATION_CALL' EXPORTING CALLUP_POINT = C_CALLUP_0002 TAB_DATA1 = LD_VALIDATION_HEADER TAB_DATA2 = LD_VALIDATION_RECEIVER TAB_DATA3 = LD_VALIDATION_SENDER VALIDATION = VALID_0002 VALUSER = VALUSER IMPORTING MSG_SEVERITY = LD_MSG_SEVERITY TABLES TABNAMES = TAB_NAMES.
CJPN_GET_WBS_ELEMENT CALL FUNCTION 'CJPN_GET_WBS_ELEMENT' EXPORTING I_OBJNR =
IMPORTING E_PRPS = LS_PRPS EXCEPTIONS OTHERS = 1.
CJPN_GET_WBS_ELEMENT CALL FUNCTION 'CJPN_GET_WBS_ELEMENT' EXPORTING I_OBJNR =
IMPORTING E_PRPS = LS_PRPS EXCEPTIONS OTHERS = 1.
RH_FUNCTION_EXIST CALL FUNCTION 'RH_FUNCTION_EXIST' EXPORTING NAME = ld_fb_name EXCEPTIONS FUNCTION_NOT_FOUND = 1 OTHERS = 2.
FCOM_RECEIVER_DERIVE call function 'FCOM_RECEIVER_DERIVE' exporting i_kokrs = kalc_valrc-kokrs i_vorgn = kalc_valrc-vrgng i_kstar_receiver = kalc_valrc-vksta is_alloc_receiver = kalc_valrc is_object_info = commonkey is_derive_fields = ls_derive_fields is_period = ls_period is_sender_fields = ls_sender_fields importing es_receiver_fields = ls_receiver_fields exceptions input_not_sufficient = 1 others = 2.
MESSAGE_SET_DEFAULTLINE CALL FUNCTION 'MESSAGE_SET_DEFAULTLINE' EXPORTING ZEILE = STAT_CYCLE-MESG_F.
KE_PROFIT_CENTER_CHECK CALL FUNCTION 'KE_PROFIT_CENTER_CHECK' EXPORTING DATUM = datab prctr = all-prctr TEST_KOKRS = tka00-kokrs EXCEPTIONS " HW 836822 NOT_FOUND = 1 NOT_DEFINED_FOR_DATE = 2 PRCTR_LOCKED = 5 OTHERS = 7.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING arbgb = sy-msgid msgty = 'E' MSGV1 = SY-MSGV1 MSGV2 = SY-MSGV2 MSGV3 = SY-MSGV3 MSGV4 = SY-MSGV4 txtnr = sy-msgno zeile = seqs-mesg.
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 MKGALFO4 or its description.