RPUARBX1 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 RPUARBX1 into the relevant SAP transactions such as SE38 or SE80
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.
Title: Include for RPUARCB0 Forms for Archiving (Not Technical Archiving)
No INCLUDES are used within this REPORT code!
No SAP DATABASE tables are accessed within this REPORT code!
RP_ARCHIVE_CHECK_CALC_PERNR CALL FUNCTION 'RP_ARCHIVE_CHECK_CALC_PERNR' EXPORTING i_pernr = intab_pernr-pernr itab_t51b1 = itab_t51b1 itab_t51b2 = itab_t51b2 prdat = p_prdat TABLES itab_p0003 = p0003 EXCEPTIONS rrdat_error = 1 OTHERS = 2.
RP_ARCHIVE_CHANGE_CD_CA CALL FUNCTION 'RP_ARCHIVE_CHANGE_CD_CA' EXPORTING pernr_arc = intab_pernr-pernr molga = itab_t51b1-calc_molga archive_calc = lv_archive_calc arc_group = ar_group test = 'X' EXCEPTIONS inconsistent_cluster = 1. "only this possible when test ='X'
HR_ARCH_B2_CHECK_PERNR CALL FUNCTION 'HR_ARCH_B2_CHECK_PERNR' EXPORTING pernr_arc = intab_pernr-pernr test_prtev = p_prtev * I_T51B1 = * I_T51B2 = TABLES itab_p0003 = p0003 EXCEPTIONS recalc_error_from_0003 = 1 recalc_error_from_b1 = 2 error_infotype_0007 = 3 import_b1_error = 4 wrong_b2_version = 5 error_infotype_0000 = 6 "XIRL9CK008477 OTHERS = 7.
TRAVEL_EXISTS CALL FUNCTION 'TRAVEL_EXISTS' "WKUK019493 EXCEPTIONS "WKUK019493 travel_not_existing = 1 "WKUK019493 OTHERS = 2. "WKUK019493
RP_ARCHIVE_CHECK_TRAVEL_PERNR CALL FUNCTION 'RP_ARCHIVE_CHECK_TRAVEL_PERNR' "#EC EXISTS EXPORTING "#EC EXISTS i_pernr = intab_pernr-pernr "#EC EXISTS itab_t51b2 = itab_t51b2 "#EC EXISTS molga = molga_for_travel "XULAHRK002512"#EC EXISTS EXCEPTIONS "#EC EXISTS trip_status_error = 1 "#EC EXISTS table_read_error = 2 "#EC EXISTS te_cluster_not_found = 3 "#EC EXISTS te_version_error = 4 "#EC EXISTS OTHERS = 5. "#EC EXISTS
PA_ARCH_WRITE_IT0283 * call function 'PA_ARCH_WRITE_IT0283' * exporting * p_pernr = intab_pernr-pernr * p_endda = sy-datum * p_object = $arc_object * p_status = '3' * exceptions * insert_failed = 1 * delete_failed = 2 * no_record_found = 3 * begda_greater_endda = 4 * others = 5.
RP_SET_PRDAT_PRTEV CALL FUNCTION 'RP_SET_PRDAT_PRTEV' EXPORTING p_pernr = intab_pernr-pernr p_prtev = '00000000' p_prdat = $prdat p_enqueue = ' ' "note1025127 * P_FORCE = 'X' EXCEPTIONS no_pernr = 1 pernr_enqueued = 2 old_prdat_higher = 3 old_prtev_higher = 4 OTHERS = 5.
RP_SET_PRDAT_PRTEV CALL FUNCTION 'RP_SET_PRDAT_PRTEV' EXPORTING p_pernr = intab_pernr-pernr p_prtev = $prtev p_prdat = '00000000' p_enqueue = ' ' "note1025127 * P_FORCE = 'X' EXCEPTIONS no_pernr = 1 pernr_enqueued = 2 old_prdat_higher = 3 old_prtev_higher = 4 OTHERS = 5.
RP_ARCHIVE_CHANGE_CD_CA CALL FUNCTION 'RP_ARCHIVE_CHANGE_CD_CA' EXPORTING pernr_arc = intab_pernr-pernr arc_group = ar_group archive_calc = $ar_date molga = itab_t51b1-calc_molga prdat_old = $prdat_old prtev_old = $prtev_old CHANGING prdat_arc = $prdat_arc prtev_arc = $prtev_arc EXCEPTIONS inconsistent_cluster = 1 error_export_ca = 2 error_export_cd = 3 error_write_it0283 = 4 error_double = 5 OTHERS = 6.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING * TCLAS = 'A' pernr = $pernr infty = '0003' * BEGDA = '18000101' "IT3 has only one record * ENDDA = '99991231' IMPORTING subrc = subrc TABLES infty_tab = p0003 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
HR_ARCH_B2_WRITE_T569B CALL FUNCTION 'HR_ARCH_B2_WRITE_T569B' EXPORTING pernr_arc = intab_pernr-pernr arc_group = ar_group arch_until = $ar_date prdat_old = $prdat_old prtev_old = $prtev_old CHANGING prdat_arc = $prdat_arc prtev_arc = $prtev_arc EXCEPTIONS period_not_found = 1 " IS_DEST_FLAG = $DEST_FLAG error_write_it0283 = 2 OTHERS = 3.
TRAVEL_EXISTS CALL FUNCTION 'TRAVEL_EXISTS' "WKUK019493 EXCEPTIONS "WKUK019493 travel_not_existing = 1 "WKUK019493 OTHERS = 2. "WKUK019493
RP_ARCHIVE_CHANGE_TRAVEL CALL FUNCTION 'RP_ARCHIVE_CHANGE_TRAVEL' "#EC EXISTS EXPORTING "#EC EXISTS pernr_arc = intab_pernr-pernr "#EC EXISTS arc_group = ar_group "#EC EXISTS arc_date = $ar_date "#EC EXISTS molga = $molga_for_travel "XULAHRK002512 "#EC EXISTS prdat_arc = $prdat_arc "#EC EXISTS prtev_arc = $prtev_arc "#EC EXISTS prdat_old = $prdat_old "#EC EXISTS prtev_old = $prtev_old "#EC EXISTS EXCEPTIONS "#EC EXISTS table_read_error = 1 "#EC EXISTS error_write_it0283 = 2 "#EC EXISTS duplicate_key = 3 "#EC EXISTS OTHERS = 4. "#EC EXISTS
PA_ARCH_UPDATE_IT0283 CALL FUNCTION 'PA_ARCH_UPDATE_IT0283' EXPORTING p_pernr = $pernr p_object = $subty * P_DATE = * P_DOCUMENT = * P_OFFSET = p_status = $status * P_RELOAD_TECHNICAL = * P_RELOAD_LOGICAL = EXCEPTIONS no_record_found = 1 update_failed = 2 OTHERS = 3.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING * TCLAS = 'A' pernr = p_pernr infty = '0001' begda = p_begda endda = p_endda * IMPORTING * SUBRC = TABLES infty_tab = p0001 EXCEPTIONS infty_not_found = 0 OTHERS = 0.
RP_ARCHIVE_KEY_FOR_ARCHIVING CALL FUNCTION 'RP_ARCHIVE_KEY_FOR_ARCHIVING' EXPORTING pernr_arc = iv_pernr molga = iv_calc_molga ar_group = ar_group TABLES pcl2_key = l_pcl2_key_tab EXCEPTIONS OTHERS = 0.
HR_ARCH_B2_CONSTRUCT_KEYS * CALL FUNCTION 'HR_ARCH_B2_CONSTRUCT_KEYS' * EXPORTING * pernr_arc = iv_pernr * arc_group = ar_group * TABLES * b2_keytab = l_pcl2_key_tab * EXCEPTIONS * no_archived_clusters = 1 * OTHERS = 2.
Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.
RPUARBX1 - Include for RPUARCB0 Forms for Archiving (Not Technical Archiving) RPUARBX0 - HR Preparations for Archiving RPUARBX0 - HR Preparations for Archiving RPUARAXL - List of Personnel Numbers in an Archiving Group RPUARAXL - List of Personnel Numbers in an Archiving Group RPUARAX1 - Include: Personnel Number/Archiving Group Assignments