SAP Reports / Programs

RPCPDRA0 SAP ABAP Report - Declaration of Third-Party Debtor Sec. 301 OA







RPCPDRA0 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for The report RPCPDRA0 creates a debt declaration from a third party according to par 301 of the Order of Attachment...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 RPCPDRA0 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

PC00_M03_CPDRA0 - Third-Party Debtor Decl. Sec. 301 AO


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 RPCPDRA0. "Basic submit
SUBMIT RPCPDRA0 AND RETURN. "Return to original report after report execution complete
SUBMIT RPCPDRA0 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


Text pool values


Selection Text: PX_LFORM = Form Name
Selection Text: PX_LFVAR = Form Variant
Selection Text: P_DATUM = Date of issue
Selection Text: P_DEINK = Wage Type for Average Income
Selection Text: P_PFART = Garnishment type
Selection Text: P_PFNUM = Garnishment number
Selection Text: P_SACHB = Issuer
Selection Text: P_TELE = Telephone number
Title: Declaration of Third-Party Debtor Sec. 301 OA
Text Symbol: E00 = Enter only one personnel number
Text Symbol: E01 = A declaration made by a third-party debtor
Text Symbol: E02 = is not issued for costs for meals.
Text Symbol: L01 = 3rdParty Debtor Declar.
Text Symbol: L06 = Display Forms
Text Symbol: S01 = Garnishment
Text Symbol: S02 = Issuer
Text Symbol: S03 = Print settings
Text Symbol: S04 = Garnishment Type/Number


INCLUDES used within this REPORT RPCPDRA0

INCLUDE RPCPDRA1RA. "DATENINCLUDE "WJOELNK001109
INCLUDE RPCPEH00. "ERROR HANDLER
INCLUDE RPCPP2A0. "ZUGRIFFE AUF CLUSTER PCL2
INCLUDE RPCPSSA0. "SAPSCRIPT FORMPOOL APF


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_REFRESH_ERROR_LIST CALL FUNCTION 'HR_REFRESH_ERROR_LIST'.

HR_GET_ERROR_LIST CALL FUNCTION 'HR_GET_ERROR_LIST' "WEFPH9K011306 EXCEPTIONS " no_errors = 1 " OTHERS = 2. "

HR_DISPLAY_ERROR_LIST CALL FUNCTION 'HR_DISPLAY_ERROR_LIST' " EXPORTING " no_popup = 'X' "Ausgabe mit WRITE " no_print = ' ' " no_img = ' ' " no_msgno = ' ' " linesize = sy-linsz " listheader = ' ' " colheader = ' ' " hidemsg = 'X' "mit HIDE-Option für " * TABLES "Langtexte bei Doppelklick " * error = " EXCEPTIONS " invalid_linesize = 1 " OTHERS = 2. "

HR_DISPLAY_ERROR_LONGTEXT CALL FUNCTION 'HR_DISPLAY_ERROR_LONGTEXT'.

GET_PRINT_PARAMETERS CALL FUNCTION 'GET_PRINT_PARAMETERS' EXPORTING report = repid no_dialog = true IMPORTING out_parameters = pri_params EXCEPTIONS archive_info_not_found = 1 invalid_print_params = 2 invalid_archive_params = 3 OTHERS = 4.

RP_GET_CURRENCY CALL FUNCTION 'RP_GET_CURRENCY' EXPORTING molga = '03' begda = pn-begda "#EC DOM_EQUAL IMPORTING waers = calc_waerg EXCEPTIONS molga_not_in_t001p = 1 no_entry_found_in_table_t001 = 2 no_entry_found_in_table_t500p = 3 no_entry_found_in_table_t500c = 4 OTHERS = 5.

ADDRESS_INTO_PRINTFORM CALL FUNCTION 'ADDRESS_INTO_PRINTFORM' EXPORTING adrswa_in = schuldner-adr IMPORTING adrswa_out = schuldner-adr.

HR_AT_GET_ORG_DATA CALL FUNCTION 'HR_AT_GET_ORG_DATA' EXPORTING org_in = org_in IMPORTING addresse = absender-adr EXCEPTIONS t5a0p_data_not_found = 1 t5a0a_data_not_found = 2 t5a0p_lohnb_not_specified = 3 t5a0a_ankey_not_specified = 4 address_not_found_in_t536c = 5 OTHERS = 6.

HR_FEATURE_BACKFIELD CALL FUNCTION 'HR_FEATURE_BACKFIELD' EXPORTING feature = merkmal struc_content = struc * kind_of_error = IMPORTING back = vargu CHANGING status = rc EXCEPTIONS dummy = 1 error_operation = 2 no_backvalue = 3 feature_not_generated = 4 invalid_sign_in_funid = 5 field_in_report_tab_in_pe03 = 6 OTHERS = 7.

