PCMASUA1 SAP ABAP INCLUDE - Include for RPCALCY0 - functions for C.I.S.
PCMASUA1 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 PCMASUA1 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 PCMASUA1. "Basic submit
SUBMIT PCMASUA1 AND RETURN. "Return to original report after report execution complete
SUBMIT PCMASUA1 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Include for RPCALCY0 - functions for C.I.S.
INCLUDES used within this REPORT PCMASUA1
INCLUDE PCMASUA1_FUUAAB1.
INCLUDE PCMASUA1_FUUACDT.
INCLUDE PCADPUA1.
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:
RP_HIRE_FIRE CALL FUNCTION 'RP_HIRE_FIRE' EXPORTING beg = datum_si_0 end = datum_si_0 IMPORTING hire_date = hiredate fire_date = firedate TABLES pp0000 = p0000 "input pp0001 = p0001 "input pphifi = phifi1. "output
COMPUTE_YEARS_BETWEEN_DATES CALL FUNCTION 'COMPUTE_YEARS_BETWEEN_DATES' EXPORTING first_date = hiredate second_date = datum_si_0 modify_interval = ' ' IMPORTING years_between_dates = prumy-dauer EXCEPTIONS sequence_of_dates_not_valid = 01.
COMPUTE_YEARS_BETWEEN_DATES CALL FUNCTION 'COMPUTE_YEARS_BETWEEN_DATES' EXPORTING first_date = p0002-gbdat second_date = datum_si_0 modify_interval = ' ' IMPORTING years_between_dates = prumy-agejj.
RP_HIRE_FIRE CALL FUNCTION 'RP_HIRE_FIRE' EXPORTING beg = datum_si_0 end = datum_si_0 IMPORTING hire_date = hiredate fire_date = firedate TABLES pp0000 = p0000 "input pp0001 = p0001 "input pphifi = phifi1. "output
COMPUTE_YEARS_BETWEEN_DATES CALL FUNCTION 'COMPUTE_YEARS_BETWEEN_DATES' EXPORTING first_date = hiredate second_date = datum_si_0 modify_interval = ' ' IMPORTING years_between_dates = prumy-dauer EXCEPTIONS sequence_of_dates_not_valid = 01.
COMPUTE_YEARS_BETWEEN_DATES CALL FUNCTION 'COMPUTE_YEARS_BETWEEN_DATES' EXPORTING first_date = p0002-gbdat second_date = datum_si_0 modify_interval = ' ' IMPORTING years_between_dates = prumy-agejj.
RP_LAST_DAY_OF_MONTHS CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS' EXPORTING DAY_IN = zbegda IMPORTING LAST_DAY_OF_MONTH = zendda.
COMPUTE_YEARS_BETWEEN_DATES CALL FUNCTION 'COMPUTE_YEARS_BETWEEN_DATES' EXPORTING FIRST_DATE = birth SECOND_DATE = aper-endda IMPORTING YEARS_BETWEEN_DATES = age.
CONVERT_TO_LOCAL_CURRENCY CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY' EXPORTING date = dt foreign_amount = amount foreign_currency = foreign_currency local_currency = local_currency IMPORTING local_amount = result EXCEPTIONS no_rate_found = 01 overflow = 02.
RP_READ_T100 CALL FUNCTION 'RP_READ_T100' EXPORTING * arbgb = 'F5' "XULP30K073842 arbgb = sy-msgid"XULP30K073842 msgnr = sy-msgno msgv1 = sy-msgv1 msgv2 = sy-msgv2 msgv3 = sy-msgv3 msgv4 = sy-msgv4 sprsl = sy-langu IMPORTING text = t100_text EXCEPTIONS no_entry_found = 01.
RP_CHECK_PAY_PERIOD CALL FUNCTION 'RP_CHECK_PAY_PERIOD' EXPORTING abkrs = aper-abkrs abrpr = aper-paper zanzl = p0014-zanzl zdate = p0014-zdate zeitx = p0014-zeinz zfper = p0014-zfper model = p0014-model "QXOK146729 IMPORTING rcode = returncode TABLES tabelle = idates EXCEPTIONS "QXOK146729 * no_model_found = 1. "QXOK146729 "YREP30K026643
RP_READ_T100 CALL FUNCTION 'RP_READ_T100' "YREP30K026643 EXPORTING "YREP30K026643 arbgb = sy-msgid "YREP30K026643 msgnr = sy-msgno "YREP30K026643 msgv1 = sy-msgv1 "YREP30K026643 msgv2 = sy-msgv2 "YREP30K026643 msgv3 = sy-msgv3 "YREP30K026643 msgv4 = sy-msgv4 "YREP30K026643 sprsl = sy-langu "YREP30K026643 IMPORTING "YREP30K026643 text = message_text "YREP30K026643 EXCEPTIONS "YREP30K026643 no_entry_found = 1 "YREP30K026643 OTHERS = 2. "YREP30K026643
RP_FILL_WAGE_TYPE_TABLE_EXT CALL FUNCTION 'RP_FILL_WAGE_TYPE_TABLE_EXT' EXPORTING appli = 'P' pernr = pernr-pernr infty = pinfty subty = psubty objps = pobjps * WAERS = SY-WAERS "QEAK11K110108 begda = pbegda endda = pendda seqnr = seqnr "XPSP30K031644 TABLES pp0001 = p0001 "input pp0007 = p0007 "input pp0008 = p0008 "input ppbwla = ppbwla "output pp0230 = p0230 "input "XPMK035581 EXCEPTIONS error_at_indirect_evaluation = 1.
RP_READ_T100 CALL FUNCTION 'RP_READ_T100' EXPORTING arbgb = 'RP' msgnr = sy-msgno msgv1 = sy-msgv1 msgv2 = sy-msgv2 msgv3 = sy-msgv3 msgv4 = sy-msgv4 sprsl = sy-langu IMPORTING text = t100_text EXCEPTIONS no_entry_found = 01.
HRPY_AVERA_CUMULATE_BASES *call function 'HRPY_AVERA_CUMULATE_BASES' * exporting * molga = calcmolga * aper = aper * last_wpbp_endda = last-wpbp-endda * tables * rt = art * it = it "is empty because X090 !!!! * wpbp = wpbp * .
HRPY_AVERA_USE_WAGETYPE CALL FUNCTION 'HRPY_AVERA_USE_WAGETYPE' EXPORTING sw_prot = sw_prot currency = calc_currency TABLES it = it i51av_a = i51av_a i51av_p = i51av_p av_it = av_it iptext = ptext.
HRPY_AVERA_USE_FROZEN_AVERAGE * CALL FUNCTION 'HRPY_AVERA_USE_FROZEN_AVERAGE' * EXPORTING * sw_prot = sw_prot * currency = calc_currency * TABLES * i51av_a = i51av_a * i51av_p = i51av_p * av_it = av_it * average = average * wpbp = wpbp * iptext = ptext * ab = ab * it = it.
HRPAYUA_AVERA_USE_FROZEN_AVR CALL FUNCTION 'HRPAYUA_AVERA_USE_FROZEN_AVR' EXPORTING pernr = pernr-pernr sw_prot = sw_prot currency = calc_currency TABLES i51av_a = i51av_a i51av_p = i51av_p av_it = av_it average = average wpbp = wpbp iptext = ptext ab = ab it = it uaav = uaav rgdir = rgdir tbuff = tbuff buffer_dir = buffer_dir .
CALL FUNCTION 'HRPY_AVERA_GET_ACC_PERIODS' EXPORTING pernr = pernr-pernr molga = calcmolga aper = aper repid = sy-cprog IMPORTING acc_begda = acc_begda acc_endda = acc_endda TABLES iwpbp = wpbp i51av_a = i51av_a i51av_p = i51av_p av_it = av_it ab = ab v0 = v0 avrules_quotas = avrules_quotas iwagetypes = iwagetypes i2006 = i2006 EXCEPTIONS quota_not_found_in_2006 = 1.
HRPY_AVERA_AVERAGE_PERIOD CALL FUNCTION 'HRPY_AVERA_AVERAGE_PERIOD' EXPORTING aper = aper molga = calcmolga employee_number = pernr-pernr *ACC_BRL9CK056265 accrual_begda = acc_begda accrual_endda = acc_endda *ACC_BRL9CK056265 IMPORTING max_week = max_week max_month = max_month max_roll_month = max_roll_month with_current_period = with_current_period av_endda_week = av_endda_week av_endda_month = av_endda_month av_endda_roll_month = av_endda_roll_month warning = warning TABLES i51av_a = i51av_a i51av_a_week = i51av_a_week i51av_a_month = i51av_a_month i51av_a_roll_month = i51av_a_roll_month *ACC_BRL9CK056265 i51av_a_accrual_period = i51av_a_accrual_period *ACC_BRL9CK056265 av_rgdir = av_rgdir rgdir = rgdir results = results tbuff = tbuff buffer_dir = buffer_dir EXCEPTIONS wrong_paytype = 1 not_end_of_period = 2 technical_error = 3 OTHERS = 4.
HR_CONVERT_CURRENCY_RESULT CALL FUNCTION 'HR_CONVERT_CURRENCY_RESULT' EXPORTING country_grouping = calcmolga conversion_date = aper-endda foreign_currency = results-inter-versc-waers local_currency = calc_currency pernr = pernr-pernr seqnr = results-evp-seqnr TABLES result_table = results-inter-rt cumulated_result_table = results-inter-crt subsequent_time_ticket_table = results-inter-ls arrears_table = results-inter-arrrs deduction_table = results-inter-ddntk average_table = results-inter-average CHANGING p_buffer_t512w = buffer_t512w EXCEPTIONS invalid_wagetype = 1 error_conversion = 2 OTHERS = 3.
CD_READ_PREVIOUS CALL FUNCTION 'CD_READ_PREVIOUS' EXPORTING in_record = new_rgdir * EXACT = ' ' * LAST = ' ' * ALL = ' ' * IGNORE_ABKRS = ' ' TABLES rgdir = new_rgdir out_rgdir = delete_rgdir EXCEPTIONS no_record_found = 1 OTHERS = 2 .
HRPY_AVERA_LOOP_AT_WEEK CALL FUNCTION 'HRPY_AVERA_LOOP_AT_WEEK' EXPORTING max_weeks = max_week av_endda_week = av_endda_week with_current_period = with_current_period aper = aper employee_number = pernr-pernr TABLES i51av_a_week = i51av_a_week i51av_r = i51av_r i51av_roc = i51av_roc i51av_b = i51av_b i51av_c = i51av_c rgdir = av_rgdir results = results cumulation = cumulation result_rel_payr_all = result_rel_payr result_rel_period = result_rel_period datumsangabe = datumsangabe p0000 = p0000 p0001 = p0001.
HRPY_UA_AVERA_LOOP_AT_MONTH CALL FUNCTION 'HRPY_UA_AVERA_LOOP_AT_MONTH' EXPORTING max_month = max_month av_endda_month = av_endda_month with_current_period = with_current_period aper = aper employee_number = pernr-pernr TABLES i51av_a_month = i51av_a_month i51av_r = i51av_r i51av_roc = i51av_roc i51av_b = i51av_b i51av_c = i51av_c rgdir = av_rgdir results = results cumulation = cumulation result_rel_payr_all = result_rel_payr result_rel_period = result_rel_period datumsangabe = datumsangabe p0000 = p0000 p0001 = p0001.
HRPY_AVERA_LOOP_AT_MONTH CALL FUNCTION 'HRPY_AVERA_LOOP_AT_MONTH' EXPORTING max_month = max_month av_endda_month = av_endda_month with_current_period = with_current_period aper = aper employee_number = pernr-pernr TABLES i51av_a_month = i51av_a_month i51av_r = i51av_r i51av_roc = i51av_roc i51av_b = i51av_b i51av_c = i51av_c rgdir = av_rgdir results = results cumulation = cumulation result_rel_payr_all = result_rel_payr result_rel_period = result_rel_period datumsangabe = datumsangabe p0000 = p0000 p0001 = p0001.
HRPY_AVERA_LOOP_AT_ROLL_MONTH CALL FUNCTION 'HRPY_AVERA_LOOP_AT_ROLL_MONTH' EXPORTING max_roll_month = max_roll_month av_endda_roll_month = av_endda_roll_month with_current_period = with_current_period aper = aper employee_number = pernr-pernr TABLES i51av_a_roll_month = i51av_a_roll_month i51av_r = i51av_r i51av_roc = i51av_roc i51av_b = i51av_b i51av_c = i51av_c rgdir = av_rgdir results = results cumulation = cumulation result_rel_payr_all = result_rel_payr result_rel_period = result_rel_period datumsangabe = datumsangabe p0000 = p0000 p0001 = p0001.
HRPY_AVERA_COMPARE_WGTYP CALL FUNCTION 'HRPY_AVERA_COMPARE_WGTYP' TABLES i51av_a = i51av_a i51av_p = i51av_p av_it = av_it it = it.
CD_READ_DATE_RANGE_ACTUAL_NV CALL FUNCTION 'CD_READ_DATE_RANGE_ACTUAL_NV' EXPORTING begda = begrt endda = endrt TABLES rgdir_in = rgdir rgdir_out = al_rgdir.
HRPY_AVERA_KEEP_FROZEN_AVERAGE CALL FUNCTION 'HRPY_AVERA_KEEP_FROZEN_AVERAGE' EXPORTING aper = aper TABLES i51av_a = save_i51av_a i51av_p = i51av_p av_it = it average = average ab = ab.
HR_PL_D_UA_UARF CALL FUNCTION 'HR_PL_D_UA_UARF' EXPORTING imp_intca = calcintca * IMP_MARKTAB = space imp_currency = calc_currency imp_table =
* IMP_LOOK = space imp_detail = 'X' imp_process = 'X' imp_level = '1' * IMP_MODIF = * IMP_BEGDA = * IMP_ENDDA = '99991231' * IMP_PSEARCH = * IMP_OFFSET = 1 TABLES imp_ptext = ptext * IMP_HITLIST = .
HR_PL_D_UA_UARF CALL FUNCTION 'HR_PL_D_UA_UARF' EXPORTING imp_intca = calcintca * IMP_MARKTAB = space imp_currency = calc_currency imp_table =
* IMP_LOOK = space imp_detail = 'X' imp_process = 'X' imp_level = '1' * IMP_MODIF = * IMP_BEGDA = * IMP_ENDDA = '99991231' * IMP_PSEARCH = * IMP_OFFSET = 1 TABLES imp_ptext = ptext * IMP_HITLIST = .
ROUND CALL FUNCTION 'ROUND' EXPORTING decimals = 2 input = orig_amt sign = '-' IMPORTING output = round_amt EXCEPTIONS input_invalid = 1 overflow = 2 type_invalid = 3 OTHERS = 4.
ROUND CALL FUNCTION 'ROUND' EXPORTING decimals = 2 input = orig_amt sign = '*' IMPORTING output = round_amt EXCEPTIONS input_invalid = 1 overflow = 2 type_invalid = 3 OTHERS = 4.
ROUND CALL FUNCTION 'ROUND' EXPORTING decimals = 2 input = orig_amt sign = '+' IMPORTING output = round_amt EXCEPTIONS input_invalid = 1 overflow = 2 type_invalid = 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 PCMASUA1 or its description.