SAP Reports / Programs | Payroll | Germany | Statements(PY-DE-RP-ST) SAP PY

Home SAP Development ABAP Coding SAP Fiori SAP Training SAP Tables SAP Objects...

RPCBWBD9 SAP ABAP INCLUDE - documentation and ABAP source code

SAP T-Codes / Example ABAP code
ABAP OO / SAP Function Modules
ABAP reports / SAP Error Messages
SAP Tables / SAP Video Training

RPCBWBD9 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 RPCBWBD9 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 RPCBWBD9. "Basic submit
SUBMIT RPCBWBD9 AND RETURN. "Return to original report after report execution complete
SUBMIT RPCBWBD9 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 RPCBWBD9

INCLUDE MPZDAT02.

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:

ADDRESS_INTO_PRINTFORM CALL FUNCTION 'ADDRESS_INTO_PRINTFORM' EXPORTING * adrswa_in = address_1 = l_it_kadrs1 "XIJL9CK037860 * ADDRESS_2 = * ADDRESS_3 = address_type = '1' * ADDRESS_NUMBER = ' ' * ADDRESS_HANDLE = ' ' * PERSON_NUMBER = ' ' * PERSON_HANDLE = ' ' * sender_country = '015' "XIJ-N#0686288 sender_country = hrform_sender-inlnd "! * RECEIVER_LANGUAGE = ' ' number_of_lines = 5 * STREET_HAS_PRIORITY = ' ' * LINE_PRIORITY = ' ' * COUNTRY_NAME_IN_RECEIVER_LANGU = ' ' * LANGUAGE_FOR_COUNTRY_NAME = ' ' * NO_UPPER_CASE_FOR_CITY = ' ' IMPORTING * adrswa_out = address_printform = l_it_kadrs "XIJL9CK037860 * address_short_form = * address_short_form_s = * ADDRESS_DATA_CARRIER = * ADDRESS_DATA_CARRIER_0 = * NUMBER_OF_USED_LINES = * NAME_IS_EMPTY = * ADDRESS_NOT_FOUND = * ADDRESS_PRINTFORM_TABLE = EXCEPTIONS OTHERS = 1.

HR_PERSONAL_WORK_SCHEDULE
  CALL FUNCTION 'HR_PERSONAL_WORK_SCHEDULE'
    EXPORTING
      pernr         = bwsel-pernr
      begda         = p_date
      endda         = p_date
      kug           = space
      working_hours = 'X'
    TABLES
      i0000         = p0000
      i0001         = p0001
      i0002         = p0002
      i0007         = p0007
      i2001         = p2001
      i2002         = p2002
      i2003         = p2003
      perws         = xpsp
    EXCEPTIONS
      error_occured = 1
      abort_occured = 2
      OTHERS        = 3.

HR_GET_REPORTING_COMPANY CALL FUNCTION 'HR_GET_REPORTING_COMPANY' " EXPORTING " p_molga = g_molga " p_appl = 'BG02' " p_werks = p0001-werks " p_btrtl = p0001-btrtl " p_struc = pme01 " p_date = bwsel-abbeg " IMPORTING " werks_sum = l_werks_bg02 " btrtl_sum = l_btrtl_bg02 " EXCEPTIONS " rep_comp_not_found = 1 " OTHERS = 2. "

HR_GET_REPORTING_COMPANY_DATA CALL FUNCTION 'HR_GET_REPORTING_COMPANY_DATA' " EXPORTING " p_molga = g_molga " p_appl = 'BG02' " p_werks_sum = l_werks_bg02 " p_btrtl_sum = l_btrtl_bg02 " p_date = bwsel-abbeg " p_anart = '/A' " IMPORTING " data = l_bg02_data " EXCEPTIONS " OTHERS = 4. "

DDUT_TEXT_FOR_VALUE CALL FUNCTION 'DDUT_TEXT_FOR_VALUE' " EXPORTING " tabname = 'HRPAYDE_BG02_DATA' " fieldname = 'BRFGN' " value = l_bg02_data-brfgn " IMPORTING " text = l_text " EXCEPTIONS " OTHERS = 4. "

RH_TEXT_GET CALL FUNCTION 'RH_TEXT_GET' EXPORTING tabname = p_tabname record = p_tab langu = sy-langu molga = g_molga TABLES fields = p_fields text_tab = p_text_tab EXCEPTIONS ddic_entry_not_found = 1 incorrect_call = 2 internal_error = 3 missing_text = 4 OTHERS = 5.

