SAP Reports / Programs | Cross-Application Components | European Monetary Union: Euro | Local Currency Changeover(CA-EUR-CNV) SAP CA

RKEB0902_40 SAP ABAP Report - Translation of CO-PA Report Data to Euro and Report Conversion







RKEB0902_40 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for This program edits reports from reporting and translates CO-PA report data...see full standard documentation available for this report. Also check out the submitted Comments related to this SAP report and the details below to see which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC.

If you would like to execute this report or see the full code listing simply enter RKEB0902_40 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 RKEB0902_40. "Basic submit
SUBMIT RKEB0902_40 AND RETURN. "Return to original report after report execution complete
SUBMIT RKEB0902_40 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


Text pool values


Selection Text: P_UMR = Translate
Selection Text: P_ERKRS = Operating concern
Selection Text: PREPID = Name of report
Title: Translation of CO-PA Report Data to Euro and Report Conversion
Text Symbol: 039 = Data checked
Text Symbol: 038 = Form defective
Text Symbol: 037 = Regenerate reports in application class
Text Symbol: 036 = Generation flag could not be set
Text Symbol: 035 = skipped
Text Symbol: 034 = Operating concern not active:
Text Symbol: 033 = Log cannot be initialized
Text Symbol: 032 = Status of last run: OK
Text Symbol: 031 = Last run was successful
Text Symbol: 030 = Start: Conversion of CO-PA reps
Text Symbol: 029 = Status of last run: Warning
Text Symbol: 028 = Status of last run: Error
Text Symbol: 027 = Data deleted.
Text Symbol: 026 = (Costing-based)
Text Symbol: 025 = (Account-based)
Text Symbol: 024 = No authorization to delete the report data.
Text Symbol: 023 = for euro not found.
Text Symbol: 022 = Exchange rate
Text Symbol: 021 = Error reading the generated program.
Text Symbol: 019 = Data was translated.
Text Symbol: 018 = Repeated start: Conversion of CO-PA reports
Text Symbol: 017 = could not be marked as translated.
Text Symbol: 016 = Report was regenerated.
Text Symbol: 014 = contains data.
Text Symbol: 013 = contains no data.
Text Symbol: 012 = Generated program for report was not found. Translation not carried out.
Text Symbol: 011 = is locked. Data cannot be changed.
Text Symbol: 010 = has already been processed.
Text Symbol: 007 = Operating concern did not take part in currency conversion
Text Symbol: 006 = No currency translation exists for the specified date.
Text Symbol: 004 = Euro translation and conversion of reports for an oper. concern
Text Symbol: 003 = No operating concern found.


INCLUDES used within this REPORT RKEB0902_40

INCLUDE MKCBGC30.
INCLUDE MKCBRTYP.




INCLUDE MKCBGC11.
INCLUDE MKCBGC13.
INCLUDE MKCBGEQU.
INCLUDE MKES1TP2.


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:

EWU_GET_CUKEY_ORG CALL FUNCTION 'EWU_GET_CUKEY_ORG' EXPORTING WAEHRUNGSURSPRUNG = '25' " für CO-PA AUSPRAEGUNG = G_WA_TKEB-ERKRS GUELTIGKEITSDATUM = G_BEFORE_DATE IMPORTING WAEHRUNGSSCHLUESSEL = G_REP_WAERS * datum = EXCEPTIONS TYPE_NOT_FOUND = 1 NO_CONVERSION_FOUND = 2 OBJECT_NOT_FOUND = 3 OTHERS = 4.

RKD_REPORT_IMPORT_C CALL FUNCTION 'RKD_REPORT_IMPORT_C' EXPORTING I_RKB1X = G_RKB1X IMPORT_MODE = '1' GENERATE_SUPPRESS = 'X' IMPORTING E_REPORT = G_REPORT CHANGING C_RKB1D = G_RKB1D EXCEPTIONS OTHERS = 1.

RKD_REPORT_IMPORT_C * CALL FUNCTION 'RKD_REPORT_IMPORT_C' * EXPORTING * i_rkb1x = g_rkb1x * import_mode = '1' * generate_newgen = '2' ** importing ** e_report = g_report " KEIN IMPORT * CHANGING * c_rkb1d = g_rkb1d * EXCEPTIONS * OTHERS = 1.

