SAP Reports / Programs
RK2A8500 SAP ABAP INCLUDE - documentation and ABAP source code
RK2A8500 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 RK2A8500 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 RK2A8500. "Basic submit
SUBMIT RK2A8500 AND RETURN. "Return to original report after report execution complete
SUBMIT RK2A8500 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 RK2A8500
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:
RKE_FILL_FIELD_TABLE CALL FUNCTION 'RKE_FILL_FIELD_TABLE' EXPORTING ERKRS = G_ERKRS TABNAME = 'CE08500' PA_TYPE = PA_TYPE TABLES FIELDTAB = FIELDTAB.
RKE_FILL_FIELD_TABLE * CALL FUNCTION 'RKE_FILL_FIELD_TABLE' * EXPORTING * ERKRS = G_ERKRS * TABNAME = CE0_NAME * PA_TYPE = PA_TYPE * TABLES * FIELDTAB = FIELDTAB.
ENQUEUE_EKC48500 ** CALL FUNCTION 'ENQUEUE_EKC48500' " <--- (DEL) ** EXPORTING " <--- (DEL) ** AKTBO = 'X' " <--- (DEL) ** _WAIT = 'X' " <--- (DEL) ** EXCEPTIONS " <--- (DEL) ** FOREIGN_LOCK = 1. " <--- (DEL)
DB_COMMIT * CALL FUNCTION 'DB_COMMIT'.
DEQUEUE_EKC48500 ** CALL FUNCTION 'DEQUEUE_EKC48500' " <--- (DEL) ** EXPORTING " <--- (DEL) ** AKTBO = 'X'. " <--- (DEL)
ENQUEUE_EKC48500 CALL FUNCTION 'ENQUEUE_EKC48500' EXPORTING AKTBO = CE48500-AKTBO MANDT = SY-MANDT PAOBJNR = CE48500-PAOBJNR PASUBNR = CE48500-PASUBNR X_AKTBO = ' ' X_PAOBJNR = ' ' X_PASUBNR = ' ' _SCOPE = '2' _WAIT = 'X' EXCEPTIONS FOREIGN_LOCK = 01 SYSTEM_FAILURE = 02.
DB_COMMIT * CALL FUNCTION 'DB_COMMIT'.
DEQUEUE_EKC48500 CALL FUNCTION 'DEQUEUE_EKC48500' EXPORTING AKTBO = CE48500-AKTBO MANDT = SY-MANDT PAOBJNR = CE48500-PAOBJNR PASUBNR = CE48500-PASUBNR X_AKTBO = ' ' X_PAOBJNR = ' ' X_PASUBNR = ' ' _SCOPE = '3' _SYNCHRON = ' '.
NUMBER_GET_NEXT CALL FUNCTION 'NUMBER_GET_NEXT' "Nr. für neues Objekt
RKE_CHECK_PALEDGER_ACT * CALL FUNCTION 'RKE_CHECK_PALEDGER_ACT' * EXPORTING * ERKRS = '8500' * T_PALEDGER = I_T_PALEDGER " dh980324 * TABLES * LINE_ITEM_TAB = LINE_ITEM_TAB * EXCEPTIONS * CURRENCY_MISMATCH = 1 * OTHERS = 2.
RKE_SERVE_ACT_DOC_NUMBER * CALL FUNCTION 'RKE_SERVE_ACT_DOC_NUMBER' * EXPORTING * ERKRS = G_ERKRS * IS_REVERSAL = IS_REVERSAL * T_PALEDGER = I_T_PALEDGER " dh980324 * IMPORTING * ANZ_BELNR_DRAWN = ANZ_BELNR_INTERN * ANZ_BELNR_FILLED = ANZ_BELNR_EXTERN * TABLES * LINE_ITEM_TAB = LINE_ITEM_TAB * EXCEPTIONS * CURRENCY_MISMATCH = 1 * OTHERS = 2.
RKE_GET_ACT_DOC_NUMBER ** CALL FUNCTION 'RKE_GET_ACT_DOC_NUMBER' ** EXPORTING ** erkrs = g_erkrs ** gjahr = line_item_tab-gjahr ** vrgar = line_item_tab-vrgar ** importing ** belnr = line_item_tab-belnr.
RKE_GET_REC_WAERS * CALL FUNCTION 'RKE_GET_REC_WAERS' * EXPORTING * I_ERKRS = G_ERKRS * I_PALEDGER = LINE_ITEM_TAB-PALEDGER * I_BUKRS = LINE_ITEM_TAB-BUKRS * IMPORTING * E_REC_WAERS = LINE_ITEM_TAB-REC_WAERS .
RKE_CONVERT_LOGNR_TO_PHYSNR * CALL FUNCTION 'RKE_CONVERT_LOGNR_TO_PHYSNR' * EXPORTING * ERKRS = G_ERKRS * PERIO = LINE_ITEM_TAB-PERIO * PERIO2 = LINE_ITEM_TAB-ALTPERIO.
ENQUEUE_EKC18500 * CALL FUNCTION 'ENQUEUE_EKC18500' * EXPORTING * PALEDGER = LINE_ITEM_TAB-PALEDGER * VRGAR = LINE_ITEM_TAB-VRGAR * VERSI = LINE_ITEM_TAB-VERSI * PERIO = LINE_ITEM_TAB-PERIO * PAOBJNR = LINE_ITEM_TAB-PAOBJNR * PASUBNR = LINE_ITEM_TAB-PASUBNR * BELNR = LINE_ITEM_TAB-BELNR * POSNR = LINE_ITEM_TAB-POSNR * EXCEPTIONS * FOREIGN_LOCK = 1 * SYSTEM_FAILURE = 2.
RKE_READ_ERKRS_MESSAGE * CALL FUNCTION 'RKE_READ_ERKRS_MESSAGE' " HK9705xx * EXPORTING * I_ERKRS = G_ERKRS * IMPORTING * E_V_TKEB = IS_TKEB.
RKE_ACT_IDOC_SEND * CALL FUNCTION 'RKE_ACT_IDOC_SEND' * EXPORTING ERKRS = G_ERKRS * TABLES CE1TAB = LINE_ITEM_TAB.
RKE_WRITE_ACT_LINE_ITEM_8500 * CALL FUNCTION 'RKE_WRITE_ACT_LINE_ITEM_8500' IN UPDATE TASK * TABLES LINE_ITEM_TAB = LINE_ITEM_TAB.
* CALL FUNCTION 'DEQUEUE_EKC18500' * EXPORTING * PALEDGER = ERR_LINE_ITEM_TAB-PALEDGER * VRGAR = ERR_LINE_ITEM_TAB-VRGAR * VERSI = ERR_LINE_ITEM_TAB-VERSI * PERIO = ERR_LINE_ITEM_TAB-PERIO * PAOBJNR = ERR_LINE_ITEM_TAB-PAOBJNR * PASUBNR = ERR_LINE_ITEM_TAB-PASUBNR * BELNR = ERR_LINE_ITEM_TAB-BELNR * POSNR = ERR_LINE_ITEM_TAB-POSNR.
RKE_GET_CRITERIA_FOR_PAOBJNR CALL FUNCTION 'RKE_GET_CRITERIA_FOR_PAOBJNR' EXPORTING ERKRS = '8500' USE_TKEOE = 'X' PA_TYPE = PA_TYPE_KALK TABLES OBJECT_TABLE = L_CE4_TAB.
ENQUEUE_EKCCESVBS CALL FUNCTION 'ENQUEUE_EKCCESVBS' " Shared Sperre EXPORTING MANDT = SY-MANDT PALEDGER = VBSYNC-PALEDGER PLIKZ = PLIKZ_IST VERSI = VBSYNC-VERSI VRGAR = VBSYNC-VRGAR ERKRS = '8500' "PH903483 X_PLIKZ = 'X' X_VERSI = X_VERSI _SCOPE = '2' _WAIT = 'X' EXCEPTIONS FOREIGN_LOCK = 01.
RKE_CONVERT_LOGNR_TO_PHYSNR CALL FUNCTION 'RKE_CONVERT_LOGNR_TO_PHYSNR' EXPORTING ERKRS = G_ERKRS PERIO = ACT_EP-PERIO PERIO2 = ACT_EP-ALTPERIO IMPORTING PERBL = PERBL POS = POS.
ENQUEUE_EKCCESVBS CALL FUNCTION 'ENQUEUE_EKCCESVBS' " Shared Sperre EXPORTING MANDT = SY-MANDT PALEDGER = VBSYNC-PALEDGER PLIKZ = VBSYNC-PLIKZ VERSI = VBSYNC-VERSI VRGAR = VBSYNC-VRGAR ERKRS = '8500' "PH903483 _SCOPE = '2' _WAIT = 'X' EXCEPTIONS FOREIGN_LOCK = 01.
RKE_TIMESTAMP_CONVERT_INPUT CALL FUNCTION 'RKE_TIMESTAMP_CONVERT_INPUT' EXPORTING I_DATE = SY-DATUM I_DAYST = SY-DAYST I_TIME = SY-UZEIT I_TZONE = SY-TZONE IMPORTING E_TIMESTMP = TIMESTMP.
ENQUEUE_EKC38500 CALL FUNCTION 'ENQUEUE_EKC38500' EXPORTING MANDT = SY-MANDT PALEDGER = CE3-PALEDGER PAOBJNR = CE3-PAOBJNR PAPAOBJNR = CE3-PAPAOBJNR PAPASUBNR = CE3-PAPASUBNR PASUBNR = CE3-PASUBNR PERBL = CE3-PERBL PLIKZ = CE3-PLIKZ VERSI = CE3-VERSI VRGAR = CE3-VRGAR HRKFT = CE3-HRKFT X_HRKFT = 'X' " explizite Ausprägungen X_PALEDGER = 'X' " sperren X_PAOBJNR = 'X' X_PAPAOBJNR = 'X' X_PAPASUBNR = 'X' X_PASUBNR = 'X' X_PERBL = 'X' X_PLIKZ = 'X' X_VERSI = 'X' X_VRGAR = 'X' _SCOPE = '2' _WAIT = 'X' EXCEPTIONS FOREIGN_LOCK = 01.
RKE_TIMESTAMP_CONVERT_INPUT CALL FUNCTION 'RKE_TIMESTAMP_CONVERT_INPUT' EXPORTING I_DATE = SY-DATUM I_DAYST = SY-DAYST I_TIME = SY-UZEIT I_TZONE = SY-TZONE IMPORTING E_TIMESTMP = TIMESTMP.
RKE_CONVERT_LOGNR_TO_PHYSNR CALL FUNCTION 'RKE_CONVERT_LOGNR_TO_PHYSNR' EXPORTING ERKRS = G_ERKRS PERIO = CE0-PERIO PERIO2 = CE0-ALTPERIO IMPORTING PERBL = CE2-PERBL POS = POS.
RKE_CONVERT_LOGNR_TO_PHYSNR CALL FUNCTION 'RKE_CONVERT_LOGNR_TO_PHYSNR' EXPORTING ERKRS = G_ERKRS PERIO = CE1-PERIO PERIO2 = CE1-ALTPERIO IMPORTING PERBL = CE3-PERBL POS = POS.
RKE_CONVERT_PHYSNR_TO_LOGNR CALL FUNCTION 'RKE_CONVERT_PHYSNR_TO_LOGNR' EXPORTING ERKRS = G_ERKRS PERBL = CE2-PERBL POS = POS IMPORTING PERIO = CE0-PERIO PERIO2 = CE0-ALTPERIO EXCEPTIONS I_PHYSNR_INVALID = 01.
RKE_CONVERT_PHYSNR_TO_LOGNR CALL FUNCTION 'RKE_CONVERT_PHYSNR_TO_LOGNR' EXPORTING ERKRS = G_ERKRS PERBL = CE2-PERBL POS = POS IMPORTING PERIO = CE1-PERIO PERIO2 = CE1-ALTPERIO EXCEPTIONS I_PHYSNR_INVALID = 01.
RKE_CONVERT_PHYSNR_TO_LOGNR CALL FUNCTION 'RKE_CONVERT_PHYSNR_TO_LOGNR' EXPORTING ERKRS = G_ERKRS PERBL = CE2-PERBL POS = POS IMPORTING PERIO = CE5-PERIO PERIO2 = CE5-ALTPERIO EXCEPTIONS I_PHYSNR_INVALID = 01.
RKE_CONVERT_PHYSNR_TO_LOGNR CALL FUNCTION 'RKE_CONVERT_PHYSNR_TO_LOGNR' EXPORTING ERKRS = G_ERKRS PERBL = CE3-PERBL POS = POS IMPORTING PERIO = CE0-PERIO PERIO2 = CE0-ALTPERIO EXCEPTIONS I_PHYSNR_INVALID = 01.
RKE_CONVERT_PHYSNR_TO_LOGNR CALL FUNCTION 'RKE_CONVERT_PHYSNR_TO_LOGNR' EXPORTING ERKRS = G_ERKRS PERBL = CE3-PERBL POS = POS IMPORTING PERIO = CE1-PERIO PERIO2 = CE1-ALTPERIO EXCEPTIONS I_PHYSNR_INVALID = 01.
RKE_CONVERT_LOGNR_TO_PHYSNR CALL FUNCTION 'RKE_CONVERT_LOGNR_TO_PHYSNR' EXPORTING ERKRS = G_ERKRS PERIO = CE5-PERIO PERIO2 = CE5-ALTPERIO IMPORTING PERBL = CE2-PERBL POS = POS.
RKE_EXIT CALL FUNCTION 'RKE_EXIT' EXPORTING I_EXIT_ID = keex_c_exit_id-ked1_write_nobuk I_COUNT_PARAMS = 2 CHANGING X_PARAM_1 = L_ERKRS X_PARAM_2 = L_IS_ACTIVE EXCEPTIONS ERROR = 1 OTHERS = 2.
RKE_READ_ERKRS_MESSAGE CALL FUNCTION 'RKE_READ_ERKRS_MESSAGE' EXPORTING I_ERKRS = I_ERKRS I_LANGU = SY-LANGU IMPORTING ET_V_TKEBL = LT_TKEBL.
RKE_GET_WAERS CALL FUNCTION 'RKE_GET_WAERS' EXPORTING ERKRS = I_ERKRS PA_TYPE = '1' PALEDGER = RKEA1_C_PALEDGER-ERKRS IMPORTING WAERS = L_WAERS_ERKRS EXCEPTIONS OTHERS = 1.
FI_COMPANY_CODE_DATA CALL FUNCTION 'FI_COMPANY_CODE_DATA' EXPORTING I_BUKRS = I_BUKRS IMPORTING E_T001 = LS_T001 EXCEPTIONS SYSTEM_ERROR = 1 OTHERS = 2.
RKE_EXIT_2 CALL FUNCTION 'RKE_EXIT_2' EXPORTING I_EXIT_ID = keex_c_exit_id-ked1_write_modi I_COUNT_PARAMS = 4 CHANGING X_PARAM_1 = L_ERKRS X_PARAM_2 = X_REVERSAL X_PARAM_3 = XT_PALEDGER X_PARAM_4 = XT_LINE_ITEM_TAB[] EXCEPTIONS ERROR = 1 OTHERS = 2.
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 RK2A8500 or its description.