SAP Reports / Programs
RPUADSPT1PBS SAP ABAP Report - ADSE: Automatic Reimbursement of Pending Records
RPUADSPT1PBS is a standard Executable ABAP Report 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 RPUADSPT1PBS 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 RPUADSPT1PBS. "Basic submit
SUBMIT RPUADSPT1PBS AND RETURN. "Return to original report after report execution complete
SUBMIT RPUADSPT1PBS VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: ADSE: Automatic Reimbursement of Pending Records
Text Symbol: 001 = Change entries and save
Text Symbol: 002 = ADSE: Evaluation of Pending Reimbursements
Text Symbol: 003 = Entries to be changed
Text Symbol: 004 = Amount previously reimbursed
Text Symbol: 005 = New amount to be reimbursed
Text Symbol: 006 = NOTE: The listed entries will be changed.
Text Symbol: 008 = Do you really want to change the entries listed?
Text Symbol: 009 = Yes
Text Symbol: 010 = No
INCLUDES used within this REPORT RPUADSPT1PBS
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:
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ps_p0896-pernr infty = '0896' begda = lv_beg_receipt_date endda = lv_end_receipt_date TABLES infty_tab = lt_p0896 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
POPUP_TO_CONFIRM CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING titlebar = text-002 "Popup title text_question = text-008 "Message text_button_1 = text-009 "Yes text_button_2 = text-010 "No display_cancel_button = 'X' "Cancel IMPORTING answer = lv_answer EXCEPTIONS OTHERS = 1.
HR_INFOTYPE_OPERATION CALL FUNCTION 'HR_INFOTYPE_OPERATION' "#EC * EXPORTING infty = '0896' number = ls_p0896-pernr subtype = ls_p0896-subty objectid = ls_p0896-objps lockindicator = ls_p0896-sprps validityend = ls_p0896-endda validitybegin = ls_p0896-begda recordnumber = ls_p0896-seqnr record = ls_p0896 operation = 'MOD' IMPORTING return = ls_return key = ls_key EXCEPTIONS OTHERS = 1.
HR_PT_ADD_MONTH_TO_DATE CALL FUNCTION 'HR_PT_ADD_MONTH_TO_DATE' EXPORTING dmm_datin = ps_p0896-recdt dmm_count = '12' dmm_oper = '-' dmm_pos = 'BEG' IMPORTING dmm_daout = lv_aux_receipt_date EXCEPTIONS unknown = 1 OTHERS = 2.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ps_p0896-pernr infty = '0896' begda = lv_aux_receipt_date endda = ps_p0896-recdt TABLES infty_tab = lt_0896 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
HR_PT_ADD_MONTH_TO_DATE CALL FUNCTION 'HR_PT_ADD_MONTH_TO_DATE' EXPORTING dmm_datin = cv_start_period dmm_count = '12' dmm_oper = '+' dmm_pos = 'BEG' IMPORTING dmm_daout = cv_end_period EXCEPTIONS unknown = 1 OTHERS = 2.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = pv_pernr infty = '0001' begda = pv_period endda = pv_period TABLES infty_tab = lt_p0001 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
CU_READ_RGDIR CALL FUNCTION 'CU_READ_RGDIR' EXPORTING persnr = pv_pernr TABLES in_rgdir = lt_rgdir EXCEPTIONS no_record_found = 1 OTHERS = 2.
HR_CHECK_AUTHORITY_INFTY CALL FUNCTION 'HR_CHECK_AUTHORITY_INFTY' EXPORTING pernr = pv_pernr infty = '0896' subty = pv_subty begda = sy-datum level = 'R' EXCEPTIONS no_authorization = 1 internal_error = 2 OTHERS = 3.
HR_CHECK_AUTHORITY_INFTY CALL FUNCTION 'HR_CHECK_AUTHORITY_INFTY' EXPORTING pernr = pv_pernr infty = '0896' subty = pv_subty begda = sy-datum level = 'W' EXCEPTIONS no_authorization = 1 internal_error = 2 OTHERS = 3.
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 RPUADSPT1PBS or its description.
RPUADSPT1PBS - ADSE: Automatic Reimbursement of Pending Records RPUADSPT1PBS - ADSE: Automatic Reimbursement of Pending Records RPUADSPT0PBS - Upload of ADSE Health Treatment Data RPUADSPT0PBS - Upload of ADSE Health Treatment Data RPUADRN0 - Migration of T536A -> T536C RPUADRN0 - Migration of T536A -> T536C