RKD_REPORT_IMPORT_C CALL FUNCTION 'RKD_REPORT_IMPORT_C' EXPORTING I_RKB1X = G_RKB1X IMPORT_MODE = '1' GENERATE_SUPPRESS = 'X' IMPORTING E_REPORT = G_REPORT CHANGING C_RKB1D = G_RKB1D EXCEPTIONS OTHERS = 1.

RKD_REPORT_IMPORT_C * CALL FUNCTION 'RKD_REPORT_IMPORT_C' * EXPORTING * i_rkb1x = g_rkb1x * import_mode = '1' * generate_newgen = '2' * CHANGING * c_rkb1d = g_rkb1d * EXCEPTIONS * OTHERS = 1.

RKD_REPORT_IMPORT_C * CALL FUNCTION 'RKD_REPORT_IMPORT_C' * exporting * i_rkb1x = g_rkb1x * import_mode = '1' * generate_newgen = '2' * changing * c_rkb1d = g_rkb1d * exceptions * others = 1.

RKD_REPORT_IMPORT_C CALL FUNCTION 'RKD_REPORT_IMPORT_C' EXPORTING I_RKB1X = G_RKB1X IMPORT_MODE = '1' GENERATE_NEWGEN = '2' CHANGING C_RKB1D = G_RKB1D EXCEPTIONS OTHERS = 1.

ENQUEUE_EKCREPORT CALL FUNCTION 'ENQUEUE_EKCREPORT' EXPORTING APPLCLASS = G_RKB1D-APPLCLASS SUBCLASS = G_RKB1D-SUBCLASS TABNAME = I_TABNAME REPID = I_REPID EXCEPTIONS FOREIGN_LOCK = 01 SYSTEM_FAILURE = 02.

DEQUEUE_EKCREPORT CALL FUNCTION 'DEQUEUE_EKCREPORT' EXPORTING MANDT = SY-MANDT APPLCLASS = G_RKB1D-APPLCLASS SUBCLASS = G_RKB1D-SUBCLASS TABNAME = I_TABNAME REPID = I_REPID.

RKE_COIXID_GET CALL FUNCTION 'RKE_COIXID_GET' EXPORTING APPL = G_RKB1D-APPLCLASS DTYPE = L_DATYPD PAKOM = L_LNUM REPID = G_RKB1D-REPID SUBCL = G_RKB1D-SUBCLASS TABLE = G_RKB1D-TABNAME IMPORTING COIXID = L_COIXID.

RKE_COIXID_GET CALL FUNCTION 'RKE_COIXID_GET' EXPORTING APPL = G_RKB1D-APPLCLASS DTYPE = L_DATYPD PAKOM = L_LNUM REPID = G_RKB1D-REPID SUBCL = G_RKB1D-SUBCLASS TABLE = G_RKB1D-TABNAME IMPORTING COIXID = L_COIXID.

RKE_COIXID_GET CALL FUNCTION 'RKE_COIXID_GET' EXPORTING APPL = G_RKB1D-APPLCLASS DTYPE = L_DATYPD PAKOM = L_LNUM REPID = G_RKB1D-REPID SUBCL = G_RKB1D-SUBCLASS TABLE = G_RKB1D-TABNAME IMPORTING COIXID = L_COIXID.

RKD_DATA_DELETE_BY_KEY CALL FUNCTION 'RKD_DATA_DELETE_BY_KEY' EXPORTING I_APPLCLASS = CONST_APPLCLASS * I_SUBCLASS = '01' I_TABNAME = I_TABNAME I_REPID = I_REPID * i_delete_mode = " default ist Verdichtung + Sicherung EXCEPTIONS NO_AUTHORITY = 1 OTHERS = 2.

GET_EWWU_WAERS_40 CALL FUNCTION 'GET_EWWU_WAERS_40' EXPORTING confirm_cust = ' ' IMPORTING EUROWAERS = P_EUROWAERS eurokurst = eurokurst * EURODATUM = * EUROINVDT = * KTEXT_INCOMPLETE = * LTEXT_INCOMPLETE = * TEXT_INCOMPLETE = TABLES ewucurrs = ewucurrs EXCEPTIONS customizing_not_found = 1 customizing_not_confirmed = 2 no_waers_found = 3 OTHERS = 4.

EWU_STATUS_INITIALIZE CALL FUNCTION 'EWU_STATUS_INITIALIZE' EXPORTING PROGRAMM = 'RKEB0902_40' IMPORTING AUFSETZARG = AUFARG EXCEPTIONS NO_PROGRAM_ENTRY = 1 WRONG_PHASE = 2 PRECESSOR_NOT_OK = 3 PROGRAM_ALREADY_STARTED = 4 PROGRAM_ALREADY_FINISHED = 5 NO_PAKET_ENTRY = 6 FOREIGN_LOCK = 7 SYSTEM_FAILURE = 8 ACTIVE_PAKET_NOT_FOUND = 9 OTHERS = 10.