HR_PERSONAL_WORK_SCHEDULE CALL FUNCTION 'HR_PERSONAL_WORK_SCHEDULE' EXPORTING pernr = bwsel-pernr begda = l_endda "XIJ-N#0643662 endda = l_endda "XIJ-N#0643662 TABLES i0000 = p0000 i0001 = p0001 i0002 = p0002 i0007 = p0007 i2001 = l_it_2001 "XIJ-N#0822739 i2002 = l_it_2002 "! i2003 = l_it_2003 "XIJ-N#0822739 perws = xpsp EXCEPTIONS error_occured = 1 abort_occured = 2 OTHERS = 3.

HR_PERSONAL_WORK_SCHEDULE CALL FUNCTION 'HR_PERSONAL_WORK_SCHEDULE' EXPORTING pernr = bwsel-pernr begda = l_begda endda = l_endda TABLES i0000 = p0000 i0001 = p0001 i0002 = p0002 i0007 = p0007 i2001 = l_it_2001 "XIJ-N#0822739 i2002 = l_it_2002 "! i2003 = l_it_2003 "XIJ-N#0822739 perws = xpsp EXCEPTIONS error_occured = 1 abort_occured = 2 OTHERS = 3.

HR_PERSONAL_WORK_SCHEDULE CALL FUNCTION 'HR_PERSONAL_WORK_SCHEDULE' EXPORTING pernr = bwsel-pernr begda = l_fday endda = l_fday TABLES perws = xpsp EXCEPTIONS error_occured = 1 abort_occured = 2 OTHERS = 3.

DDUT_TEXT_FOR_VALUE CALL FUNCTION 'DDUT_TEXT_FOR_VALUE' EXPORTING tabname = l_tabname fieldname = l_fieldname * CALLING_PROGRAM = * STRUCNAME = value = * VALUE_IS_EXTERNAL = ' ' IMPORTING text = l_text * NOT_UNIQUE = * VALUE_INTERNAL = * TEXT_FIELDS = * CHANGING * ADDITIONAL_FIELDS = EXCEPTIONS no_ddic_field = 1 illegal_value = 2 OTHERS = 3 .

ADDRESS_INTO_PRINTFORM CALL FUNCTION 'ADDRESS_INTO_PRINTFORM' EXPORTING * ADRSWA_IN = address_1 = l_it_zadrs1 * ADDRESS_2 = * ADDRESS_3 = address_type = '1' * ADDRESS_NUMBER = ' ' * ADDRESS_HANDLE = ' ' * PERSON_NUMBER = ' ' * PERSON_HANDLE = ' ' * sender_country = '015' "XIJ-N#0686288 sender_country = hrform_sender-inlnd "! * RECEIVER_LANGUAGE = ' ' number_of_lines = 5 * STREET_HAS_PRIORITY = ' ' * LINE_PRIORITY = ' ' * COUNTRY_NAME_IN_RECEIVER_LANGU = ' ' * LANGUAGE_FOR_COUNTRY_NAME = ' ' * NO_UPPER_CASE_FOR_CITY = ' ' IMPORTING * ADRSWA_OUT = address_printform = l_it_zadrs * ADDRESS_SHORT_FORM = * ADDRESS_SHORT_FORM_S = * ADDRESS_DATA_CARRIER = * ADDRESS_DATA_CARRIER_0 = * NUMBER_OF_USED_LINES = * NAME_IS_EMPTY = * ADDRESS_NOT_FOUND = * ADDRESS_PRINTFORM_TABLE = .

HR_GET_OFFICIAL_SVKEY CALL FUNCTION 'HR_GET_OFFICIAL_SVKEY' EXPORTING detdt = bwsel-endda svdat = l_psv04 IMPORTING svkey = l_svkey * TABLES * SVKEYTAB = EXCEPTIONS t596f_entry_not_existing = 1 t5d4m_entry_not_existing = 2 kv_key_not_existing = 3 rv_key_not_existing = 4 av_key_not_existing = 5 pv_key_not_existing = 6 OTHERS = 7 .

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING tclas = 'A' pernr = p0521-atzwb infty = '0002' TABLES infty_tab = l_it_0002 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING tclas = 'A' pernr = p0521-atznn infty = '0002' TABLES infty_tab = l_it_0002 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_GET_REPORTING_COMPANY CALL FUNCTION 'HR_GET_REPORTING_COMPANY' EXPORTING p_molga = g_molga p_appl = 'BWA0' p_werks = p0001-werks p_btrtl = p0001-btrtl p_struc = pme01 p_date = bwsel-endda IMPORTING werks_sum = adrs_btr-werks btrtl_sum = adrs_btr-btrtl EXCEPTIONS rep_comp_not_found = 1 OTHERS = 2.

