SAP Reports / Programs
RPCDPU01 SAP ABAP Report - Delete Payroll Record
RPCDPU01 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for Program RPCDPU01 contains all of the modules for transaction PU01...see full standard documentation available for this report. Also check out the submitted Comments related to this SAP report and the details below to see which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC.
If you would like to execute this report or see the full code listing simply enter RPCDPU01 into the relevant SAP transactions such as SE38 or SE80
Transaction Code(s):
Below is a list of transaction codes which are relevant to this SAP report
PU01 - Delete current payroll result
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 RPCDPU01. "Basic submit
SUBMIT RPCDPU01 AND RETURN. "Return to original report after report execution complete
SUBMIT RPCDPU01 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Delete Payroll Record
Text Symbol: AST = Contract txt
Text Symbol: 205 = This Fills the Payroll Infotypes Again.
Text Symbol: 202 = Correct the error and start the 'Fill Payroll Infotype" Program with the Following Entries:
Text Symbol: 201 = However, Payroll Infotypes Could Not Be Filled Again. Processing Recorded the Following:
Text Symbol: 200 = The Last Payroll Result Was Deleted Successfully
Text Symbol: 112 = Delete payroll result
Text Symbol: 039 = Text
Text Symbol: 038 = Notifications
Text Symbol: 020 = Do you still want to delete?
Text Symbol: 019 = 3 cannot be set
Text Symbol: 018 = Retroacvtive acctg date in IT
Text Symbol: 017 = the productive client
Text Symbol: 016 = status 'exited'. You are in
Text Symbol: 015 = The control record has the
Text Symbol: 014 = has already run
Text Symbol: 013 = Preliminary program for DME
Text Symbol: 012 = Name
Text Symbol: 011 = Careful!
Text Symbol: 010 = current payroll result?
Text Symbol: 009 = Do you really want to delete the
Text Symbol: 008 = Personnel No.
Text Symbol: 007 = productive client
Text Symbol: 006 = You are in the
Text Symbol: 005 = Delete payroll result
Text Symbol: 004 = Do you still want to delete?
Text Symbol: 003 = irretrievably lost
Text Symbol: 002 = result, this data will be
Text Symbol: 001 = If you delete the current payroll
INCLUDES used within this REPORT RPCDPU01
INCLUDE RPCDPU01_NATIO.
INCLUDE RPCDPU01_NATIO_DE. "YMO1845956
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:
TR_SYS_PARAMS CALL FUNCTION 'TR_SYS_PARAMS' IMPORTING system_client_role = client_role.
POPUP_TO_CONFIRM_WITH_MESSAGE CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE' EXPORTING defaultoption = 'N' diagnosetext1 = text-011 diagnosetext2 = text-013 diagnosetext3 = text-014 textline1 = text-009 textline2 = text-010 titel = text-112 IMPORTING answer = answer EXCEPTIONS OTHERS = 0.
POPUP_TO_CONFIRM_WITH_MESSAGE CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE' EXPORTING defaultoption = 'N' diagnosetext1 = text-011 diagnosetext2 = text-006 diagnosetext3 = text-007 textline1 = text-009 textline2 = text-010 titel = text-005 IMPORTING answer = answer EXCEPTIONS OTHERS = 0.
PA03_PCR_READ CALL FUNCTION 'PA03_PCR_READ' EXPORTING f_abkrs = wa_evpu-abkrs * ERROR_NO_ACCOUNTING = 'X' IMPORTING f_state = pcr_state EXCEPTIONS OTHERS = 4.
POPUP_TO_CONFIRM_WITH_MESSAGE CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE' EXPORTING defaultoption = 'N' diagnosetext1 = text-015 diagnosetext2 = text-016 diagnosetext3 = text-017 textline1 = text-009 textline2 = text-010 titel = text-005 IMPORTING answer = answer EXCEPTIONS OTHERS = 0.
POPUP_TO_CONFIRM_WITH_MESSAGE CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE' EXPORTING defaultoption = 'N' diagnosetext1 = text-001 diagnosetext2 = text-002 diagnosetext3 = text-003 textline1 = text-004 titel = text-005 IMPORTING answer = answer EXCEPTIONS OTHERS = 0.
INSERT_T52RIC CALL FUNCTION 'INSERT_T52RIC' EXPORTING imp_pernr = wa_t52ric-pernr imp_infty = wa_t52ric-infty "XMS note 877629 imp_payty = wa_t52ric-payty imp_payid = wa_t52ric-payid imp_begda = wa_t52ric-begda EXCEPTIONS insert_error = 1 OTHERS = 2.
CD_PAYROLL_UNTIL CALL FUNCTION 'CD_PAYROLL_UNTIL' IMPORTING payroll_until = abgerech TABLES rgdir = pt_rgdiru EXCEPTIONS no_record_found = 0 OTHERS = 0.
CD_PAYROLL_RETRO CALL FUNCTION 'CD_PAYROLL_RETRO' IMPORTING retrocalculation_date = rueckrech TABLES rgdir = pt_rgdiru EXCEPTIONS no_record_found = 0 OTHERS = 0.
CD_EVALUATION_PERIODS CALL FUNCTION 'CD_EVALUATION_PERIODS' EXPORTING bonus_date = wa_rgdiru-bondt inper_modif = wa_rgdiru-iperm inper = wa_rgdiru-inper pay_type = wa_rgdiru-payty pay_ident = wa_rgdiru-payid all_results_of_run = 'X' "XMS MC TABLES rgdir = pt_rgdiru evpdir = pt_evpu EXCEPTIONS no_record_found = 1 OTHERS = 2.
CD_EVALUATION_PERIODS_VOID CALL FUNCTION 'CD_EVALUATION_PERIODS_VOID' EXPORTING bonus_date = wa_rgdiru-bondt inper_modif = wa_rgdiru-iperm inper = wa_rgdiru-inper pay_type = wa_rgdiru-payty pay_ident = wa_rgdiru-payid special_void = 'X' seqnr = wa_rgdiru-seqnr all_results_of_run = 'X' TABLES rgdir = pt_rgdiru evpdir = pt_evpu EXCEPTIONS no_record_found = 1 OTHERS = 2.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING * TCLAS = 'A' pernr = p_pernr infty = '0001' begda = sy-datum "any one, really endda = hr_high_date * BYPASS_BUFFER = ' ' * IMPORTING * SUBRC = TABLES infty_tab = i0001 EXCEPTIONS * INFTY_NOT_FOUND = 1 OTHERS = 2.
REUSE_ALV_GRID_DISPLAY CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING i_callback_program = gv_repid i_callback_pf_status_set = slis_ev_pf_status_set " PF_STATUS_SET i_callback_user_command = slis_ev_user_command " USER_COMMAND i_structure_name = gc_struct is_layout = ls_layout it_fieldcat = lt_fieldcat[] i_save = gc_on it_events = lt_events_top TABLES t_outtab = gt_output_alv EXCEPTIONS program_error = 1 OTHERS = 2.
REUSE_ALV_FIELDCATALOG_MERGE CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE' EXPORTING i_program_name = iv_repname * I_INTERNAL_TABNAME = i_structure_name = gc_struct * I_CLIENT_NEVER_DISPLAY = 'X' * I_INCLNAME = PRONAME CHANGING ct_fieldcat = xt_fieldcat EXCEPTIONS inconsistent_interface = 1 program_error = 2 OTHERS = 3.
REUSE_ALV_EVENTS_GET CALL FUNCTION 'REUSE_ALV_EVENTS_GET' EXPORTING i_list_type = 0 IMPORTING et_events = xt_event_top.
REUSE_ALV_COMMENTARY_WRITE CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE' EXPORTING it_list_commentary = gt_alv_list_top_of_page[].
APPL_LOG_INIT CALL FUNCTION 'APPL_LOG_INIT' EXPORTING object = prot_obj EXCEPTIONS object_not_found = 1 subobject_not_found = 2 OTHERS = 3.
APPL_LOG_WRITE_HEADER CALL FUNCTION 'APPL_LOG_WRITE_HEADER' EXPORTING header = prot_head IMPORTING update_or_insert = u_or_i EXCEPTIONS object_not_found = 1 subobject_not_found = 2 OTHERS = 3.
CALL FUNCTION 'APPL_LOG_WRITE_SINGLE_MESSAGE' EXPORTING object = prot_obj MESSAGE = prot_mes EXCEPTIONS object_not_found = 1 subobject_not_found = 2 OTHERS = 3.
APPL_LOG_WRITE_DB CALL FUNCTION 'APPL_LOG_WRITE_DB' EXPORTING object = prot_obj TABLES object_with_lognumber = prot_nr EXCEPTIONS object_not_found = 1 subobject_not_found = 2 internal_error = 3 OTHERS = 4.
REBUILD_PAYROLL_DIRECTORY CALL FUNCTION 'REBUILD_PAYROLL_DIRECTORY' EXPORTING employee_number = p_pernr country_grouping = t500l-molga payroll_cluster = pcl2relid save_new_directory = rgdir_sichern TABLES new_directory = pt_rgdiru EXCEPTIONS country_grouping_incorrect = 1 country_grouping_initial = 2 no_authority_for_cluster = 3 error_loading_function_pool = 4 error_generating_function_pool = 5 cant_load_payroll_results = 6 no_payroll_results_exist = 7 cant_read_payroll_result = 8 wrong_payroll_country_group = 9 cant_reorganize_directory = 10 duplicate_records = 11 cant_update_new_directory = 12 employee_number_initial = 13 OTHERS = 14.
HR_EVAL_EVP_CHECK CALL FUNCTION 'HR_EVAL_EVP_CHECK' EXPORTING type = 'PP' persnum = p_pernr seqno = wa_evpu-seqnr srtza = wa_evpu-srtza IMPORTING evaluated = p_evaluated runid = p_runid EXCEPTIONS OTHERS = 0.
HR_EVAL_EVP_CHECK CALL FUNCTION 'HR_EVAL_EVP_CHECK' EXPORTING type = 'PM' persnum = p_pernr seqno = wa_evpu-seqnr srtza = wa_evpu-srtza IMPORTING evaluated = p_evaluated runid = p_runid EXCEPTIONS OTHERS = 0.
HR_HEADER_GET CALL FUNCTION 'HR_HEADER_GET' EXPORTING dhdid = '00' * BEGDA = SY-DATUM * TCLAS = 'A' molga = t500l-molga * P0001 = pernr = rp50g-pernr IMPORTING prog = header_prog dnum = header_dynnr EXCEPTIONS header_deactivated = 1 header_unknown = 2 header_generate_deactivated = 3 header_generate_failed = 4 internal_error = 5 OTHERS = 6.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING "TCLAS = 'A' pernr = p_pernr infty = '0003' begda = sy-datum "there is only one record endda = hr_high_date BYPASS_BUFFER = 'X' "note 1650864 "IMPORTING "SUBRC = TABLES infty_tab = i0003 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
HR_READ_SUBTYPE CALL FUNCTION 'HR_READ_SUBTYPE' EXPORTING "TCLAS = 'A' pernr = p_pernr infty = '0001' "SUBTY = '*' sprps = space "only unlocked records "BEGDA = '18000101' "ENDDA = '99991231' "BYPASS_BUFFER = ' ' no_auth_check = 'X' * IMPORTING "MISSING_AUTH = TABLES infty_tab = i0001.
HR_CHECK_AUTHORITY_INFTY CALL FUNCTION 'HR_CHECK_AUTHORITY_INFTY' EXPORTING tclas = 'A' pernr = p_pernr infty = '0008' subty = '0000' begda = sy-datum endda = sy-datum level = 'W' TABLES i0001 = i0001 EXCEPTIONS no_authorization = 1 internal_error = 2 OTHERS = 3.
RP_SET_RECALCULATION CALL FUNCTION 'RP_SET_RECALCULATION' EXPORTING p_pernr = p_person p_rrdate = l_retro_date p_enqueue = ' ' "pernr is already enqueued p_simulation = 'X' "update is done below CHANGING p_p0003 = l_p0003 EXCEPTIONS no_pernr = 1 no_workplace = 2 pernr_enqueued = 3 rrdate_newer = 4 rrdat_before_twm = 5 rrdat_before_pers_twm = 6 pcr_error = 7 internal_error = 8 pcr_locked = 9 OTHERS = 10.
POPUP_TO_CONFIRM_WITH_MESSAGE CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE' EXPORTING defaultoption = 'N' diagnosetext1 = text-018 diagnosetext2 = text-019 textline1 = text-020 titel = text-005 IMPORTING answer = answer EXCEPTIONS OTHERS = 0.
RP_GET_REMITTANCE_VOID CALL FUNCTION 'RP_GET_REMITTANCE_VOID' EXPORTING ppernr = p_pernr seqno = p_evpu-seqnr IMPORTING o_p3pr_status = l_p3pr_status EXCEPTIONS OTHERS = 0.
HRNA_EVAL_RUN_CHECK CALL FUNCTION 'HRNA_EVAL_RUN_CHECK' EXPORTING pernr = p_pernr seqno = p_evpu-seqnr IMPORTING evaluated = p_evaluated runid = p_runid sagrp = p_sagrp appl = p_appl TABLES rgdir = lt_rgdiru.
HR_GET_ERROR_LIST * CALL FUNCTION 'HR_GET_ERROR_LIST' * EXPORTING * use_abap_memory = 'X' * TABLES * error = error_int * EXCEPTIONS * no_errors = 1 * OTHERS = 2.
HR_DISPLAY_ERROR_LIST CALL FUNCTION 'HR_DISPLAY_ERROR_LIST' EXPORTING no_popup = 'X' no_print = ' ' linesize = 132 listheader = listheader colheader = colheader TABLES error = error_int_tot EXCEPTIONS OTHERS = 0.
BAL_LOG_CREATE CALL FUNCTION 'BAL_LOG_CREATE' EXPORTING i_s_log = ls_log IMPORTING e_log_handle = gv_log_handle EXCEPTIONS log_header_inconsistent = 1 OTHERS = 2.
BAL_LOG_MSG_ADD_FREE_TEXT CALL FUNCTION 'BAL_LOG_MSG_ADD_FREE_TEXT' EXPORTING * I_LOG_HANDLE = i_msgty = ls_msg-msgty * I_PROBCLASS = '4' i_text = iv_text i_s_context = ls_msg-context * I_S_PARAMS = * IMPORTING * E_S_MSG_HANDLE = * E_MSG_WAS_LOGGED = * E_MSG_WAS_DISPLAYED = EXCEPTIONS OTHERS = 0.
BAL_DSP_PROFILE_NO_TREE_GET CALL FUNCTION 'BAL_DSP_PROFILE_NO_TREE_GET' IMPORTING e_s_display_profile = ls_display_profile EXCEPTIONS OTHERS = 1.
BAL_DSP_LOG_DISPLAY CALL FUNCTION 'BAL_DSP_LOG_DISPLAY' EXPORTING i_s_display_profile = ls_display_profile * I_T_LOG_HANDLE = * I_T_MSG_HANDLE = * I_S_LOG_FILTER = * I_S_MSG_FILTER = * I_T_LOG_CONTEXT_FILTER = * I_T_MSG_CONTEXT_FILTER = * I_AMODAL = ' ' * IMPORTING * E_S_EXIT_COMMAND = EXCEPTIONS profile_inconsistent = 1 internal_error = 2 no_data_available = 3 no_authority = 4 OTHERS = 5 .
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = $pernr infty = '0001' begda = sy-datum "any one, really endda = hr_high_date TABLES infty_tab = lt_0001 EXCEPTIONS OTHERS = 2.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING "TCLAS = 'A' pernr = wa_all_pernru-pernr infty = '0003' begda = sy-datum "there is only one record endda = hr_high_date "BYPASS_BUFFER = ' ' "IMPORTING "SUBRC = TABLES infty_tab = i0003 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING "TCLAS = 'A' pernr = wa_all_pernru-pernr infty = '0003' begda = sy-datum "there is only one record endda = hr_high_date BYPASS_BUFFER = 'X' "IMPORTING "SUBRC = TABLES infty_tab = old_i0003 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
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 RPCDPU01 or its description.