MKMA1F00 SAP ABAP INCLUDE - documentation and ABAP source code
MKMA1F00 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 MKMA1F00 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 MKMA1F00. "Basic submit
SUBMIT MKMA1F00 AND RETURN. "Return to original report after report execution complete
SUBMIT MKMA1F00 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 MKMA1F00
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_EKCSKSE CALL FUNCTION 'ENQUEUE_EKCSKSE' EXPORTING kokrs = kos-kokrs kostl = kos-kostl EXCEPTIONS foreign_lock = 2.
DEQUEUE_EKCSKSE CALL FUNCTION 'DEQUEUE_EKCSKSE' EXPORTING kokrs = kos-kokrs kostl = kos-kostl.
PRUEFEN_STEUER_STANDORT CALL FUNCTION 'PRUEFEN_STEUER_STANDORT' EXPORTING bukrs = bukrs txjcd = txjcd IMPORTING standort_ok = standort_ok standort_text = ttxjt-text1.
DETERMINE_TXJCD_EXTERNALLY CALL FUNCTION 'DETERMINE_TXJCD_EXTERNALLY' EXPORTING country = td_land1 region = td_regio city = td_ort01 county = td_ort02 zipcode = td_pstlz procedure = ttxd-kalsm "P30K073710 id_tax_ext = ttxd-xextn "P30K073710 * NO_DIALOG = IMPORTING txjcd = det_txjcd city = det_ort01 county = det_ort02 EXCEPTIONS txjcd_not_found = 01 txjcd_not_unique_in_no_dialog = 02 external_txjcd_not_required = 03 txjcd_processing_not_required = 04.
CUSTOMIZED_MESSAGE CALL FUNCTION 'CUSTOMIZED_MESSAGE' EXPORTING i_arbgb = 'F2' i_dtype = 'W' i_msgnr = '217'.
KE_PROFIT_CENTER_CHECK CALL FUNCTION 'KE_PROFIT_CENTER_CHECK' EXPORTING datum = datab datum_bis = datbi prctr = i_prctr test_kokrs = rkma1-kokrs bukrs = rkma1-bukrs IMPORTING ktext = kost1-prctr_text return_code = return_code.
KE_PROFIT_CENTER_CHECK CALL FUNCTION 'KE_PROFIT_CENTER_CHECK' EXPORTING datum = datab datum_bis = datbi prctr = i_prctr test_kokrs = rkma1-kokrs IMPORTING ktext = kost1-prctr_text return_code = return_code EXCEPTIONS OTHERS = 4.
RK_COSTCOLL_CREATE_KOSTL * CALL FUNCTION 'RK_COSTCOLL_CREATE_KOSTL' * EXPORTING KOKRS = KOST1-KOKRS * KOSTL = KOST1-KOSTL * IMPORTING CCKEY = CCKEY * EXCEPTIONS CACC_ALREADY_ENQUEUED = 1 * CACC_ALREADY_EXISTS = 2 * ENQUEUE_TABLE = 3.
OBJECT_NUMBER_GET_KS CALL FUNCTION 'OBJECT_NUMBER_GET_KS' EXPORTING kokrs = kost1-kokrs kostl = kost1-kostl IMPORTING objnr = objnr EXCEPTIONS number_already_exists = 2.
TT_COMPRESS CALL FUNCTION 'TT_COMPRESS' EXPORTING ca = lg_cotti TABLES timetab = cotti EXCEPTIONS syserr = 01.
COMMIT_TEXT CALL FUNCTION 'COMMIT_TEXT'.
K_SC_SCHEME_COMMIT CALL FUNCTION 'K_SC_SCHEME_COMMIT'.
FM_CO_ASSIGNMENT_OBJECT_NEW * CALL FUNCTION 'FM_CO_ASSIGNMENT_OBJECT_NEW' "P30K120251 * EXPORTING "P30K120251 * I_OBJEKT = LD_KOSTL "P30K120251 * I_GRFLD = 'KOSTL' "P30K120251 * I_KOKRS = COTTI-KOKRS. "P30K120251
RK_COSTCENTER_UPDATE CALL FUNCTION 'RK_COSTCENTER_UPDATE' IN UPDATE TASK EXPORTING langu = sy-langu khinr_old = old-khinr khinr_new = kost1-khinr TABLES icsksp = icsksp.
COMMIT_TEXT CALL FUNCTION 'COMMIT_TEXT'.
RK_COSTCOLL_CREATE_KOSTL * CALL FUNCTION 'RK_COSTCOLL_CREATE_KOSTL' * EXPORTING KOKRS = RKMA1-KOKRS * KOSTL = COTTI-KOSTL * IMPORTING CCKEY = CCKEY * EXCEPTIONS CACC_ALREADY_ENQUEUED = 1 * CACC_ALREADY_EXISTS = 2 * ENQUEUE_TABLE = 3.
OBJECT_NUMBER_GET_KS * CALL FUNCTION 'OBJECT_NUMBER_GET_KS' * EXPORTING KOKRS = RKMA1-KOKRS * KOSTL = COTTI-KOSTL * IMPORTING OBJNR = OBJNR * EXCEPTIONS NUMBER_ALREADY_EXISTS = 2.
RK_COSTCENTER_UPDATE CALL FUNCTION 'RK_COSTCENTER_UPDATE' IN UPDATE TASK EXPORTING langu = sy-langu TABLES icsksp = lt_csksp.
CALL FUNCTION 'TT_COMPRESS' EXPORTING ca = lg_cotti TABLES timetab = cotti EXCEPTIONS syserr = 01.
RK_COSTCENTER_UPDATE CALL FUNCTION 'RK_COSTCENTER_UPDATE' IN UPDATE TASK TABLES icsksp = lt_csksp.
G_BUFFER_RESET CALL FUNCTION 'G_BUFFER_RESET'.
STRING_SPLIT CALL FUNCTION 'STRING_SPLIT' EXPORTING delimiter = '-' string = fa_cursor_field IMPORTING head = head tail = tail EXCEPTIONS not_found = 1.
GET_DIFFERING_FIELDS CALL FUNCTION 'GET_DIFFERING_FIELDS' TABLES field_tab = n_tab int_tab = pfl_csks nametab = nametab.
TEST_GJAHRESGRENZE * CALL FUNCTION 'TEST_GJAHRESGRENZE' * EXPORTING DATAB = DATAB * DATBI = DATBI * PERIV = TKA01-LMONA * EXCEPTIONS NOT_GJAHR = 01 * T009_NOTFOUND = 02 * T009B_NOTFOUND = 03.
K_DAYS_TO_YEARS_CONVERT CALL FUNCTION 'K_DAYS_TO_YEARS_CONVERT' EXPORTING dat1 = datab dat2 = datbi periv = lmona IMPORTING year1 = fyear year2 = lyear.
KE_PROFIT_CENTER_KTEXT_GET CALL FUNCTION 'KE_PROFIT_CENTER_KTEXT_GET' EXPORTING prctr = prctr datum = datum kokrs = kokrs "P30K052006 IMPORTING ktext = prctr_text * return_code = sy-subrc EXCEPTIONS not_found = 8.
TEST_GJAHRESGRENZE * CALL FUNCTION 'TEST_GJAHRESGRENZE' * EXPORTING DATAB = PFL_CSKS-DATAB * DATBI = PFL_CSKS-DATBI * PERIV = TKA01-LMONA * IMPORTING JGRENZE = JGRENZE * EXCEPTIONS T009_NOTFOUND = 01 * T009B_NOTFOUND = 02.
TEST_GJAHRESGRENZE CALL FUNCTION 'TEST_GJAHRESGRENZE' EXPORTING datab = datab datbi = datbi periv = lmona IMPORTING jgrenze = jgrenze fdatum = adate ldatum = edate EXCEPTIONS t009_notfound = 01 t009b_notfound = 02.
DATE_TO_PERIOD_CONVERT CALL FUNCTION 'DATE_TO_PERIOD_CONVERT' : EXPORTING : i_date = datab : i_periv = tka01-lmona : IMPORTING : e_buper = ld_buper : e_gjahr = ld_gjahr : EXCEPTIONS : t009_notfound = 01 : t009b_notfound = 02. :
FIRST_DAY_IN_PERIOD_GET CALL FUNCTION 'FIRST_DAY_IN_PERIOD_GET' : EXPORTING : i_gjahr = ld_gjahr : i_periv = tka01-lmona : i_poper = ld_buper : IMPORTING : e_date = adate : EXCEPTIONS : t009_notfound = 01 : t009b_notfound = 02. :
TEST_PERIODENGRENZE CALL FUNCTION 'TEST_PERIODENGRENZE' EXPORTING datab = datab datbi = datbi periv = lmona IMPORTING pgrenze = pgrenze fdatum = adate ldatum = edate EXCEPTIONS t009_notfound = 01 t009b_notfound = 02.
K_CHANGEDOCUMENTS_SHOW CALL FUNCTION 'K_CHANGEDOCUMENTS_SHOW' "P30K077993 EXPORTING "P30K077993 kokrs = rkma1-kokrs "P30K077993 * KTOPL = " : object = rkma1-akost objclass = 'KOSTL' chd_strucname = 'CSKSB' fieldname = pick-up-field * BELNR = datab = rkma1-gadat "P30K091751 datbi = rkma1-gbdat. "P30K091751
TT_SETDBACTION CALL FUNCTION 'TT_SETDBACTION' EXPORTING dba_value = equ-dbdel dbaction = cotti-xxdbaction IMPORTING ndbaction = cotti-xxdbaction.
TT_SETDBACTION CALL FUNCTION 'TT_SETDBACTION' EXPORTING dba_value = equ-dbupd dbaction = cotti-xxdbaction IMPORTING ndbaction = cotti-xxdbaction.
TT_SETDBACTION CALL FUNCTION 'TT_SETDBACTION' EXPORTING dba_value = equ-dbdel dbaction = cotti-xxdbaction IMPORTING ndbaction = cotti-xxdbaction.
CHECK_TEXT_NAME CALL FUNCTION 'CHECK_TEXT_NAME' EXPORTING name = text_name EXCEPTIONS name = 1.
POSTAL_CODE_CHECK CALL FUNCTION 'POSTAL_CODE_CHECK' "P30K084418 EXPORTING "P30K084418 country = land1 "P30K084418 * ONE_TIME_ACCOUNT = ' ' "P30K084418 postal_code = pstlz "P30K084418 postal_code_po_box = pstl2 "P30K084418 po_box = pfach "P30K084418 region = regio. "P30K084418
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 MKMA1F00 or its description.