HR_GET_REPORTING_COMPANY CALL FUNCTION 'HR_GET_REPORTING_COMPANY' EXPORTING p_molga = g_molga p_appl = 'BWAT' p_werks = adrs_btr-werks p_btrtl = adrs_btr-btrtl p_struc = pme01 p_date = bwsel-endda IMPORTING werks_sum = adrs_ag-werks btrtl_sum = adrs_ag-btrtl EXCEPTIONS rep_comp_not_found = 1 OTHERS = 2.

HR_GET_REPORTING_COMPANY CALL FUNCTION 'HR_GET_REPORTING_COMPANY' EXPORTING p_molga = g_molga p_appl = 'BWDE' p_werks = p0001-werks p_btrtl = p0001-btrtl p_struc = pme01 p_date = bwsel-endda IMPORTING werks_sum = adrs_ag-werks btrtl_sum = adrs_ag-btrtl EXCEPTIONS rep_comp_not_found = 1 OTHERS = 2.

HR_GET_REPORTING_COMPANY_DATA

CALL FUNCTION 'HR_GET_REPORTING_COMPANY_DATA' EXPORTING p_molga = g_molga p_appl = 'BWAT' p_werks_sum = adrs_ag-werks p_btrtl_sum = adrs_ag-btrtl * P_VAKEY = p_date = bwsel-endda p_anart = '/A' IMPORTING address = hrform_address line_short = l_line_short EXCEPTIONS rep_comp_not_found = 1 address_not_found = 2 sender_not_found = 3 clerk_not_found = 4 version_mismatch = 5 OTHERS = 6 .

HR_GET_REPORTING_COMPANY CALL FUNCTION 'HR_GET_REPORTING_COMPANY' EXPORTING p_molga = g_molga p_appl = l_appl0 p_werks = p_werks p_btrtl = p_btrtl p_struc = pme01 p_date = bwsel-endda IMPORTING werks_sum = l_werks_btr btrtl_sum = l_btrtl_btr EXCEPTIONS rep_comp_not_found = 1 OTHERS = 2.

HR_GET_REPORTING_COMPANY_DATA CALL FUNCTION 'HR_GET_REPORTING_COMPANY_DATA' EXPORTING p_molga = g_molga p_appl = 'BWA0' p_werks_sum = l_werks_btr p_btrtl_sum = l_btrtl_btr p_date = bwsel-endda p_anart = '/A' IMPORTING sender = l_sender data = l_data-ankey line_short = l_line_short "YMTN0875987 EXCEPTIONS rep_comp_not_found = 1 address_not_found = 2 sender_not_found = 3 clerk_not_found = 4 version_mismatch = 5 OTHERS = 6.

HR_GET_ADDRESS CALL FUNCTION 'HR_GET_ADDRESS' EXPORTING ankey = l_data-ankey anart = 'CA' molga = g_molga IMPORTING address = l_adrs EXCEPTIONS not_found = 1 OTHERS = 2.

ADDRESS_INTO_PRINTFORM CALL FUNCTION 'ADDRESS_INTO_PRINTFORM' EXPORTING adrswa_in = l_adrs sender_country = l_sender-inlnd number_of_lines = 9 IMPORTING adrswa_out = l_adrs_print address_short_form_s = l_line_short. "YMTN0875987

HR_GET_REPORTING_COMPANY CALL FUNCTION 'HR_GET_REPORTING_COMPANY' EXPORTING p_molga = g_molga p_appl = l_appl p_werks = l_werks_btr p_btrtl = l_btrtl_btr p_struc = pme01 p_date = bwsel-endda IMPORTING werks_sum = l_werks_ag btrtl_sum = l_btrtl_ag EXCEPTIONS rep_comp_not_found = 1 OTHERS = 2.