HR_GET_ADDRESS CALL FUNCTION 'HR_GET_ADDRESS' EXPORTING ankey = p0131-glkey anart = padr0_anart_cred molga = '03' IMPORTING address = glaubiger-adr EXCEPTIONS not_found = 1 OTHERS = 2.

ADDRESS_INTO_PRINTFORM CALL FUNCTION 'ADDRESS_INTO_PRINTFORM' EXPORTING adrswa_in = glaubiger-adr IMPORTING adrswa_out = glaubiger-adr.

ADDRESS_INTO_PRINTFORM CALL FUNCTION 'ADDRESS_INTO_PRINTFORM' EXPORTING adrswa_in = korr-adr IMPORTING adrswa_out = korr-adr.

CONVERT_TO_LOCAL_CURRENCY CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY' EXPORTING date = conv_date foreign_amount = betrag foreign_currency = alte_waerg local_currency = neue_waerg IMPORTING local_amount = betrag EXCEPTIONS no_rate_found = 1 overflow = 2.

RP_EDIT_NAME * CALL FUNCTION 'RP_EDIT_NAME' * EXPORTING * format = $$format * langu = sy-langu * molga = '03' * pp0002 = i0002 * IMPORTING * edit_name = sname-ename * retcode = rc.

HR_GET_ADDRESS CALL FUNCTION 'HR_GET_ADDRESS' EXPORTING ankey = p0131-gbkey anart = padr0_anart_court molga = '03' IMPORTING address = gericht-adr EXCEPTIONS not_found = 1 OTHERS = 2.

HR_GET_ADDRESS CALL FUNCTION 'HR_GET_ADDRESS' " EXPORTING " ankey = p0131-gbkey " anart = padr0_anart_court " molga = '03' " IMPORTING " address = gericht-adr " EXCEPTIONS " not_found = 1 " OTHERS = 2. "

HR_GET_ADDRESS CALL FUNCTION 'HR_GET_ADDRESS' EXPORTING ankey = p0131-glkey anart = padr0_anart_cred molga = '03' IMPORTING address = gl_adr EXCEPTIONS not_found = 1 OTHERS = 2.

HR_GET_ADDRESS CALL FUNCTION 'HR_GET_ADDRESS' EXPORTING ankey = p0131-kokey anart = padr0_anart_corr molga = '03' IMPORTING address = korr-adr EXCEPTIONS not_found = 1 OTHERS = 2.

RP_GET_CURRENCY





CALL FUNCTION 'RP_GET_CURRENCY' EXPORTING molga = '03' begda = datum "#EC DOM_EQUAL IMPORTING waers = waers EXCEPTIONS molga_not_in_t001p = 1 no_entry_found_in_table_t001 = 2 no_entry_found_in_table_t500p = 3 no_entry_found_in_table_t500c = 4 OTHERS = 5.

HR_GET_ERROR_LIST CALL FUNCTION 'HR_GET_ERROR_LIST' TABLES error = l_hrerror EXCEPTIONS no_errors = 1 OTHERS = 2.

H99B_OPEN_LFORM_JOB CALL FUNCTION 'H99B_OPEN_LFORM_JOB' EXPORTING i_molga = rpmsela0-molga i_fogroup = rpmsela0-fogroup i_folname = rpmsela0-folname i_fovariant = rpmsela0-fovariant OPTIONS = l_itcpo EXCEPTIONS OTHERS = 99.

H99B_OUTPUT_LFORM CALL FUNCTION 'H99B_OUTPUT_LFORM' EXPORTING i_molga = rpmsela0-molga i_fogroup = rpmsela0-fogroup i_folname = rpmsela0-folname i_fovariant = rpmsela0-fovariant i_data_struc = l_if_form EXCEPTIONS OTHERS = 99.

H99B_OUTPUT_LFORM CALL FUNCTION 'H99B_OUTPUT_LFORM' EXPORTING i_molga = rpmsela0-molga i_fogroup = rpmsela0-fogroup i_folname = rpmsela0-folname i_fovariant = rpmsela0-fovariant i_data_struc = l_if_form EXCEPTIONS OTHERS = 99.

HR_PAL_FORMS_ROW_ADD CALL FUNCTION 'HR_PAL_FORMS_ROW_ADD' EXPORTING * i_node_key = i_name = l_pal_name i_form_type = l_form_type i_text = l_foltxt i_rqid = l_rqid EXCEPTIONS OTHERS = 99.



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 RPCPDRA0 or its description.