RKEVRK6A SAP ABAP INCLUDE - BW/CO-PA Retraction: Form Routines for Processing from 4.0
RKEVRK6A 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 RKEVRK6A 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 RKEVRK6A. "Basic submit
SUBMIT RKEVRK6A AND RETURN. "Return to original report after report execution complete
SUBMIT RKEVRK6A VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: BW/CO-PA Retraction: Form Routines for Processing from 4.0
INCLUDES used within this REPORT RKEVRK6A
INCLUDE RKEBW61X.
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:
MESSAGES_INITIALIZE CALL FUNCTION 'MESSAGES_INITIALIZE'.
MESSAGES_STOP CALL FUNCTION 'MESSAGES_STOP' EXCEPTIONS A_MESSAGE = 1 E_MESSAGE = 1 I_MESSAGE = 1 W_MESSAGE = 1.
MESSAGES_SHOW CALL FUNCTION 'MESSAGES_SHOW' EXPORTING * object = text-010 SHOW_LINNO = ' ' EXCEPTIONS INCONSISTENT_RANGE = 1 NO_MESSAGES = 2.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = WA_ERROR-AG MSGTY = WA_ERROR-SEVERITY TXTNR = WA_ERROR-MSGNR MSGV1 = WA_ERROR-VAR1 MSGV2 = WA_ERROR-VAR2 MSGV3 = WA_ERROR-VAR3 MSGV4 = WA_ERROR-VAR4.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = WA_ERROR-AG MSGTY = WA_ERROR-SEVERITY TXTNR = WA_ERROR-MSGNR MSGV1 = WA_ERROR-VAR1 MSGV2 = WA_ERROR-VAR2 MSGV3 = WA_ERROR-VAR3 MSGV4 = WA_ERROR-VAR4.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = WA_ERROR-AG MSGTY = WA_ERROR-SEVERITY TXTNR = '417' MSGV1 = SATZ-ZAE MSGV2 = FEHLER-ZAE.
COPA_CHECK_BELNR CALL FUNCTION 'COPA_CHECK_BELNR' EXPORTING I_ERKRS = L_TKEBWLRE-ERKRS I_VRGAR = L_TKEBWLRE-VRGAR I_GJAHR = WA_CE0_INDX-GJAHR I_BELNR = WA_CE0_INDX-BELNR IMPORTING E_BELNR = L_BELNR.
NUMBER_GET_NEXT CALL FUNCTION 'NUMBER_GET_NEXT' EXPORTING NR_RANGE_NR = C_NUMBER_RANGE_INTERVAL OBJECT = C_NUMBER_RANGE_OBJECT IMPORTING NUMBER = NUM EXCEPTIONS INTERVAL_NOT_FOUND = 1 NUMBER_RANGE_NOT_INTERN = 2 OBJECT_NOT_FOUND = 3 QUANTITY_IS_0 = 4 QUANTITY_IS_NOT_1 = 5 INTERVAL_OVERFLOW = 6 OTHERS = 7.
NUMBER_RANGE_INTERVAL_UPDATE CALL FUNCTION 'NUMBER_RANGE_INTERVAL_UPDATE' EXPORTING OBJECT = C_NUMBER_RANGE_OBJECT IMPORTING ERROR = ERROR ERROR_OCCURED = ERROR_OCCURED WARNING_OCCURED = WARNING_OCCURED TABLES ERROR_IV = ERROR_IV INTERVAL = INTERVALS.
NUMBER_RANGE_UPDATE_CLOSE CALL FUNCTION 'NUMBER_RANGE_UPDATE_CLOSE' EXPORTING OBJECT = C_NUMBER_RANGE_OBJECT.
NUMBER_GET_NEXT CALL FUNCTION 'NUMBER_GET_NEXT' EXPORTING NR_RANGE_NR = C_NUMBER_RANGE_INTERVAL OBJECT = C_NUMBER_RANGE_OBJECT * QUANTITY = '1' IMPORTING NUMBER = E_NUM EXCEPTIONS INTERVAL_NOT_FOUND = 1 NUMBER_RANGE_NOT_INTERN = 2 OBJECT_NOT_FOUND = 3 QUANTITY_IS_0 = 4 QUANTITY_IS_NOT_1 = 5 INTERVAL_OVERFLOW = 6 OTHERS = 7.
RKE_FILL_FIELD_TABLE CALL FUNCTION 'RKE_FILL_FIELD_TABLE' EXPORTING ERKRS = ERKRS TABNAME = G_DBTABNAME TABLES FIELDTAB = GT_DBTABLE.
RKE_READ_ERKRS_MESSAGE CALL FUNCTION 'RKE_READ_ERKRS_MESSAGE' EXPORTING I_ERKRS = ERKRS IMPORTING E_V_TKEB = GS_V_TKEB ET_V_TKEBL = GT_V_TKEBL ET_V_TKELT = GT_V_TKELT.
RKE_VERSI_READ CALL FUNCTION 'RKE_VERSI_READ' EXPORTING I_ERKRS = ERKRS I_VERSI = L_TKEBWLRE-VERSION IMPORTING ES_TKEVS = GS_TKEVS.
COPA_CHECK_CEEP CALL FUNCTION 'COPA_CHECK_CEEP' EXPORTING COPA_EINZELPOSTEN = WA_CE1 TABNAME = G_DBTABNAME TABLES CHECKTAB = GT_DBTABLE2.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = WA_ERROR-AG MSGTY = WA_ERROR-SEVERITY TXTNR = '413' MSGV1 =
MSGV2 = GT_DBTABLE2-FIELDNAME MSGV3 = GT_DBTABLE2-CHECKTABLE.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = WA_ERROR-AG MSGTY = WA_ERROR-SEVERITY TXTNR = LS_ERROR_46-MSGNR MSGV1 = LS_ERROR_46-VAR1 MSGV2 = LS_ERROR_46-VAR2 MSGV3 = LS_ERROR_46-VAR3 MSGV4 = LS_ERROR_46-VAR4.
RKE_CHECK_ORG_ELEMENTS CALL FUNCTION 'RKE_CHECK_ORG_ELEMENTS' EXPORTING BUKRS = WA_CE0-BUKRS ERKRS = ERKRS GSBER = WA_CE0-GSBER KOKRS = WA_CE0-KOKRS PRCTR = WA_CE0-PRCTR VKORG = WA_CE0-VKORG VTWEG = WA_CE0-VTWEG SPART = WA_CE0-SPART WERKS = WA_CE0-WERKS EXCEPTIONS ERROR_MESSAGE = 4.
CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = SY-MSGID MSGTY = SY-MSGTY TXTNR = SY-MSGNO MSGV1 = SY-MSGV1 MSGV2 = SY-MSGV2 MSGV3 = SY-MSGV3 MSGV4 = SY-MSGV4.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = GC_ARBGB MSGTY = GC_ABEND TXTNR = '317' MSGV1 = WA_CE0-BUKRS.
RKE_TRANSFORM_STRUCTURE * call function 'RKE_TRANSFORM_STRUCTURE' * exporting * erkrs = erkrs * from_area = wa_ce0 * from_tabname = 'CE0%[gl_erkrs]' * to_area_import = wa_ce1 * to_tabname = 'CE1%[gl_erkrs]' * importing * to_area_export = wa_ce1.
KEDR_COPA_DERIVE CALL FUNCTION 'KEDR_COPA_DERIVE' EXPORTING I_ERKRS = ERKRS I_ITEM = WA_CE1 I_DERIVATION_DATE = GS_TKEVS-ABLEDA I_TABNAME = G_DBTABNAME I_GLOBAL_FIELDS = LS_GLOBAL_FIELDS "JW HW495272 IMPORTING E_ITEM = WA_CE1 EXCEPTIONS DERIVATION_FAILED = 1 ERROR_MESSAGE = 4.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = SY-MSGID MSGTY = SY-MSGTY TXTNR = SY-MSGNO MSGV1 = SY-MSGV1 MSGV2 = SY-MSGV2 MSGV3 = SY-MSGV3 MSGV4 = SY-MSGV4.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = 'RD' MSGTY = INFORMATION TXTNR = '416' MSGV1 = SATZ-ZAE MSGV2 = FEHLER-ZAE.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = GC_ARBGB MSGTY = GC_ABEND TXTNR = '318' MSGV1 = WA_CE0-MANDT MSGV2 = SY-MANDT.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = GC_ARBGB MSGTY = GC_ABEND TXTNR = '319' MSGV1 = WA_CE0-PALEDGER MSGV2 = GS_TKEVS-PALEDGER.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = GC_ARBGB MSGTY = GC_ABEND TXTNR = '319' MSGV1 = WA_CE0-PALEDGER MSGV2 = '01'.
RKE_VRGAR_CHECK * call function 'RKE_VRGAR_CHECK' * exporting * plikz = '1' * svrgar = wa_ce0-vrgar * mode = 'C' "would allow 'AFEXYZ0123456789' only * importing * subrc = subrc.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = WA_ERROR-AG MSGTY = WA_ERROR-SEVERITY TXTNR = '326' MSGV1 = WA_CE0-VRGAR.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' "kein Datum gesetzt EXPORTING ARBGB = WA_ERROR-AG MSGTY = WA_ERROR-SEVERITY TXTNR = '321' MSGV1 = WA_CE0-PERIO MSGV2 = WA_CE0-GJAHR MSGV3 = WA_CE0-BUDAT.
RKE_CONVERT_DATE_TO_LOGNR CALL FUNCTION 'RKE_CONVERT_DATE_TO_LOGNR' EXPORTING DATE = WA_CE0-BUDAT ERKRS = ERKRS IMPORTING PERIO = WA_CE0-PERIO PERIO2 = WA_CE0-ALTPERIO EXCEPTIONS ERROR_MESSAGE = 4.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = SY-MSGID MSGTY = SY-MSGTY TXTNR = SY-MSGNO MSGV1 = SY-MSGV1 MSGV2 = SY-MSGV2 MSGV3 = SY-MSGV3 MSGV4 = SY-MSGV4.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = GC_ARBGB MSGTY = WA_ERROR-SEVERITY TXTNR = '322' MSGV1 = WA_CE0-GJAHR MSGV2 = WA_CE0-PERDE.
RKE_GET_FIRST_DAY_IN_PERIOD CALL FUNCTION 'RKE_GET_FIRST_DAY_IN_PERIOD' EXPORTING PERFLAG = '1' PERIO = WA_CE0-PERIO PERIV = IS_V_TKEB-PERIV IMPORTING DATE = WA_CE0-BUDAT EXCEPTIONS I_ERROR = 1 I_PERFLAG_INVALID = 2 I_PERIV_NOTEDITED = 3 I_PERIV_NOTFOUND = 4 OTHERS = 5.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = SY-MSGID MSGTY = SY-MSGTY TXTNR = SY-MSGNO MSGV1 = SY-MSGV1 MSGV2 = SY-MSGV2 MSGV3 = SY-MSGV3 MSGV4 = SY-MSGV4.
RKE_CONVERT_DATE_TO_LOGNR CALL FUNCTION 'RKE_CONVERT_DATE_TO_LOGNR' "YKC101774 EXPORTING "YKC101774 DATE = WA_CE0-BUDAT "YKC101774 ERKRS = ERKRS "YKC101774 IMPORTING "YKC101774 PERIO2 = WA_CE0-ALTPERIO "YKC101774 EXCEPTIONS "YKC101774 ERROR_MESSAGE = 4 "YKC101774 OTHERS = 4. "YKC101774
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' "YKC101774 EXPORTING "YKC101774 ARBGB = SY-MSGID "YKC101774 MSGTY = SY-MSGTY "YKC101774 TXTNR = SY-MSGNO "YKC101774 MSGV1 = SY-MSGV1 "YKC101774 MSGV2 = SY-MSGV2 "YKC101774 MSGV3 = SY-MSGV3 "YKC101774 MSGV4 = SY-MSGV4. "YKC101774
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = WA_ERROR-AG MSGTY = WA_ERROR-SEVERITY TXTNR = '382'.
RKE_REVALUE *call function 'RKE_REVALUE' * exporting * applclass = applclass * subclass = subclass * tabname = dbtabname * reval = reval * ce5_wa_import = wa_ce5 * importing * ce5_wa_export = wa_ce5 * tables * fieldtab = dbtable.
RKE_GET_FIRST_DAY_IN_PERIOD CALL FUNCTION 'RKE_GET_FIRST_DAY_IN_PERIOD' EXPORTING PERFLAG = PERFLAG PERIV = PERIV PERIO = PERIO IMPORTING DATE = DATE.
CONVERT_TO_LOCAL_CURRENCY CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY' EXPORTING DATE = DATE FOREIGN_AMOUNT =
FOREIGN_CURRENCY = WA_CE1-FRWAE LOCAL_CURRENCY = G_HAUSWAERS RATE = WA_CE1-KURSF TYPE_OF_RATE = TYPE_OF_RATE IMPORTING EXCHANGE_RATE = WA_CE1-KURSF LOCAL_AMOUNT = EXCEPTIONS ERROR_MESSAGE = 4.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = SY-MSGID MSGTY = SY-MSGTY TXTNR = SY-MSGNO MSGV1 = SY-MSGV1 MSGV2 = SY-MSGV2 MSGV3 = SY-MSGV3 MSGV4 = SY-MSGV4.
RKE_CREATE_BATCH_INPUT * call function 'RKE_CREATE_BATCH_INPUT' * exporting *+010 erkrs = '%[gl_erkrs]' * group = bdcgroup * user = sy-uname * tables * ep_tab = int_err_bdc_100 * fieldtab = dbtable * exceptions * no_ep_found = 01.
RKE_TRANSFORM_STRUCTURE CALL FUNCTION 'RKE_TRANSFORM_STRUCTURE' EXPORTING ERKRS = ERKRS FROM_AREA = T_CE0 FROM_TABNAME = CE0NAME TO_AREA_IMPORT = T_CE4 TO_TABNAME = CE4NAME IMPORTING TO_AREA_EXPORT = T_CE4.
RKE_GET_OBJECT_NUMBER CALL FUNCTION 'RKE_GET_OBJECT_NUMBER' EXPORTING ERKRS = ERKRS PA_TYPE = '1' TABLES OBJECT_TABLE = T_CE4.
RKE_ENQUEUE_CRITERIA CALL FUNCTION 'RKE_ENQUEUE_CRITERIA' EXPORTING I_ACTION = 'E' I_ERKRS = ERKRS I_PA_TYPE = '1' I_PLIKZ = '1' I_VERSI = L_VERSI _SCOPE = '3' _MODE = 'S' EXCEPTIONS FOREIGN_LOCK = 1 SYSTEM_FAILURE = 2.
ENQUEUE_EKCEPLOB CALL FUNCTION 'ENQUEUE_EKCEPLOB' EXPORTING MODE_CEPL2 = 'S' ERKRS = ERKRS * paledger = * vrgar = VERSI = L_VERSI * paobjnr = * pasubnr = _SCOPE = '3' * sperre sowohl dialog als auch an den verbucher (fuer zwischenbuchen) EXCEPTIONS FOREIGN_LOCK = 01 SYSTEM_FAILURE = 02.
RKE_CURRENCIES_GET CALL FUNCTION 'RKE_CURRENCIES_GET' EXPORTING I_ERKRS = I_ERKRS I_PALEDGER = I_PALEDGER I_BUKRS = I_BUKRS IMPORTING ET_V_CURR = LT_V_CURR.
RKE_GET_FIRST_DAY_IN_PERIOD CALL FUNCTION 'RKE_GET_FIRST_DAY_IN_PERIOD' EXPORTING PERFLAG = PERFLAG PERIV = PERIV PERIO = PERIO IMPORTING DATE = WA_CE1-BUDAT.
RKE_PRICING_INTERFACE_PLAN CALL FUNCTION 'RKE_PRICING_INTERFACE_PLAN' EXPORTING DIALOG = SPACE KURST = GS_TKEVS-KURST RKE_EINZELPOSTEN = WA_CE1 STICHTAG = WA_CE1-BUDAT TABNAME = G_DBTABNAME VERSI = WA_CE1-VERSI IMPORTING BEWERTETER_EP = WA_CE1 TABLES DBTAB = GT_DBTABLE WERTKOMP = GT_WERTKOMP EXCEPTIONS NO_KALSM = 01 NO_BSTRA = 01 NO_VRGAR = 04 ERROR_MESSAGE = 03.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING ARBGB = SY-MSGID MSGTY = SY-MSGTY TXTNR = G_TXTNR MSGV1 = SY-MSGV1 MSGV2 = SY-MSGV2 MSGV3 = SY-MSGV3 MSGV4 = SY-MSGV4.
RKE_GET_ERKRS_ATTR CALL FUNCTION 'RKE_GET_ERKRS_ATTR' EXPORTING ERKRS = ERKRS IMPORTING BLOCKFACTOR = BLOCKFAKT.
RKE_SPREAD_ALTPERIO_TO_PERIO CALL FUNCTION 'RKE_SPREAD_ALTPERIO_TO_PERIO' EXPORTING ERKRS = ERKRS FCALID = GS_TKEVS-FCALID PERFLAG = GS_V_TKEB-PERFLAG PERFLAG2 = GS_V_TKEB-PERFLAG2 PERIV = GS_V_TKEB-PERIV PERIV2 = GS_V_TKEB-PERIV2 ZERATR = GS_TKEVS-ZERATR TABLES CE5 = WORK2 FIELDTAB = GT_DBTABLE. "ce1
RKE_POST_PLAN_LINE_ITEMS CALL FUNCTION 'RKE_POST_PLAN_LINE_ITEMS' EXPORTING ERKRS = ERKRS PA_TYPE = '1' TABLES CE0_TAB = T_CE0.
RKE_POST_PLAN_LINE_ITEMS CALL FUNCTION 'RKE_POST_PLAN_LINE_ITEMS' EXPORTING ERKRS = ERKRS PA_TYPE = '1' TABLES CE0_TAB = T_CE0.
RKE_ENQUEUE_CRITERIA CALL FUNCTION 'RKE_ENQUEUE_CRITERIA' EXPORTING I_ACTION = 'D' I_ERKRS = ERKRS I_PA_TYPE = '1' I_PALEDGER = GS_TKEVS-PALEDGER I_PLIKZ = '1' * I_VRGAR = I_VERSI = VERSI * _WAIT = ' ' _SCOPE = '3' _MODE = 'S'.
DEQUEUE_EKCEPLOB CALL FUNCTION 'DEQUEUE_EKCEPLOB' EXPORTING MODE_CEPL2 = 'S' ERKRS = ERKRS PALEDGER = GS_TKEVS-PALEDGER VERSI = VERSI _SCOPE = '3' EXCEPTIONS OTHERS = 1.
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 RKEVRK6A or its description.
RKEVRK6A - BW/CO-PA Retraction: Form Routines for Processing from 4.0 RKEVRK62 - BW/CO-PA Retraction: Form Routines for Processing Actual Data in 4.0 RKEVRK60 - BW/CO-PA Retraction: Form Routines for Direct Import of Actual Data RKEVRK5O - documentation and ABAP source code RKEVRK59 - documentation and ABAP source code RKEVRK58 - Template for Reading Line Items in Packages