HR_GET_REPORTING_COMPANY_DATA CALL FUNCTION 'HR_GET_REPORTING_COMPANY_DATA' EXPORTING p_molga = g_molga p_appl = 'BWAT' p_werks_sum = l_werks_ag p_btrtl_sum = l_btrtl_ag p_date = bwsel-endda p_anart = '/A' IMPORTING sender = l_sender infodata = l_infodata data = rep_comp_atz_ag EXCEPTIONS rep_comp_not_found = 1 address_not_found = 2 sender_not_found = 3 clerk_not_found = 4 version_mismatch = 5 OTHERS = 6.

HR_ENTRY_DATE CALL FUNCTION 'HR_ENTRY_DATE' EXPORTING persnr = bwsel-pernr rclas = g_rclas_bew "XIJ-N#0734809 begda = '18000101' endda = bwsel-endda varky = l_varky "XIJ-N#0734809 IMPORTING entrydate = entry TABLES entry_dates = entry_dates EXCEPTIONS entry_date_not_found = 1 pernr_not_assigned = 2 OTHERS = 3.

HR_GET_VALIDITY_OF_APPLICATION CALL FUNCTION 'HR_GET_VALIDITY_OF_APPLICATION' "YMTN1830441v EXPORTING i_molga = g_molga i_appl = 'SVEG' i_date = bwsel-abbeg IMPORTING e_valid = l_sveg.

HR_LEAVING_DATE CALL FUNCTION 'HR_LEAVING_DATE' EXPORTING persnr = bwsel-pernr rclas = g_rclas_bew "XIJ-N#0734809 * begda = '18000101' "YMTN1639959 * endda = '99991231' " begda = l_begda " endda = l_endda "YMTN1639959 varky = l_varky "XIJ-N#0734809 IMPORTING leavingdate = leave TABLES leaving_dates = leaving_dates EXCEPTIONS leaving_date_not_found = 1 pernr_not_assigned = 2 OTHERS = 3.

COMPUTE_YEARS_BETWEEN_DATES CALL FUNCTION 'COMPUTE_YEARS_BETWEEN_DATES' "! EXPORTING "! first_date = entry "! modify_interval = '+' "! * SECOND_DATE = leave "! second_date = bwsel-bleav "XIJ-N#0396853 IMPORTING "! years_between_dates = uz_jahre "! EXCEPTIONS "! sequence_of_dates_not_valid = 1 "! OTHERS = 2 "! . "!

RP_FILL_WAGE_TYPE_TABLE_EXT CALL FUNCTION 'RP_FILL_WAGE_TYPE_TABLE_EXT' " EXPORTING " appli = 'E' " begda = ll_begda " endda = l_endda " infty = '0008' " objps = ' ' " pernr = bwsel-pernr " subty = '0 ' " TABLES " pp0001 = p0001 " pp0007 = p0007 " pp0008 = p0008 " ppbwla = lt_pbwla " pp0230 = p0230 " EXCEPTIONS " error_at_indirect_evaluation = 1. "

RP_FILL_WAGE_TYPE_TABLE_EXT CALL FUNCTION 'RP_FILL_WAGE_TYPE_TABLE_EXT' EXPORTING appli = 'E' begda = bwsel-abbeg endda = bwsel-abbeg infty = '0008' objps = ' ' pernr = bwsel-pernr subty = '0 ' TABLES pp0001 = p0001 pp0007 = p0007 pp0008 = p0008 ppbwla = lt_pbwla pp0230 = p0230 EXCEPTIONS error_at_indirect_evaluation = 1.

RP_FILL_WAGE_TYPE_TABLE_EXT * CALL FUNCTION 'RP_FILL_WAGE_TYPE_TABLE_EXT' " * EXPORTING " * appli = 'E' " * begda = ll_begda "XIJL9CK001070 " * endda = p_endda " * infty = '0008' " * objps = ' ' " * pernr = bwsel-pernr " * subty = '0 ' " * TABLES " * pp0001 = p0001 " * pp0007 = p0007 " * pp0008 = p0008 " * ppbwla = ppbwla " * pp0230 = p0230 " * EXCEPTIONS " * error_at_indirect_evaluation = 1. "

RP_FILL_WAGE_TYPE_TABLE_EXT CALL FUNCTION 'RP_FILL_WAGE_TYPE_TABLE_EXT' "XIJ-N#0403219 EXPORTING "! appli = 'E' "! begda = p_begda "! endda = p_endda "! infty = '0014' "! objps = ' ' "! pernr = bwsel-pernr "! subty = p_lgart "! TABLES "! pp0001 = p0001 "! pp0007 = p0007 "! pp0008 = p0008 "! pp0014 = p0014 "! ppbwla = ppbwla "! pp0230 = p0230 "! EXCEPTIONS "! error_at_indirect_evaluation = 1. "!

