RPAR1W00 SAP ABAP Report - PA: Archiving - Write Program for Payroll Results (PA CALC)
RPAR1W00 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for This
If you would like to execute this report or see the full code listing simply enter RPAR1W00 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 RPAR1W00. "Basic submit
SUBMIT RPAR1W00 AND RETURN. "Return to original report after report execution complete
SUBMIT RPAR1W00 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: P_WRITST = D .
Selection Text: P_WRIPRD = D .
Selection Text: P_PROT = D .
Selection Text: P_DELTST = D .
Selection Text: ARCH_GRP = D .
Selection Text: ACOMMENT = D .
Selection Text: TESTRUN = Test run
Selection Text: P_COMENT = D .
Selection Text: PROTOCOL = Detail log
Title: PA: Archiving - Write Program for Payroll Results (PA CALC)
Text Symbol: SE3 = Other data
Text Symbol: SE2 = Test options
Text Symbol: SE1 = Other selection
Text Symbol: PER = Personnel no.
Text Symbol: NUM = No. of personnel numbers in archiving group
Text Symbol: NOR = No payroll results
Text Symbol: NOM = No personnel numbers in archiving group
Text Symbol: KEY = Key:
Text Symbol: ER9 = Error in payroll results
Text Symbol: E77 = Could not find archiving group in T51B1
Text Symbol: ABO = Program terminated
Text Symbol: 001 = Archiving groups
INCLUDES used within this REPORT RPAR1W00
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:
RP_ARCHIVE_KEY_FOR_ARCHIVING CALL FUNCTION 'RP_ARCHIVE_KEY_FOR_ARCHIVING' EXPORTING pernr_arc = p_pernr molga = my_t51b1-calc_molga ar_group = arch_grp TABLES pcl2_key = l_pcl2_key_tab EXCEPTIONS OTHERS = 0.
ARCHIVE_NEW_OBJECT CALL FUNCTION 'ARCHIVE_NEW_OBJECT' EXPORTING archive_handle = my_archive_handle object_id = p_pernr.
PA_CALC_ARCHIVE_OBJECT CALL FUNCTION 'PA_CALC_ARCHIVE_OBJECT' EXPORTING archive_handle = my_archive_handle object_key = l_object_key.
ARCHIVE_SAVE_OBJECT CALL FUNCTION 'ARCHIVE_SAVE_OBJECT' EXPORTING archive_handle = my_archive_handle.
ARCHIVE_WRITE_STATISTICS CALL FUNCTION 'ARCHIVE_WRITE_STATISTICS' EXPORTING archive_handle = my_archive_handle.
ARCHIVE_PROTOCOL_WRITE CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE' EXPORTING i_protocol_handle = lv_protocol_handle.
ARCHIVE_CLOSE_FILE CALL FUNCTION 'ARCHIVE_CLOSE_FILE' EXPORTING archive_handle = my_archive_handle.
ARCHIVE_PROTOCOL_INIT CALL FUNCTION 'ARCHIVE_PROTOCOL_INIT' EXPORTING i_detailprotocol = protocol IMPORTING e_protocol_handle = lv_protocol_handle.
PA_CALC_TESTMODE CALL FUNCTION 'PA_CALC_TESTMODE' EXPORTING testmode_on_off = protocol.
PA_CALC_INFO_SET CALL FUNCTION 'PA_CALC_INFO_SET' EXPORTING archive_handle = my_archive_handle molga_in = my_t51b1-calc_molga argrp_in = arch_grp.
ARCHIVE_OPEN_FOR_WRITE CALL FUNCTION 'ARCHIVE_OPEN_FOR_WRITE' EXPORTING call_delete_job_in_test_mode = testrun create_archive_file = create object = object_pa_calc comments = acomment do_not_delete_data = l_not_delete destroy = l_destroy IMPORTING archive_handle = my_archive_handle EXCEPTIONS internal_error = 1 object_not_found = 2 open_error = 3 not_authorized = 4 OTHERS = 5.
ARCHIVE_GET_INFORMATION CALL FUNCTION 'ARCHIVE_GET_INFORMATION' EXPORTING archive_handle = my_archive_handle IMPORTING archive_document = archive_document.
RP_ARCHIVE_KEY_FOR_ARCHIVING CALL FUNCTION 'RP_ARCHIVE_KEY_FOR_ARCHIVING' EXPORTING pernr_arc = p_pernr molga = my_t51b1-calc_molga ar_group = arch_grp TABLES pcl2_key = l_pcl2_key_tab EXCEPTIONS OTHERS = 0.
ARCHIVE_NEW_OBJECT CALL FUNCTION 'ARCHIVE_NEW_OBJECT' EXPORTING archive_handle = my_archive_handle object_id = p_pernr.
PA_CALC_ARCHIVE_OBJECT CALL FUNCTION 'PA_CALC_ARCHIVE_OBJECT' EXPORTING archive_handle = my_archive_handle object_key = l_object_key.
ARCHIVE_SAVE_OBJECT CALL FUNCTION 'ARCHIVE_SAVE_OBJECT' EXPORTING archive_handle = my_archive_handle EXCEPTIONS file_io_error = 1 internal_error = 2 open_error = 3 termination_requested = 4 wrong_access_to_archive = 5 data_object_not_saved = 6 OTHERS = 7.
ARCHIVE_PROTOCOL_COLLECT CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT' EXPORTING i_protocol_handle = lv_protocol_handle i_object = l_object_key i_msgid = sy-msgid i_msgno = sy-msgno i_msgtype = 2.
ARCHIVE_PROTOCOL_COLLECT CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT' EXPORTING i_protocol_handle = lv_protocol_handle i_object = l_object_key i_msgid = sy-msgid i_msgno = sy-msgno i_msgv1 = lv_pernr i_msgv2 = lv_seqnr i_msgtype = 1.
CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT' EXPORTING i_protocol_handle = lv_protocol_handle i_object = l_object_key i_msgtype = 1 i_msgid = sy-msgid i_msgno = sy-msgno i_msgv1 = lv_pernr i_msgv2 = lv_seqnr.
PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING "i_text = '&1% (&2 of &3) of the Evaluation Result have been processed'(002) "#EC * "text shall be understandable for EN-speaking coleagues i_msgid = sy-msgid i_msgno = sy-msgno i_processed = number_to_archive i_total = lv_total_objects IMPORTING e_progress_sent = lv_progress_send.
DB_COMMIT CALL FUNCTION 'DB_COMMIT'. "otherwise message will not appear in the job-log
PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING i_msgid = sy-msgid i_msgno = sy-msgno i_processed = number_to_archive i_total = lv_total_objects i_output_immediately = 'X'. "force the progress output ENDIF.
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 RPAR1W00 or its description.
RPAR1W00 - PA: Archiving - Write Program for Payroll Results (PA CALC) RPAR1W00 - PA: Archiving - Write Program for Payroll Results (PA CALC) RPAR1U40 - HR Archiving: Convert PA_CALC to 4.0 RPAR1U40 - HR Archiving: Convert PA_CALC to 4.0 RPAR1R00 - PA: Archiving - Reload Program for Payroll Results (PA CALC) RPAR1R00 - PA: Archiving - Reload Program for Payroll Results (PA CALC)