EWU_PROTOCOL_APPEND CALL FUNCTION 'EWU_PROTOCOL_APPEND' EXPORTING LEVEL = LEVEL * MSGTY = ' ' * LANGU = SY-LANGU MSGID = 'KH' MSGNO = 392 * NEWOBJ = ' ' MSGV1 = TEXT1 MSGV2 = TEXT2 MSGV3 = TEXT3 MSGV4 = TEXT4 EXCEPTIONS PROTOCOL_ERROR = 1 OTHERS = 2.

EWU_STATUS_UPDATE





CALL FUNCTION 'EWU_STATUS_UPDATE' EXPORTING STATUS = STATUS AUFSETZARG = STATUS EXCEPTIONS NO_PAKET_ENTRY = 1 FOREIGN_LOCK = 2 SYSTEM_FAILURE = 3 NO_PROGRAM_ENTRY = 4 WRONG_CALL = 5 ACTIVE_PAKET_NOT_FOUND = 6 UPDATE_DENIED = 7 OTHERS = 8.

EWU_PROTOCOL_WRITE CALL FUNCTION 'EWU_PROTOCOL_WRITE' * EXPORTING * CLEAR_OLD_PROT = ' ' EXCEPTIONS ERROR_IN_FUNCTION_CALL = 1 TABLE_EMPTY = 2 SQL_ERROR = 3 WRONG_CALL = 4 OTHERS = 5.

RKE_IS_ERKRS_ACTIVE CALL FUNCTION 'RKE_IS_ERKRS_ACTIVE' EXPORTING I_ERKRS = I_ERKRS * I_MANDT = SY-MANDT * I_TKEBB_ONLY = RKEA1_OFF EXCEPTIONS NOT_ACTIVE_IN_CLIENT = 1 NOT_DEFINED_IN_CLIENT = 2 NOT_ACTIVE = 3 NOT_DEFINED = 4 OTHERS = 5.

RKE_READ_ERKRS_MESSAGE CALL FUNCTION 'RKE_READ_ERKRS_MESSAGE' EXPORTING i_erkrs = i_erkrs * I_LANGU = SY-LANGU IMPORTING E_V_TKEBB = e_tkebb * E_V_TKEBC = * E_V_TKEB = * ET_V_TKEBL = * ET_V_TKELT = EXCEPTIONS NOT_DEFINED = 1 NOT_DEFINED_IN_CLIENT = 2 NO_TEXT = 3 OTHERS = 4.

RKE_FILL_FIELD_TABLE CALL FUNCTION 'RKE_FILL_FIELD_TABLE' EXPORTING ERKRS = I_ERKRS TABNAME = L_TABNAME PA_TYPE = '1' TABLES FIELDTAB = L_FIELDTAB EXCEPTIONS TABLE_NOT_FOUND = 1 LEDGER_NOT_DEF = 2 LEDGER_NOT_FOUND = 3 OTHERS = 4.

RKE_FILL_FIELD_TABLE CALL FUNCTION 'RKE_FILL_FIELD_TABLE' EXPORTING ERKRS = I_ERKRS TABNAME = L_TABNAME PA_TYPE = '2' TABLES FIELDTAB = L_FIELDTAB EXCEPTIONS TABLE_NOT_FOUND = 1 LEDGER_NOT_DEF = 2 LEDGER_NOT_FOUND = 3 OTHERS = 4.

MESSAGE_EXPORT_IMPORT CALL FUNCTION 'MESSAGE_EXPORT_IMPORT' EXPORTING EX_OR_IF = 'IF' EXCEPTIONS EMPTY = 01.

MESSAGES_STOP CALL FUNCTION 'MESSAGES_STOP' EXCEPTIONS OTHERS = 01.

MESSAGES_GIVE CALL FUNCTION 'MESSAGES_GIVE' TABLES T_MESG = ITAB.

MESSAGES_INITIALIZE CALL FUNCTION 'MESSAGES_INITIALIZE'.

RKD_SET_DEFAULT_KOKRS CALL FUNCTION 'RKD_SET_DEFAULT_KOKRS' CHANGING KOKRS = c_kokrs.



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 RKEB0902_40 or its description.