PCA33F01 SAP ABAP INCLUDE - EC-PC: Form Routines for Program RCPCA33
PCA33F01 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 PCA33F01 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 PCA33F01. "Basic submit
SUBMIT PCA33F01 AND RETURN. "Return to original report after report execution complete
SUBMIT PCA33F01 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: EC-PC: Form Routines for Program RCPCA33
INCLUDES used within this REPORT PCA33F01
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:
ENQUEUE_ENQ_WIP_BUKRS CALL FUNCTION 'ENQUEUE_ENQ_WIP_BUKRS' EXPORTING kokrs = kokrs bukrs = p_bukrs-low gjahr = gjahr monat = dum_mon versa = versa EXCEPTIONS foreign_lock = 1 system_failure = 2 OTHERS = 3.
COPCA_APPL_LOG_WRITE CALL FUNCTION 'COPCA_APPL_LOG_WRITE' EXPORTING subobject = subobject altcode = altcode alprog = alprog altext = altext * kokrs = kokrs bukrs = p_bukrs-low gjahr = gjahr perio = monat versa = versa.
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.
KE_TRANSACTION_DATA_DELETE CALL FUNCTION 'KE_TRANSACTION_DATA_DELETE' EXPORTING * RPRCTR = ' ' * RACCT = ' ' * HRKFT = ' ' * RVERS = ' ' rrcty = gc-satztyp_act poper = poper ryear = gjahr rbukrs = p_bukrs-low kokrs = kokrs rhoart = gc-hoart_best_wip * DOCNR = ' ' * DOCLN = ' ' * DOCCT = ' ' versa = versa * AFABE = logsys = l_logsys test_indicator = ' ' log = ' ' flag_glpca_commit = 'X' EXCEPTIONS * DOCUMENT_NUMBER_INCOMPLETE = 01 * HRKFT_WITHOUT_RACCT = 02 * PLANVERSION_VS_ACTUAL_DATA = 03 * MISSING_PARAMETERS = 04.
COPCA_FIX_GLEDGER CALL FUNCTION 'COPCA_FIX_GLEDGER' IMPORTING f_gledger = t_ledger.
K_COSBA_READ_MULTI CALL FUNCTION 'K_COSBA_READ_MULTI' EXPORTING von_periode = perab_3 bis_periode = perbi_3 modus = 3 progname = 'RCOPCA33' formname = 'COSBA_VERARBEITEN' TABLES t_cosel = seltab * T_COSBA = * T_FGR = EXCEPTIONS OTHERS = 0.
K_COSBA_READ_MULTI CALL FUNCTION 'K_COSBA_READ_MULTI' EXPORTING von_periode = perab_3 bis_periode = perbi_3 modus = 3 progname = 'RCOPCA33' formname = 'COSBA_VERARBEITEN' TABLES t_cosel = seltab * T_COSBA = t_fgr = t_fgr EXCEPTIONS OTHERS = 0.
K_OBJECTS_MASTER_READ CALL FUNCTION 'K_OBJECTS_MASTER_READ' EXPORTING max_error = 8 TABLES coiob_tab = t_coiob i_periods = t_periods EXCEPTIONS error_occurs = 01 wrong_object = 02.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING arbgb = gc-arbgb exception_if_not_active = 'X' msgty = 'E' msgv1 = intcosba-objnr * MSGV2 = ' ' * MSGV3 = ' ' * MSGV4 = ' ' txtnr = '279' * ZEILE = '000' EXCEPTIONS message_type_not_valid = 01 not_active = 02.
LAST_DAY_IN_PERIOD_GET CALL FUNCTION 'LAST_DAY_IN_PERIOD_GET' EXPORTING i_gjahr = pa_gjahr * I_MONMIT = E02 i_periv = gl-lmona i_poper = poper IMPORTING e_date = gl-datum EXCEPTIONS input_false = 01 t009_notfound = 02 t009b_notfound = 03.
KKA_ABGR_FIBU_BUCHUNGSREGEL CALL FUNCTION 'KKA_ABGR_FIBU_BUCHUNGSREGEL' EXPORTING bukrs = bukrs kokrs = pa_kokrs schluessel_fragment_cosb = teil_cosb nur_hauptbuch = 'X' TABLES tkka_fibu = t_fibu.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING arbgb = gc-arbgb exception_if_not_active = 'X' msgty = 'E' msgv1 = hkont msgv2 = bukrs msgv3 = ktopl * MSGV4 = ' ' txtnr = '278' * ZEILE = '000' EXCEPTIONS message_type_not_valid = 01 not_active = 02.
STATUS_CHECK CALL FUNCTION 'STATUS_CHECK' EXPORTING * BYPASS_BUFFER = ' ' * CLIENT = SY-MANDT objnr = t_coiob-objnr status = 'I0295' * Status I0295 = es gibt Objektwährungsdaten EXCEPTIONS object_not_found = 1 status_not_active = 2 OTHERS = 3.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING arbgb = 'KM' * EXCEPTION_IF_NOT_ACTIVE = 'X' msgty = 'W' msgv1 = t_coiob-objnr * msgv2 = werte-kwert msgv2 = l_print_kwert msgv3 = cobk-kwaer msgv4 = t_bukrs-waers txtnr = 192 * ZEILE = ' ' * IMPORTING * ACT_SEVERITY = * MAX_SEVERITY = EXCEPTIONS * MESSAGE_TYPE_NOT_VALID = 1 * NOT_ACTIVE = 2 OTHERS = 3 .
COPCA_BEST_RW_AUFBAUEN CALL FUNCTION 'COPCA_BEST_RW_AUFBAUEN' EXPORTING * TEXT = ' ' glvor = gc-prc4 awtyp = gc-awtyp_pca bukrs = t_coiob-bukrs kokrs = pa_kokrs gjahr = pa_gjahr monat = pa_monat * KTOSL = ' ' pswsl = werte-twaer pswbt = werte-twert * HKONT = ' ' * MATNR = ' ' * MENGE = ' ' * MEINS = ' ' werks = t_coiob-werks prctr = t_coiob-prctr * BWKEY = ' ' * BWTAR = curt2 = cobk-ctyp1 waer2 = cobk-kwaer wert2 = werte-kwert curt3 = ctyp3 waer3 = werte-owaer wert3 = werte-owert hoart = gc-hoart_best_wip TABLES t_acchd = t_acchd t_accit = t_accit t_acccr = t_acccr.
K_COBK_CURRENCY_FILL CALL FUNCTION 'K_COBK_CURRENCY_FILL' EXPORTING i_cobk = cobk IMPORTING e_cobk = cobk.
K_CVTYP_GET CALL FUNCTION 'K_CVTYP_GET' EXPORTING i_currtyp = c_bukwaer i_valutyp = gl-pca_valu IMPORTING e_cvtyp = p_buk_cur_val EXCEPTIONS illegal_combination = 1 OTHERS = 2.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING arbgb = gc-arbgb exception_if_not_active = 'X' msgty = 'W' msgv1 = t_bukrs-bukrs msgv2 = pa_versa txtnr = '285' * ZEILE = '000' EXCEPTIONS message_type_not_valid = 01 not_active = 02.
* call function 'RK_BUKRS_OF_KOKRS' * exporting * kokrs = kokrs * TABLES * T_BUKRS = T_BUKRS.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING arbgb = 'KM' * EXCEPTION_IF_NOT_ACTIVE = 'X' msgty = 'W' msgv1 = summe-hkont msgv2 = l_print_kwert msgv3 = cobk-kwaer msgv4 = t_bukrs-waers txtnr = 562 * ZEILE = ' ' * IMPORTING * ACT_SEVERITY = * MAX_SEVERITY = EXCEPTIONS * MESSAGE_TYPE_NOT_VALID = 1 * NOT_ACTIVE = 2 OTHERS = 3 .
COPCA_BEST_RW_AUFBAUEN CALL FUNCTION 'COPCA_BEST_RW_AUFBAUEN' EXPORTING * TEXT = ' ' glvor = gc-prc4 awtyp = gc-awtyp_pca bukrs = summe-bukrs kokrs = pa_kokrs gjahr = pa_gjahr monat = pa_monat * KTOSL = ' ' pswsl = werte-twaer pswbt = werte-twert hkont = summe-hkont * MATNR = ' ' * MENGE = ' ' * MEINS = ' ' werks = summe-werks "note 526137 prctr = summe-prctr * BWKEY = ' ' * BWTAR = curt2 = cobk-ctyp1 waer2 = cobk-kwaer wert2 = werte-kwert curt3 = ctyp3 waer3 = werte-owaer wert3 = werte-owert hoart = gc-hoart_best_wip TABLES t_acchd = t_acchd t_accit = t_accit t_acccr = t_acccr.
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 = pa_gjahr i_rbukrs = t_bukrs-bukrs i_rhoart = gc-hoart_best_wip i_kokrs = pa_kokrs * I_ACTIV = GC-PRC4 "P45K048915 * no activ because online posting has to be carried forward as well i_versa = pa_versa " i_afabe = ' ' i_monat = pa_monat i_datum = gl-datum "SR_ALRK153279 EXCEPTIONS no_data_found = 01 data_not_cleared = 02.
COPCA_START_BALANCE_CARRY_FORW CALL FUNCTION 'COPCA_START_BALANCE_CARRY_FORW' "#EC NO_INCOMP IN BACKGROUND TASK EXPORTING i_comp_code = pa_bukrs-low i_transaction_year = pa_gjahr i_test_mode = pa_testl.
COPCA_DISPLAY_ALV_PROTOCOLL CALL FUNCTION 'COPCA_DISPLAY_ALV_PROTOCOLL' EXPORTING i_report = c_report i_structure_name1 = 'PCA_WIP_ALV' i_structure_name2 = 'PCA_WIP_ALV_SHORT' * I_SAVE = 'A' * I_COMP_CODE = i_co_area = pa_kokrs i_period = pa_monat i_year = pa_gjahr * I_DEP_AREA = i_ra_version = pa_versa i_testrun = pa_testl i_line_items = pa_einzp * I_COMP_CODE_TEXT = i_co_area_text = tka01-bezei i_header_text = text-050 i_prot = pa_prot TABLES it_data1 = lt_wip it_data2 = lt_wip_short it_top_of_page = gt_top_of_page EXCEPTIONS insufficient_input = 1 OTHERS = 2 .
REUSE_ALV_COMMENTARY_WRITE CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE' EXPORTING it_list_commentary = gt_top_of_page.
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 .
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 PCA33F01 or its description.