FK21RE01 SAP ABAP INCLUDE - Determination of Object Currency
FK21RE01 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 FK21RE01 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 FK21RE01. "Basic submit
SUBMIT FK21RE01 AND RETURN. "Return to original report after report execution complete
SUBMIT FK21RE01 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 FK21RE01
INCLUDE FK21REZT.
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:
READ_COSTELEMENT_TEXT CALL FUNCTION 'READ_COSTELEMENT_TEXT' EXPORTING kstar = kstar ktopl = ktopl sprache = langu IMPORTING text_wa = csku EXCEPTIONS text_not_found = 04.
MESSAGE_STORE * CALL FUNCTION 'MESSAGE_STORE' * EXPORTING * ARBGB = 'KB' * MSGTY = 'I' * MSGV1 = KSTAR * TXTNR = '187' * EXCEPTIONS * OTHERS = 3.
MESSAGE_STORE * CALL FUNCTION 'MESSAGE_STORE' * EXPORTING * ARBGB = 'KB' * MSGTY = 'I' * MSGV1 = FK21R_CON_MAX_MESSAGES * TXTNR = '186' * EXCEPTIONS * OTHERS = 3.
K_ORDER_READ CALL FUNCTION 'K_ORDER_READ' EXPORTING aufnr = aufnr no_message_store = 'X' IMPORTING ktext = aufk_ktext EXCEPTIONS error_message = 3 OTHERS = 4.
GET_PERIOD_TEXTS CALL FUNCTION 'GET_PERIOD_TEXTS' EXPORTING i_poper = perbl i_periv = tka01-lmona i_spras = langu IMPORTING e_ktext = t009c-ktext e_ltext = t009c-ltext EXCEPTIONS bukrs_not_found = 01 no_texts = 02 variant_not_defined = 03 variant_not_found = 04 period_version_year_dependent = 05.
G_PERIOD_GET CALL FUNCTION 'G_PERIOD_GET' EXPORTING date = datum variant = tka01-lmona IMPORTING year = sd_gjahr EXCEPTIONS ledger_not_assigned_to_company = 1 period_not_defined = 2 variant_not_defined = 3 OTHERS = 4.
GET_PERIOD_TEXTS CALL FUNCTION 'GET_PERIOD_TEXTS' EXPORTING i_poper = perbl i_periv = tka01-lmona i_bdatj = sd_gjahr i_spras = langu IMPORTING e_ktext = t009c-ktext e_ltext = t009c-ltext EXCEPTIONS bukrs_not_found = 1 no_texts = 2 variant_not_defined = 3 variant_not_found = 4 version_not_year_dependent = 5 period_version_year_dependent = 6 OTHERS = 7.
READ_COSTCENTER_TEXT CALL FUNCTION 'READ_COSTCENTER_TEXT' EXPORTING datum = datum kokrs = kokrs kostl = kostl sprache = langu IMPORTING text_wa = cskt EXCEPTIONS text_not_found = 04.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING arbgb = 'KB' msgty = 'I' msgv1 = kostl txtnr = '189' EXCEPTIONS OTHERS = 3.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING arbgb = 'KB' msgty = 'I' msgv1 = fk21r_con_max_messages txtnr = '188' EXCEPTIONS OTHERS = 3.
G_SET_ENCRYPT_SETID CALL FUNCTION 'G_SET_ENCRYPT_SETID' EXPORTING setclass = '0101' shortname = i_shortname kokrs = kokrs IMPORTING setid = i_setid EXCEPTIONS no_co_area_specified = 1 illegal_setclass = 2 OTHERS = 3.
G_SET_GET_INFO CALL FUNCTION 'G_SET_GET_INFO' EXPORTING setname = i_setid IMPORTING info = i_info EXCEPTIONS set_not_found = 1 illegal_field_replacement = 2 OTHERS = 3.
CJDW_PROJ_SELECT_SINGLE CALL FUNCTION 'CJDW_PROJ_SELECT_SINGLE' EXPORTING pspid = pspid IMPORTING e_proj = proj EXCEPTIONS missing_parameter = 01 not_found = 02.
CJDW_PRPS_SELECT_SINGLE CALL FUNCTION 'CJDW_PRPS_SELECT_SINGLE' EXPORTING posid = posid IMPORTING e_prps = prps EXCEPTIONS missing_parameter = 01 not_found = 02.
CJDW_PROJ_SELECT_SINGLE CALL FUNCTION 'CJDW_PROJ_SELECT_SINGLE' EXPORTING pspnr = proj-pspnr IMPORTING e_proj = proj EXCEPTIONS missing_parameter = 01 not_found = 02.
CJDW_PRPS_SELECT_SINGLE CALL FUNCTION 'CJDW_PRPS_SELECT_SINGLE' EXPORTING posnr = prps-pspnr IMPORTING e_prps = prps EXCEPTIONS missing_parameter = 01 not_found = 02.
READ_ACTIVITY_TEXT CALL FUNCTION 'READ_ACTIVITY_TEXT' EXPORTING datum = datum lstar = lstar kokrs = kokrs sprache = langu IMPORTING text_wa = cslt EXCEPTIONS text_not_found = 04.
READ_ACTIVITY_TEXT CALL FUNCTION 'READ_ACTIVITY_TEXT' "854962 EXPORTING "854962 datum = ld_datum "854962 lstar = lstar "854962 kokrs = kokrs "854962 sprache = langu "854962 IMPORTING "854962 text_wa = cslt "854962 EXCEPTIONS "854962 text_not_found = 04. "854962
CALL FUNCTION 'DD_DOFV_GET' EXPORTING get_state = 'A' langu = langu withtext = 'X' domain_name = 'VALUTYP' TABLES dd07v_tab_a = i_dd07v_a dd07v_tab_n = i_dd07v_n EXCEPTIONS illegal_value = 1 op_failure = 2 OTHERS = 3.
DDUT_DOMVALUE_TEXT_GET CALL FUNCTION 'DDUT_DOMVALUE_TEXT_GET' EXPORTING name = 'CO_WRTTP' value = domval texts_only = 'X' IMPORTING dd07v_wa = s_dd07v EXCEPTIONS not_found = 1 illegal_input = 2 OTHERS = 3.
DDUT_DOMVALUE_TEXT_GET CALL FUNCTION 'DDUT_DOMVALUE_TEXT_GET' EXPORTING name = 'KOART' value = domval texts_only = 'X' IMPORTING dd07v_wa = s_dd07v EXCEPTIONS not_found = 1 illegal_input = 2 OTHERS = 3.
MATERIAL_READ CALL FUNCTION 'MATERIAL_READ' EXPORTING schluessel = mtcom IMPORTING matdaten = makt return = mtcor TABLES seqmat01 = x EXCEPTIONS material_not_found = 1.
READ_KNA1 CALL FUNCTION 'READ_KNA1' EXPORTING xkunnr = gkont xadr_fl = ladr_fl " New for IAV IMPORTING xkna1 = kna1 EXCEPTIONS OTHERS = 4.
READ_LFA1 CALL FUNCTION 'READ_LFA1' EXPORTING xlifnr = gkont xadr_fl = ladr_fl " New for IAV IMPORTING xlfa1 = lfa1 EXCEPTIONS OTHERS = 4.
READ_SACHKONTO_AND_TEXT CALL FUNCTION 'READ_SACHKONTO_AND_TEXT' EXPORTING buchungskreis = kokrs sprache = langu sachkonto = gkont IMPORTING text_wa = skat EXCEPTIONS OTHERS = 4.
DDUT_DOMVALUE_TEXT_GET CALL FUNCTION 'DDUT_DOMVALUE_TEXT_GET' EXPORTING name = 'ABKAT' value = domval texts_only = 'X' IMPORTING dd07v_wa = s_dd07v EXCEPTIONS not_found = 1 illegal_input = 2 OTHERS = 3.
K_BUSINESS_PROCESS_TEXT_READ CALL FUNCTION 'K_BUSINESS_PROCESS_TEXT_READ' EXPORTING datum = datum kokrs = kokrs prznr = prznr spras = langu IMPORTING e_cbpt = cbpt ktext = cbpt-ktext ltext = cbpt-ltext EXCEPTIONS not_found = 01.
K_BUSINESS_PROCESS_TEXT_READ CALL FUNCTION 'K_BUSINESS_PROCESS_TEXT_READ' EXPORTING datum = ld_datum "902950 kokrs = kokrs prznr = prznr spras = langu IMPORTING e_cbpt = cbpt ktext = cbpt-ktext ltext = cbpt-ltext EXCEPTIONS not_found = 01.
OBJECT_IDENTIFICATION_GET CALL FUNCTION 'OBJECT_IDENTIFICATION_GET' EXPORTING datum = datum langu = langu objnr = objnr * TEXT_WANTED = 'X' IMPORTING e_text = ltext EXCEPTIONS obart_invalid = 1 OTHERS = 2.
CONVERSION_EXIT_OBART_OUTPUT CALL FUNCTION 'CONVERSION_EXIT_OBART_OUTPUT' EXPORTING input = obart IMPORTING txt10 = txt10 txt20 = txt20 EXCEPTIONS OTHERS = 1.
DDUT_DOMVALUE_TEXT_GET CALL FUNCTION 'DDUT_DOMVALUE_TEXT_GET' EXPORTING name = 'RSCURTYPE' value = domval texts_only = 'X' IMPORTING dd07v_wa = s_dd07v EXCEPTIONS not_found = 1 illegal_input = 2 OTHERS = 3.
G_PERIOD_GET CALL FUNCTION 'G_PERIOD_GET' "984686 EXPORTING "984686 date = datum "984686 variant = tka01-lmona "984686 IMPORTING "984686 year = current_fiscyear "984686 EXCEPTIONS "984686 OTHERS = 1. "984686
FM_GET_FIKRS_FROM_KOKRS CALL FUNCTION 'FM_GET_FIKRS_FROM_KOKRS' EXPORTING i_kokrs = sd_org-kokrs IMPORTING e_fikrs = sd_org-fikrs EXCEPTIONS kokrs_not_found = 1 no_fikrs_assigned = 2 assigned_fikrs_not_found = 3 fm_area_not_unique = 4 OTHERS = 5.
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 FK21RE01 or its description.