PCA32F01 SAP ABAP INCLUDE - Form Routines for RCOPCA32
PCA32F01 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 PCA32F01 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 PCA32F01. "Basic submit
SUBMIT PCA32F01 AND RETURN. "Return to original report after report execution complete
SUBMIT PCA32F01 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Form Routines for RCOPCA32
INCLUDES used within this REPORT PCA32F01
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_PRCTR_BUKRS_ACTIVE_ACT CALL FUNCTION 'COPCA_PRCTR_BUKRS_ACTIVE_ACT' EXPORTING gjahr = gjahr bukrs = bukrs pcrch = gc-buch IMPORTING lmona = gv-lmona pcacur = gv-pcacur pcacurtp = gv-pcacurtp pcatrcur = gv-pcatrcur vspkz = gv-vspkz dprct = gv-dprct kokrs = gv-kokrs EXCEPTIONS copca_not_active = 01 kokrs_not_found = 02 wrong_parameter_pcrch = 04 no_currency_found = 05.
ENQUEUE_ENQ_ANLA CALL FUNCTION 'ENQUEUE_ENQ_ANLA' EXPORTING bukrs = bukrs gjahr = gjahr peraf = peraf afaber = afaber * _SCOPE = '2' * _WAIT = ' ' EXCEPTIONS foreign_lock = 01 system_failure = 02.
OWN_LOGICAL_SYSTEM_GET CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET' IMPORTING own_logical_system = l_logsys EXCEPTIONS own_logical_system_not_defined = 1 OTHERS = 2.
GET_PERIOD_VERSION CALL FUNCTION 'GET_PERIOD_VERSION' EXPORTING I_PERIV = GL-LMONA * I_XTEXTS = ' ' * I_SPRAS = SY-LANGU IMPORTING E_T009 = L_T009 * E_T009T = * EXCEPTIONS * PERIOD_VERSION_NOT_FOUND = 1 * PERIOD_VERSION_TEXTS_NOT_FOUND = 2 * OTHERS = 3 .
KE_TRANSACTION_DATA_DELETE CALL FUNCTION 'KE_TRANSACTION_DATA_DELETE' EXPORTING * RPRCTR = ' ' * RACCT = ' ' * HRKFT = ' ' * RVERS = ' ' rrcty = gc-satztyp_act poper = PERAF_LOOP "note 808234 ryear = gjahr rbukrs = bukrs kokrs = gv-kokrs " P30K057672 rhoart = gc-hoart_anlagenbest * DOCNR = ' ' * DOCLN = ' ' * DOCCT = ' ' * VERSA = ' ' * activ = gc-prc4 " P30K057672 " no activ, in order to delete online transferred assets as well afabe = afabe logsys = l_logsys "insert note 101975 test_indicator = ' ' log = ' ' flag_glpca_commit = 'X' EXCEPTIONS * DOCUMENT_NUMBER_INCOMPLETE = 01 * HRKFT_WITHOUT_RACCT = 02 * PLANVERSION_VS_ACTUAL_DATA = 03 * MISSING_PARAMETERS = 04.
KOKRS_GET_FROM_BUKRS CALL FUNCTION 'KOKRS_GET_FROM_BUKRS' EXPORTING i_bukrs = bukrs IMPORTING e_kokrs = kokrs EXCEPTIONS no_kokrs_found = 1 OTHERS = 2.
K_KOKRS_READ CALL FUNCTION 'K_KOKRS_READ' EXPORTING * GJAHR = '0000' kokrs = kokrs IMPORTING * E_TKA00 = e_tka01 = i_tka01 EXCEPTIONS not_found = 1 not_found_gjahr = 2 OTHERS = 3.
LAST_DAY_IN_PERIOD_GET CALL FUNCTION 'LAST_DAY_IN_PERIOD_GET' EXPORTING i_gjahr = gjahr i_monmit = monmit i_periv = i_tka01-lmona i_poper = peraf IMPORTING e_date = berdatum EXCEPTIONS input_false = 01 t009_notfound = 02 t009b_notfound = 03.
FIRST_DAY_IN_PERIOD_GET CALL FUNCTION 'FIRST_DAY_IN_PERIOD_GET' EXPORTING i_gjahr = gjahr i_monmit = monmit i_periv = i_tka01-lmona i_poper = pop1 IMPORTING e_date = gjbegin EXCEPTIONS input_false = 01 t009_notfound = 02 t009b_notfound = 03.
LAST_DAY_IN_YEAR_GET CALL FUNCTION 'LAST_DAY_IN_YEAR_GET' " P30K057672 EXPORTING " P30K057672 i_date = berdatum " P30K057672 i_periv = i_tka01-lmona IMPORTING " P30K057672 e_date = endofyear " P30K057672 EXCEPTIONS " P30K057672 input_false = 1 " P30K057672 t009_notfound = 2 " P30K057672 t009b_notfound = 3 " P30K057672 OTHERS = 4. " P30K057672
COPCA_BEST_RW_AUFBAUEN * CALL FUNCTION 'COPCA_BEST_RW_AUFBAUEN' * EXPORTING ** TEXT = ' ' * glvor = gc-prc4 "#EC DOM_EQUAL * awtyp = gc-awtyp_pca * bukrs = gl_bukrs * kokrs = gv-kokrs * gjahr = gjahr * monat = monat ** KTOSL = ' ' * pswsl = t_waer-curr * pswbt = t_waer-wert * hkont = t_waer-hkont ** MATNR = ' ' ** MENGE = ' ' ** MEINS = ' ' * werks = alt_einzp-werks * prctr = alt_einzp-prctr ** BWKEY = ' ' ** BWTAR = ** curt2 = ' ' ** waer2 = ' ' ** WERT2 = ** CURT3 = ' ' ** WAER3 = ' ' ** WERT3 = ' ' * hoart = gc-hoart_anlagenbest * TABLES * t_acchd = t_acchd * t_accit = t_accit * t_acccr = t_acccr.
RK_KOSTL_READ * CALL FUNCTION 'RK_KOSTL_READ' " P30K057672 * EXPORTING " P30K057672 * DATUM = DATUM " P30K057672 * KOKRS = KOKRS " P30K057672 * KOSTL = KOSTL " P30K057672 * IMPORTING " P30K057672 * XCSKSV = XCSKSV " P30K057672 * EXCEPTIONS " P30K057672 * KOSTL_NOT_COMPLETE = 01 " P30K057672 * KOSTL_NOT_FOUND = 02 " P30K057672 * TEXT_NOT_FOUND = 03. " P30K057672
K_ORDER_READ CALL FUNCTION 'K_ORDER_READ' EXPORTING aufnr = aufnr * E_AUFKV = ' ' * NO_BUFFER = ' ' * NO_MESSAGE_STORE = ' ' * MATNR_WANTED = ' ' IMPORTING prctr = l_order_prctr stakz = l_order_stat_kz EXCEPTIONS not_found = 1 OTHERS = 2.
CONVERT_TO_LOCAL_CURRENCY * CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY' * EXPORTING * date = gl-berdatum "#EC DOM_EQUAL * foreign_amount = t_acccr-wrbtr * foreign_currency = t_acccr-waers * local_currency = gl-buwae * IMPORTING * local_amount = t_acccr-wrbtr * EXCEPTIONS * OTHERS = 6.
DATE_TO_PERIOD_CONVERT CALL FUNCTION 'DATE_TO_PERIOD_CONVERT' EXPORTING i_date = t093c-datum i_periv = ld_periv IMPORTING e_buper = ld_buper e_gjahr = ld_gjahr EXCEPTIONS OTHERS = 4.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING arbgb = gc-arbgb exception_if_not_active = 'X' msgty = msg-msgty msgv1 = msg-msgv1 msgv2 = msg-msgv2 msgv3 = msg-msgv3 msgv4 = msg-msgv4 txtnr = msg-msgno * ZEILE = '000' * IMPORTING * ACT_SEVERITY = * MAX_SEVERITY = EXCEPTIONS message_type_not_valid = 01 not_active = 02.
MESSAGES_INITIALIZE CALL FUNCTION 'MESSAGES_INITIALIZE'.
COPCA_FIX_GLEDGER CALL FUNCTION 'COPCA_FIX_GLEDGER' IMPORTING f_gledger = t_ledger.
CALL FUNCTION 'COPCA_BEST_RW_AUFBAUEN' EXPORTING * TEXT = ' ' glvor = gc-prc4 "#EC DOM_EQUAL awtyp = gc-awtyp_pca bukrs = gl_bukrs kokrs = gv-kokrs gjahr = gjahr monat = monat * KTOSL = ' ' pswsl = gl-cur1 "Währung des Übernahmebereichs * PSWBT = ' ' * HKONT = ' ' * MATNR = ' ' * MENGE = ' ' * MEINS = ' ' * werks = ' ' * PRCTR = ' ' * BWKEY = ' ' * BWTAR = * curt2 = ' ' * waer2 = ' ' * WERT2 = * CURT3 = ' ' * WAER3 = ' ' * WERT3 = ' ' hoart = gc-hoart_anlagenbest TABLES t_acchd = t_acchd t_accit = t_accit t_acccr = t_acccr.
CONVERT_TO_LOCAL_CURRENCY * CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY' * EXPORTING * date = gl-berdatum "#EC DOM_EQUAL * foreign_amount = t_acccr-wrbtr * foreign_currency = t_acccr-waers * local_currency = gl-buwae * IMPORTING * local_amount = t_acccr-wrbtr * EXCEPTIONS * OTHERS = 6.
COPCA_APPL_LOG_WRITE CALL FUNCTION 'COPCA_APPL_LOG_WRITE' EXPORTING subobject = subobject altcode = altcode alprog = alprog altext = altext * KOKRS = bukrs = bukrs gjahr = gjahr perio = perio afabe = afabe.
G_PCA_SET_DONT_CALC CALL FUNCTION 'G_PCA_SET_DONT_CALC' EXPORTING i_dont_calc = 'X'.
PCA_BESTAENDE_VORTRAGEN CALL FUNCTION 'PCA_BESTAENDE_VORTRAGEN' EXPORTING i_rldnr = gc-ledger i_rrcty = gc-satztyp_act i_rvers = gc-rvers_act i_ryear = gjahr i_rbukrs = bukrs i_rhoart = gc-hoart_anlagenbest i_kokrs = gv-kokrs * i_activ = gc-prc4 * not only activ prc4, also online transfer has to be carried forward i_afabe = afaber i_monat = monat " I_VERSA = ' ' i_datum = berdatum"SR_ALRK153279 EXCEPTIONS no_data_found = 01 data_not_cleared = 02.
G_PCA_SET_DONT_CALC CALL FUNCTION 'G_PCA_SET_DONT_CALC' EXPORTING i_dont_calc = space.
T093C_READ CALL FUNCTION 'T093C_READ' EXPORTING i_bukrs = p_bukrs IMPORTING f_t093c = ls_t093c.
FAA_READ_AREA_SETTINGS CALL FUNCTION 'FAA_READ_AREA_SETTINGS' EXPORTING i_orgunit = p_bukrs i_area = afaber IMPORTING es_areasettings = ls_areasettings * EXCEPTIONS * CUSTOMIZING_WRONG = 1 * WRONG_INPUT_DATA = 2 * OTHERS = 3 .
FI_COMPANY_CODE_DATA CALL FUNCTION 'FI_COMPANY_CODE_DATA' EXPORTING i_bukrs = p_bukrs IMPORTING e_t001 = l_t001 * EXCEPTIONS * SYSTEM_ERROR = 1 * OTHERS = 2 .
GET_ACCOUNT_OF_PERIODS CALL FUNCTION 'GET_ACCOUNT_OF_PERIODS' EXPORTING i_gjahr = p_gjahr * I_MONMIT = 00 i_periv = l_mona IMPORTING e_anzbuper = l_anzbuper EXCEPTIONS * INPUT_FALSE = 1 * T009B_NOTFOUND = 2 * T009_NOTFOUND = 3 OTHERS = 4.
COPCA_START_BALANCE_CARRY_FORW * CALL FUNCTION 'COPCA_START_BALANCE_CARRY_FORW' * IN BACKGROUND TASK * EXPORTING * i_comp_code = gl_bukrs * i_transaction_year = gjahr * i_test_mode = testl.
FI_COMPANY_CODE_DATA * CALL FUNCTION 'FI_COMPANY_CODE_DATA' * EXPORTING * i_bukrs = bukrs-low * IMPORTING * e_t001 = l_t001 * EXCEPTIONS * system_error = 1 * OTHERS = 2.
COPCA_DISPLAY_ALV_PROTOCOLL * CALL FUNCTION 'COPCA_DISPLAY_ALV_PROTOCOLL' * EXPORTING * i_report = c_report * i_structure_name1 = 'PCA_ANL_ALV' * i_structure_name2 = 'PCA_ANL_ALV_SHORT' ** I_SAVE = 'A' * I_COMP_CODE = gl_bukrs ** I_CO_AREA = * I_PERIOD = l_period * I_YEAR = gjahr * I_DEP_AREA = afaber * I_TESTRUN = testl * I_LINE_ITEMS = EINZP * I_COMP_CODE_TEXT = l_t001-butxt * I_HEADER_TEXT = text-050 * I_PROT = protocol * tables * it_data1 = lt_anl * it_data2 = lt_anl_short * IT_TOP_OF_PAGE = gt_top_of_page * EXCEPTIONS * INSUFFICIENT_INPUT = 1 * OTHERS = 2 * .
T093C_READ CALL FUNCTION 'T093C_READ' EXPORTING f_t093c = lt_t093c * I_PBO_CHECK = ' ' IMPORTING f_t093c = lt_t093c EXCEPTIONS not_found = 1 OTHERS = 2.
T093_READ CALL FUNCTION 'T093_READ' EXPORTING f_t093 = lt_t093 * F_DELFLG = IMPORTING f_t093 = lt_t093 EXCEPTIONS not_found = 1 OTHERS = 2.
COPCA_ACTIVE_ACT CALL FUNCTION 'COPCA_ACTIVE_ACT' EXPORTING gjahr = gjahr kokrs = gv-kokrs pcrch = gc-buch IMPORTING * EPSKZ = * LMONA = * ONLKZ = * PCACUR = * PCACURTP = * PCATRCUR = * VSPKZ = * PCBEL = * DPRCT = pca_valu = l_pca_valu EXCEPTIONS * COPCA_NOT_ACTIVE = 1 * KOKRS_NOT_FOUND = 2 * WRONG_PARAMETER_PCRCH = 3 * NO_CURRENCY_FOUND = 4 OTHERS = 5.
FI_COMPANY_CODE_DATA * CALL FUNCTION 'FI_COMPANY_CODE_DATA' * EXPORTING * i_bukrs = bukrs-low * IMPORTING * e_t001 = l_t001 * EXCEPTIONS * system_error = 1 * OTHERS = 2.
REUSE_ALV_VARIANT_DEFAULT_GET * CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET' ** EXPORTING ** I_SAVE = ' ' * CHANGING * cs_variant = p_variant * EXCEPTIONS * wrong_input = 1 * not_found = 2 * program_error = 3 * OTHERS = 4 * .
REUSE_ALV_COMMENTARY_WRITE * CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE' * EXPORTING * it_list_commentary = gt_top_of_page.
K_ACCOUNTINGS_SET_FOR_ASSETS CALL FUNCTION 'K_ACCOUNTINGS_SET_FOR_ASSETS' TABLES t_accit = it_accit t_accit_amco = it_accit_amco EXCEPTIONS bukrs_missing = 1 account_not_valid = 2 OTHERS = 3.
COPCA_BEST_RW_AUFBAUEN CALL FUNCTION 'COPCA_BEST_RW_AUFBAUEN' EXPORTING * TEXT = ' ' glvor = gc-prc4 "#EC DOM_EQUAL awtyp = gc-awtyp_pca bukrs = gl_bukrs kokrs = gv-kokrs gjahr = gjahr monat = l_period * KTOSL = ' ' pswsl = pt_einzelp-curr pswbt = pt_einzelp-wert hkont = pt_einzelp-hkont * MATNR = ' ' * MENGE = ' ' * MEINS = ' ' werks = pt_einzelp-werks prctr = pt_einzelp-prctr * BWKEY = ' ' * BWTAR = * curt2 = ' ' * waer2 = ' ' * WERT2 = * CURT3 = ' ' * WAER3 = ' ' * WERT3 = ' ' hoart = gc-hoart_anlagenbest TABLES t_acchd = pt_acchd t_accit = st_accit t_acccr = st_acccr.
CONVERT_TO_LOCAL_CURRENCY CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY' EXPORTING date = gl-berdatum "#EC DOM_EQUAL foreign_amount = l_acccr-wrbtr foreign_currency = l_acccr-waers local_currency = gl-buwae IMPORTING local_amount = l_local_amount EXCEPTIONS OTHERS = 6.
FI_COMPANY_CODE_DATA CALL FUNCTION 'FI_COMPANY_CODE_DATA' EXPORTING i_bukrs = bukrs-low IMPORTING e_t001 = l_t001 EXCEPTIONS system_error = 1 OTHERS = 2.
COPCA_DISPLAY_ALV_PROTOCOLL CALL FUNCTION 'COPCA_DISPLAY_ALV_PROTOCOLL' EXPORTING i_report = c_report i_structure_name1 = 'PCA_ANL_ALV' i_structure_name2 = 'PCA_ANL_ALV_SHORT' * I_SAVE = 'A' i_comp_code = gl_bukrs * I_CO_AREA = i_period = l_period i_year = gjahr i_dep_area = afaber i_testrun = testl i_line_items = einzp i_comp_code_text = p_butxt i_header_text = text-050 i_prot = p_protocol TABLES it_data1 = pt_anl it_data2 = pt_anl_short it_top_of_page = gt_top_of_page EXCEPTIONS insufficient_input = 1 OTHERS = 2.
CONVERT_TO_LOCAL_CURRENCY CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY' EXPORTING date = gl-berdatum "#EC DOM_EQUAL foreign_amount = l_acccr-wrbtr foreign_currency = l_acccr-waers local_currency = gl-buwae IMPORTING local_amount = l_local_amount EXCEPTIONS OTHERS = 6.
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 PCA32F01 or its description.