RCOPCA37F01 SAP ABAP INCLUDE - documentation and ABAP source code
RCOPCA37F01 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 RCOPCA37F01 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 RCOPCA37F01. "Basic submit
SUBMIT RCOPCA37F01 AND RETURN. "Return to original report after report execution complete
SUBMIT RCOPCA37F01 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 RCOPCA37F01
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:
COPCA_ACTIVE_PLAN CALL FUNCTION 'COPCA_ACTIVE_PLAN' EXPORTING GJAHR = P_RYEAR KOKRS = P_KOKRS PCRCH = GC-BUCH RVERS = P_RVERS IMPORTING VSPKZ = GV-VSPKZ EXCEPTIONS COPCA_NOT_ACTIVE = 01.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'E' ARBGB = 'KM' TXTNR = '029' MSGV1 = P_RYEAR MSGV2 = P_KOKRS.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'E' ARBGB = 'KM' TXTNR = '353' MSGV1 = P_KOKRS MSGV2 = P_RYEAR MSGV3 = P_RVERS.
K_KOKRS_READ CALL FUNCTION 'K_KOKRS_READ' EXPORTING GJAHR = P_RYEAR KOKRS = P_KOKRS IMPORTING E_TKA00 = G_TKA00 E_TKA01 = G_TKA01 EXCEPTIONS NOT_FOUND = 1 NOT_FOUND_GJAHR = 2 OTHERS = 3.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = SY-MSGTY ARBGB = SY-MSGID TXTNR = SY-MSGNO MSGV1 = SY-MSGV1 MSGV2 = SY-MSGV2 MSGV3 = SY-MSGV3 MSGV4 = SY-MSGV4.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'W' ARBGB = 'KM' TXTNR = '593' MSGV1 = P_KOKRS.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'W' ARBGB = 'KM' TXTNR = '497' MSGV1 = P_KOKRS.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'W' ARBGB = 'KM' TXTNR = '498'.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'W' ARBGB = 'KM' TXTNR = '041'.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'I' ARBGB = 'KM' TXTNR = '333' MSGV1 = TEXT-004.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'E' ARBGB = 'KH' TXTNR = '744' MSGV1 = AUC_KOKRS MSGV2 = AUC_VERSN MSGV3 = AUC_GJAHR.
REUSE_ALV_LIST_DISPLAY CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY' EXPORTING I_CALLBACK_PROGRAM = G_REPID I_STRUCTURE_NAME = 'GT_OUTTAB' IS_LAYOUT = GS_LAYOUT IT_FIELDCAT = GT_FIELDCAT[] IT_SORT = GT_SORT I_SAVE = G_SAVE IT_EVENTS = T_EVENTS IMPORTING E_EXIT_CAUSED_BY_CALLER = G_EXIT_CAUSED_BY_CALLER TABLES T_OUTTAB = GT_OUTTAB EXCEPTIONS PROGRAM_ERROR = 1 OTHERS = 2.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'E' ARBGB = 'KM' TXTNR = '333' MSGV1 = TEXT-001.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'A' ARBGB = 'KM' TXTNR = '333' MSGV1 = TEXT-002.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'E' ARBGB = 'KM' TXTNR = '872'.
PCA_DERIVE_COSTS CALL FUNCTION 'PCA_DERIVE_COSTS' EXPORTING I_SOURCE = P_R_GLPCT TABLES T_TARGET = INT_C_GLPCT t_item_category = lth_item_category "4.6A, HpM, 19990512
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'W' ARBGB = SY-MSGID TXTNR = SY-MSGNO MSGV1 = SY-MSGV1 MSGV2 = SY-MSGV2 MSGV3 = SY-MSGV3 MSGV4 = SY-MSGV4.
POPUP_TO_CONFIRM_WITH_MESSAGE CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE' EXPORTING DIAGNOSETEXT1 = TEXT-020 DIAGNOSETEXT2 = TEXT-021 TEXTLINE1 = TEXT-022 TITEL = TEXT-023 IMPORTING ANSWER = ANSWER.
CALL FUNCTION 'KE_TRANSACTION_DATA_DELETE' EXPORTING RPRCTR = P_G_RPRCTR-PRCTR RVERS = P_RVERS RRCTY = GC-SATZTYP_PLAN RYEAR = P_RYEAR KOKRS = P_KOKRS RHOART = C-HOART_PCA_KALK ACTIV = C-ACTIV_PCA_PLAN * logsys = ' ' TEST_INDICATOR = P_TEST LOG = P_DELE * importing * duprec = EXCEPTIONS DOCUMENT_NUMBER_INCOMPLETE = 1 HRKFT_WITHOUT_RACCT = 2 PLANVERSION_VS_ACTUAL_DATA = 3 MISSING_PARAMETERS = 4 INTERNAL_ERROR_1 = 5 OTHERS = 6 .
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = SY-MSGTY ARBGB = SY-MSGID TXTNR = SY-MSGNO MSGV1 = SY-MSGV1 MSGV2 = SY-MSGV2 MSGV3 = SY-MSGV3 MSGV4 = SY-MSGV4.
MESSAGES_INITIALIZE CALL FUNCTION 'MESSAGES_INITIALIZE'.
G_DATABASE_ENQUEUE CALL FUNCTION 'G_DATABASE_ENQUEUE' EXPORTING TABLE = C-TABLE_GLPCT TABLES COMB = ITGMD02 EXCEPTIONS FOREIGN_LOCK = 1 SYSTEM_FAILURE = 2.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'E' ARBGB = 'GP' TXTNR = '012' MSGV1 = SY-MSGV1.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'E' ARBGB = 'GP' TXTNR = '001' MSGV1 = SY-MSGV1.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'S' ARBGB = 'KM' TXTNR = '000'. "data posted
PCA_PLANDATA_POST CALL FUNCTION 'PCA_PLANDATA_POST' EXPORTING I_DOCTY = DOCTY_PCA_PLAN IMPORTING E_RECORDS = COUNT_REC TABLES T_GLPCT = P_C_GLPCT EXCEPTIONS POSTING_ERROR = 1 OTHERS = 2.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'S' ARBGB = 'KM' TXTNR = '666'. "data posted
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = SY-MSGTY ARBGB = SY-MSGID TXTNR = SY-MSGNO MSGV1 = SY-MSGV1 MSGV2 = SY-MSGV2 MSGV3 = SY-MSGV3 MSGV4 = SY-MSGV4.
FIRST_AND_LAST_DAY_IN_YEAR_GET CALL FUNCTION 'FIRST_AND_LAST_DAY_IN_YEAR_GET' EXPORTING I_GJAHR = P_RYEAR I_PERIV = G_TKA01-LMONA IMPORTING E_FIRST_DAY = L_DATE_FROM E_LAST_DAY = L_DATE_TO EXCEPTIONS INPUT_FALSE = 1 T009_NOTFOUND = 2 T009B_NOTFOUND = 3 OTHERS = 4.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = SY-MSGTY ARBGB = SY-MSGID TXTNR = SY-MSGNO MSGV1 = SY-MSGV1 MSGV2 = SY-MSGV2 MSGV3 = SY-MSGV3 MSGV4 = SY-MSGV4.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'E' ARBGB = 'KM' TXTNR = '333' MSGV1 = TEXT-003.
ECPCA_RVERS_VALUE_REQUEST CALL FUNCTION 'ECPCA_RVERS_VALUE_REQUEST' EXPORTING I_RLDNR = GC-LEDGER I_KOKRS = G_KOKRS I_RVERS = RVERS IMPORTING E_RVERS = RVERS.
ECPCA_RYEAR_VALUE_REQUEST CALL FUNCTION 'ECPCA_RYEAR_VALUE_REQUEST' EXPORTING I_KOKRS = G_KOKRS I_RYEAR = RYEAR IMPORTING E_RYEAR = RYEAR.
K_GROUP_SELECT CALL FUNCTION 'K_GROUP_SELECT' EXPORTING CLASS = LOC_SET_CLASS FIELD_NAME = P_I_FIELDNAME TABLE = 'GLPCT' TYPELIST = 'BS' KOKRS = G_KOKRS KTOPL = G_TKA01-KTOPL IMPORTING SET_NAME = SET_RPR EXCEPTIONS NO_SET_PICKED = 1 OTHERS = 2.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'S' ARBGB = 'KM' TXTNR = '000'.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'S' ARBGB = 'KM' TXTNR = '333' MSGV1 = TEXT-005.
G_SET_GET_ID_FROM_NAME CALL FUNCTION 'G_SET_GET_ID_FROM_NAME' EXPORTING KOKRS = G_KOKRS KTOPL = G_TKA01-KTOPL SHORTNAME = P_SET OLD_SETID = P_SETID IMPORTING NEW_SETID = P_SETID.
G_SET_INSERT CALL FUNCTION 'G_SET_INSERT' EXPORTING SETNAME = U_SETID IMPORTING HEADER = HEADER INDEX = SETINDEX.
G_SET_GET_NEXT CALL FUNCTION 'G_SET_GET_NEXT' EXPORTING CONTROL_BLOCK = CONTROL_BLOCK INDEX = SETINDEX IMPORTING HEADER = HEADER EXCEPTIONS END_OF_SETS = 1.
G_SET_GET_NEXT CALL FUNCTION 'G_SET_GET_NEXT' EXPORTING CONTROL_BLOCK = CONTROL_BLOCK INDEX = SETINDEX IMPORTING HEADER = HEADER EXCEPTIONS END_OF_SETS = 1.
G_CONTROL_BLOCK_RESET CALL FUNCTION 'G_CONTROL_BLOCK_RESET' EXPORTING CONTROL_BLOCK = CONTROL_BLOCK.
G_INTERVAL_GET_NEXT CALL FUNCTION 'G_INTERVAL_GET_NEXT' EXPORTING CONTROL_BLOCK = CONTROL_BLOCK INDEX = SETINDEX IMPORTING ENTRY = ENTRY EXCEPTIONS END_OF_INTERVALS = 1.
G_INTERVAL_GET_NEXT CALL FUNCTION 'G_INTERVAL_GET_NEXT' EXPORTING CONTROL_BLOCK = CONTROL_BLOCK INDEX = SETINDEX IMPORTING ENTRY = ENTRY EXCEPTIONS END_OF_INTERVALS = 1.
G_CONTROL_BLOCK_RESET CALL FUNCTION 'G_CONTROL_BLOCK_RESET' EXPORTING CONTROL_BLOCK = CONTROL_BLOCK.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'E' ARBGB = 'KM' TXTNR = '333' MSGV1 = TEXT-007.
G_CURRENCY_FROM_CT_GET CALL FUNCTION 'G_CURRENCY_FROM_CT_GET' EXPORTING CT = G_TKA01-PCACURTP KOKRS = G_TKA01-KOKRS IMPORTING CURRENCY = P_PWAER EXCEPTIONS BUKRS_NOT_FOUND = 1 BUKRS_NOT_VALID = 2 CURRENCY_EMPTY = 3 KOKRS_NOT_VALID = 4 LAND_NOT_VALID = 5 NO_BUKRS_FOUND = 6 NO_KOKRS_FROM_BUKRS = 7 NO_RCOMP_FOUND = 8 RCOMP_NOT_VALID = 9 RLDNR_MISSING = 10 RLDNR_NOT_VALID = 11 T000_NOT_VALID = 12 WRONG_CT = 13 OTHERS = 14.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = SY-MSGTY ARBGB = SY-MSGID TXTNR = SY-MSGNO MSGV1 = SY-MSGV1 MSGV2 = SY-MSGV2 MSGV3 = SY-MSGV3 MSGV4 = SY-MSGV4.
REUSE_ALV_COMMENTARY_WRITE CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE' EXPORTING IT_LIST_COMMENTARY = T_LISTHEADER[] EXCEPTIONS OTHERS = 1.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'E' ARBGB = 'KM' TXTNR = '333' MSGV1 = TEXT-008.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING MSGTY = 'W' ARBGB = 'KM' TXTNR = '668' MSGV1 = IBE_GLPCT-SPRCTR MSGV2 = IBE_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 RCOPCA37F01 or its description.
RCOPCA37F01 - documentation and ABAP source code RCOPCA37 - EC-PCA: Transfer of Costs from PCA Costing RCOPCA37 - EC-PCA: Transfer of Costs from PCA Costing RCOPCA36 - EC-PCA: Transfer Payables/Receivables in the Background RCOPCA36 - EC-PCA: Transfer Payables/Receivables in the Background RCOPCA35 - EC-PCA: Basis Program for Query, Maturity of Receivables