MKAL1F63 SAP ABAP INCLUDE - CO-PA Exits
MKAL1F63 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 MKAL1F63 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 MKAL1F63. "Basic submit
SUBMIT MKAL1F63 AND RETURN. "Return to original report after report execution complete
SUBMIT MKAL1F63 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: CO-PA Exits
INCLUDES used within this REPORT MKAL1F63
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:
COPA_GET_ERK CALL FUNCTION 'COPA_GET_ERK' IMPORTING erkrs = rkal1-erkrs ok_code = ok_code.
RKE_CHECK_ASSESSMENT CALL FUNCTION 'RKE_CHECK_ASSESSMENT' EXPORTING erkrs = rkal1-erkrs.
RKE_CHECK_TOPDOWN * CALL FUNCTION 'RKE_CHECK_TOPDOWN' * EXPORTING * erkrs = rkal1-erkrs.
RKE_READ_ERKRS CALL FUNCTION 'RKE_READ_ERKRS' EXPORTING I_ERKRS = RKAL1-ERKRS IMPORTING E_TKEB = S_TKEB.
DDIF_DOMA_GET CALL FUNCTION 'DDIF_DOMA_GET' EXPORTING name = domname * STATE = 'A' * LANGU = ' ' IMPORTING gotstate = got_state * DD01V_WA = TABLES dd07v_tab = dd07v_tab.
K_KOKRS_READ CALL FUNCTION 'K_KOKRS_READ' EXPORTING kokrs = lc_kokrs IMPORTING e_tka01 = tka01.
G_PERIOD_GET CALL FUNCTION 'G_PERIOD_GET' EXPORTING date = t811c-sdate variant = tka01-lmona IMPORTING year = sgjahr.
G_PERIOD_GET CALL FUNCTION 'G_PERIOD_GET' EXPORTING date = t811c-edate variant = tka01-lmona IMPORTING year = egjahr.
K_KOKRS_READ CALL FUNCTION 'K_KOKRS_READ' EXPORTING gjahr = gjahr kokrs = lc_kokrs IMPORTING e_tka00 = l_tka00.
RK_AL_PERIODS_BUILD CALL FUNCTION 'RK_AL_PERIODS_BUILD' EXPORTING edate = t811c-edate fyvariant = l_fyvariant sdate = t811c-sdate IMPORTING e_fiscal_year = gd_fiscal_year.
K_VERSN_READ CALL FUNCTION 'K_VERSN_READ' EXPORTING i_kokrs = rkal1-kokrs i_versn = l_tka09-versn IMPORTING e_tka09 = l_tka09 EXCEPTIONS OTHERS = 01.
K_VERSN_READ CALL FUNCTION 'K_VERSN_READ' EXPORTING i_kokrs = rkal1-kokrs i_versn = tkt09-versn IMPORTING e_tkt09 = tkt09 EXCEPTIONS OTHERS = 1.
HELP_VALUES_GET_WITH_TABLE_EXT CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE_EXT' EXPORTING display = no_pickup fieldname = 'KOKRS ' tabname = 'TKA01 ' IMPORTING index = i TABLES fields = i_help_value select_values = i_help_vtab valuetab = valuetab.
RKE_VALUE_REQUEST_VERSI CALL FUNCTION 'RKE_VALUE_REQUEST_VERSI' EXPORTING erkrs = rkal1-erkrs IMPORTING versi = l_versi EXCEPTIONS OTHERS = 1.
RKE_CONVERT_DATE_TO_LOGNR CALL FUNCTION 'RKE_CONVERT_DATE_TO_LOGNR' EXPORTING ERKRS = RKAL1-erkrs DATE = t811c-sdate IMPORTING PERIO = l_perio.
HELP_VALUES_GET_WITH_TABLE_EXT CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE_EXT' EXPORTING display = no_pickup fieldname = 'VERSN ' tabname = 'TKA09 ' IMPORTING index = i TABLES fields = i_help_value select_values = i_help_vtab valuetab = valuetab.
RKE_AL_F4 CALL FUNCTION 'RKE_AL_F4' EXPORTING i_fieldname = x_kgalk-field i_erkrs = rkal1-erkrs i_pa_type = l_patype is_dynp_info = ls_dynp_info TABLES xt_kgalk = ikgalk xt_dynp_fields_f4 = gt_charac_f4 xt_dynp_fields_final = gt_charac_final et_sel_values = et_charac CHANGING x_mod_kgalk = mod_kgalk.
RKE_F4_2 CALL FUNCTION 'RKE_F4_2' EXPORTING i_fieldname = x_kgalk-field i_erkrs = rkal1-erkrs i_pa_type = l_patype * I_DISPLAY = ' ' TABLES it_dynp_fields = gt_charac_f4 et_sel_values = et_charac.
CALL FUNCTION 'K_KOKRS_READ' EXPORTING kokrs = rkal1-kokrs IMPORTING e_tka01 = tka01.
G_PERIOD_GET CALL FUNCTION 'G_PERIOD_GET' EXPORTING date = t811c-sdate variant = tka01-lmona IMPORTING year = sgjahr.
G_PERIOD_GET CALL FUNCTION 'G_PERIOD_GET' EXPORTING date = t811c-edate variant = tka01-lmona IMPORTING year = egjahr.
K_KOKRS_READ CALL FUNCTION 'K_KOKRS_READ' EXPORTING gjahr = gjahr kokrs = rkal1-kokrs IMPORTING e_tka00 = l_tka00.
RKE_AL_ERSCH_VALUE_FIELDS_GET CALL FUNCTION 'RKE_AL_ERSCH_VALUE_FIELDS_GET' EXPORTING it_tkb9f = it_tkb9f i_erzuo = ls_tkb9f-erzuo IMPORTING e_pafldf = l_pafldf e_pafldv = l_pafldv e_pafldg = l_pafldg.
RKE_AL_ERSCH_VALUE_FIELDS_GET CALL FUNCTION 'RKE_AL_ERSCH_VALUE_FIELDS_GET' EXPORTING it_tkb9f = it_tkb9f i_erzuo = ls_tkb9f-erzuo IMPORTING e_pafldf = l_pafldf e_pafldv = l_pafldv e_pafldg = l_pafldg.
RKE_AL_ERSCH_VALUE_FIELDS_GET CALL FUNCTION 'RKE_AL_ERSCH_VALUE_FIELDS_GET' EXPORTING it_tkb9f = it_tkb9f i_erzuo = ls_tkb9f-erzuo IMPORTING e_pafldf = l_pafldf e_pafldv = l_pafldv e_pafldg = l_pafldg.
RKE_PICK_UP_MERKMALE_WERTK CALL FUNCTION 'RKE_PICK_UP_MERKMALE_WERTK' EXPORTING erkrs = rkal1-erkrs merk_wertk = i_merk_wertk pa_type = patype_costing IMPORTING fieldname = e_field.
RKE_FILL_FIELD_TABLE CALL FUNCTION 'RKE_FILL_FIELD_TABLE' EXPORTING erkrs = rkal1-erkrs tabname = ce0_name pa_type = patype TABLES fieldtab = fieldtab.
RKE_READ_ERKRS_MESSAGE CALL FUNCTION 'RKE_READ_ERKRS_MESSAGE' EXPORTING i_erkrs = rkal1-erkrs IMPORTING e_v_tkeb = g_pa_attr.
RKD_SHORT_TEXT_SINGLE CALL FUNCTION 'RKD_SHORT_TEXT_SINGLE' EXPORTING applclass = 'KE' " BUFFER = 'X' characteristic = fm_rkb1t-character criteria = fm_criteria " DATE = '00000000' " DATE_TO = '00000000' i_rkb1x = irkb1x " LANGUAGE_KEY = SY-LANGU mode = fm_mode table = fm_table no_escape_symbol = 'X' IMPORTING characteristic_text = fm_rkb1t-text characteristic_text_l = fm_rkb1t-text_l " docu_flag = " text_flag = EXCEPTIONS criteria_not_found = 01 key_not_found = 02 no_escape_symbol_allowed = 02 table_not_found = 03.
DDIF_FIELDINFO_GET CALL FUNCTION 'DDIF_FIELDINFO_GET' EXPORTING tabname = l_ce7name fieldname = 'PA_TYPE' langu = sy-langu IMPORTING dfies_wa = l_dfies TABLES dfies_tab = lt_dfies * EXCEPTIONS * NOT_FOUND = 1 * INTERNAL_ERROR = 2 * OTHERS = 3 .
RKE_CONVERT_DATE_TO_LOGNR CALL FUNCTION 'RKE_CONVERT_DATE_TO_LOGNR' EXPORTING ERKRS = RKAL1-erkrs DATE = t811c-sdate IMPORTING PERIO = l_perio.
RKE_GET_VERSI_RCVR_FROM_VERSN CALL FUNCTION 'RKE_GET_VERSI_RCVR_FROM_VERSN' EXPORTING i_kokrs = rkal1-kokrs i_versn = l_versn i_gjahr = l_gjahr IMPORTING e_versi = l_versi EXCEPTIONS OTHERS = 1.
RKE_CONVERT_DATE_TO_LOGNR CALL FUNCTION 'RKE_CONVERT_DATE_TO_LOGNR' EXPORTING ERKRS = RKAL1-erkrs DATE = t811c-sdate IMPORTING PERIO = l_perio.
RKE_GET_VERSI_RCVR_FROM_VERSN CALL FUNCTION 'RKE_GET_VERSI_RCVR_FROM_VERSN' EXPORTING i_kokrs = rkal1-kokrs i_versn = l_versn i_gjahr = l_gjahr IMPORTING e_versi = l_versi_assigned EXCEPTIONS version_not_assigned = 1 version_not_defined = 2 OTHERS = 3.
RKE_TP_VERSION_VALUATION_CHECK CALL FUNCTION 'RKE_TP_VERSION_VALUATION_CHECK' "P45K049214 EXPORTING "P45K049214 i_kokrs = rkal1-kokrs "P45K049214 i_versn = l_versn "P45K049214 i_erkrs = rkal1-erkrs "P45K049214 i_versi = l_versi "P45K049214 EXCEPTIONS "P45K049214 different_value_types = 1 "P45K049214 currency_type_not_active = 2 "P45K049214 versn_not_found = 3 "P45K049214 versi_not_found = 4 "P45K049214 OTHERS = 5. "P45K049214
KGAL_IKGALS_GET CALL FUNCTION 'KGAL_IKGALS_GET' TABLES et_kgals = t_kgals.
KGAL_SET_PAFLD_UNSPLITTED CALL FUNCTION 'KGAL_SET_PAFLD_UNSPLITTED'. "P45K037629
RKE_AL_ERSCH_VALUE_FIELDS_GET CALL FUNCTION 'RKE_AL_ERSCH_VALUE_FIELDS_GET' EXPORTING it_tkb9f = it_tkb9f i_erzuo = ls_tkb9f-erzuo IMPORTING e_pafldf = l_pafldf e_pafldv = l_pafldv e_pafldg = l_pafldg.
RK_AL_PROC_GROUPS_CHECK CALL FUNCTION 'RK_AL_PROC_GROUPS_CHECK' EXPORTING alart = t811c-alart ipknz = t811c-ipknz orgunit = orgunit gjahr = gd_fiscal_year appl = ap-rke.
RKE_AL_KGALK_SINGLE_VALUE_GET CALL FUNCTION 'RKE_AL_KGALK_SINGLE_VALUE_GET' EXPORTING i_kgalk = ikgalk IMPORTING e_charac_value = ls_charac-value.
RKE_AL_CHARAC_TABLE_BUILD CALL FUNCTION 'RKE_AL_CHARAC_TABLE_BUILD' EXPORTING i_setkind = i_setkind i_kokrs = rkal1-kokrs IMPORTING et_charac = gt_charac_final TABLES it_kgalk = ikgalk.
RKE_AL_KGALK_SINGLE_VALUE_GET CALL FUNCTION 'RKE_AL_KGALK_SINGLE_VALUE_GET' EXPORTING i_kgalk = kgalk IMPORTING e_charac_value = ls_charac-value.
RKE_AL_KGALK_VALUE_GET CALL FUNCTION 'RKE_AL_KGALK_VALUE_GET' EXPORTING i_kgalk = i_kgalk IMPORTING e_charac_value = e_charac_value.
MESSAGES_COUNT CALL FUNCTION 'MESSAGES_COUNT' IMPORTING count = l_count.
RKE_AL_CHARAC_DEPEND_CHECK CALL FUNCTION 'RKE_AL_CHARAC_DEPEND_CHECK' EXPORTING i_erkrs = rkal1-erkrs i_patype = i_patype i_setkind = l_setkind IMPORTING et_error = et_error e_subrc = e_subrc TABLES i_fieldtab = fieldtab it_kgalk = ikgalk CHANGING xt_charac = gt_charac_final.
RKE_AL_MIS_SU_CHAR_PROT_APPEND CALL FUNCTION 'RKE_AL_MIS_SU_CHAR_PROT_APPEND' EXPORTING i_erkrs = rkal1-erkrs i_patype = i_patype it_charac = gt_charac_final it_error = it_error i_with_reset = 'X' TABLES it_fieldtab = fieldtab CHANGING x_messages_ident = gd_messages_ident.
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 MKAL1F63 or its description.