RP_GET_CURRENCY CALL FUNCTION 'RP_GET_CURRENCY' "XIJL9CK039257 EXPORTING "! molga = '01' "! trfar = p0008-trfar "! trfgb = p0008-trfgb "! trfkz = bp0001-trfkz "! begda = l_begda "! * ENDDA = "! IMPORTING "! waers = l_curr_tarif "! EXCEPTIONS OTHERS = 4.

HR_GET_REPORTING_COMPANY CALL FUNCTION 'HR_GET_REPORTING_COMPANY' EXPORTING p_molga = g_molga p_appl = 'BWDE' p_werks = p0001-werks p_btrtl = p0001-btrtl p_struc = pme01 * p_date = bwsel-endda "YMTN1639959 p_date = l_endda "YMTN1639959 IMPORTING werks_sum = helpadrs-werks btrtl_sum = helpadrs-btrtl EXCEPTIONS rep_comp_not_found = 1 OTHERS = 2.

HR_GET_REPORTING_COMPANY_DATA CALL FUNCTION 'HR_GET_REPORTING_COMPANY_DATA' EXPORTING p_molga = g_molga p_appl = g_appli p_werks_sum = helpadrs-werks p_btrtl_sum = helpadrs-btrtl * P_VAKEY = * p_date = bwsel-endda "YMTN1639959 p_date = l_endda "YMTN1639959 p_anart = '/A' IMPORTING sender = hrform_sender * ADDRESS = * INFODATA = data = rep_comp line_short = l_line_short "XIJAL0K070745 EXCEPTIONS rep_comp_not_found = 1 address_not_found = 2 sender_not_found = 3 clerk_not_found = 4 version_mismatch = 5 OTHERS = 6 .

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING tclas = 'A' pernr = bwsel-pernr infty = '0020' begda = '18000101' endda = '99991231' TABLES infty_tab = l_it_p0020 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_DE_PBS_READ_FEATURE_SWOED CALL FUNCTION 'HR_DE_PBS_READ_FEATURE_SWOED' EXPORTING it_p0001 = p0001[] i_molga = g_molga i_date = l_bwseldate "HAMN1016828a IMPORTING e_back = l_trart EXCEPTIONS error_reading_feature = 1 OTHERS = 2.

HR_DE_PBS_SENIORITY_PERIODS CALL FUNCTION 'HR_DE_PBS_SENIORITY_PERIODS' EXPORTING it_p0041 = p0041[] i_pernr = bwsel-pernr i_date = l_bwseldate "HAMN1016828a i_date_indicator = c_beschaeftigungszeit IMPORTING e_duration = l_beschaeftigungszeit EXCEPTIONS no_duration = 1 OTHERS = 2.

HR_DE_PBS_GET_PERIODS
      CALL FUNCTION 'HR_DE_PBS_GET_PERIODS'
        EXPORTING
          it_p0001   = p0001[]
          it_p0008   = p0008[]
          it_p0016   = p0016[]
          i_frart    = '04'           "Kündigungsfrist AG
          i_molga    = g_molga
          i_duration = l_beschaeftigungszeit
          i_date     = l_bwseldate                         "HAMN1016828a
        IMPORTING
          e_kdgfr    = l_kdgag.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING tclas = 'A' pernr = bwsel-pernr infty = '0021' TABLES infty_tab = it_0021 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

RP_FILL_WAGE_TYPE_TABLE_EXT CALL FUNCTION 'RP_FILL_WAGE_TYPE_TABLE_EXT' EXPORTING appli = 'E' begda = p_begda endda = p_endda infty = p_infty objps = ' ' pernr = bwsel-pernr subty = p_lgart TABLES pp0001 = p0001 pp0007 = p0007 pp0008 = p0008 pp0014 = p0014 pp0015 = p0015 ppbwla = ppbwla pp0230 = p0230 EXCEPTIONS error_at_indirect_evaluation = 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 RPCBWBD9 or its description.

RPCBWBD9 - documentation and ABAP source code
RPCBWBD0 - documentation and ABAP source code
RPCBWBA9 - documentation and ABAP source code
RPCBWAZ6 - documentation and ABAP source code
RPCBWAZ3 - documentation and ABAP source code
RPCBWAZ1 - documentation and ABAP source code