IS_SR_F01_WRI SAP ABAP INCLUDE - ISSRF01WRI
IS_SR_F01_WRI 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 IS_SR_F01_WRI 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 IS_SR_F01_WRI. "Basic submit
SUBMIT IS_SR_F01_WRI AND RETURN. "Return to original report after report execution complete
SUBMIT IS_SR_F01_WRI VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
INCLUDES used within this REPORT IS_SR_F01_WRI
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:
G_ADMI_AUTHORITY_CHECK CALL FUNCTION 'G_ADMI_AUTHORITY_CHECK' EXPORTING activity = '03' EXCEPTIONS not_authorized = 01.
DYNP_VALUES_READ CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING dyname = gc_progname dynumb = lc_dynp_nr TABLES dynpfields = lt_dynp_fields.
G_SET_ENCRYPT_SETID ** CALL FUNCTION 'G_SET_ENCRYPT_SETID' ** EXPORTING ** setclass = gsetc_profitcenter_setclass ** shortname = fp_rprctr_gr ** kokrs = fv_kokrs ** IMPORTING ** setid = lv_setid.
G_SET_GET_ALL_VALUES ** CALL FUNCTION 'G_SET_GET_ALL_VALUES' ** EXPORTING ** setnr = lv_setid ** no_descriptions = space ** TABLES ** set_values = ft_set_values ** EXCEPTIONS ** set_not_found = 1.
PCA_T895PCA_READ *** CALL FUNCTION 'PCA_T895PCA_READ' *** TABLES *** it_rldnr_range = lr_rldnr *** it_kokrs_range = fs_kokrs *** it_ryear_range = fs_ryear *** it_rvers_range = fs_rvers *** et_t895pca = lt_rvers *** EXCEPTIONS *** no_versions_found = 0. "2)
COPCA_ACTIVE_ACT *** CALL FUNCTION 'COPCA_ACTIVE_ACT' *** EXPORTING *** gjahr = lt_ryear-ryear *** kokrs = lt_kokrs-kokrs *** pcrch = lc_dummy "3) *** EXCEPTIONS *** copca_not_active = 1.
FI_PERIOD_DETERMINE ** CALL FUNCTION 'FI_PERIOD_DETERMINE'"zum übergebenen Buchungskreis ** EXPORTING "das heute (weil sy-datum ** i_budat = sy-datum "angegegeben wird) aktuelle ** i_bukrs = lw_rbukrs-rbukrs "Geschftsjahr holen ** IMPORTING ** e_gjahr = lv_valid_gjahr.
ARCHIVE_PROTOCOL_INIT CALL FUNCTION 'ARCHIVE_PROTOCOL_INIT' EXPORTING i_detailprotocol = fp_prot.
ARCHIVE_WRITE_STATISTICS CALL FUNCTION 'ARCHIVE_WRITE_STATISTICS' EXPORTING archive_handle = lv_handle.
ARCHIVE_PROTOCOL_WRITE CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE'.
ARCHIVE_CLOSE_FILE CALL FUNCTION 'ARCHIVE_CLOSE_FILE' " EXPORTING archive_handle = lv_handle.
ARCHIVE_OPEN_FOR_WRITE CALL FUNCTION 'ARCHIVE_OPEN_FOR_WRITE' EXPORTING call_delete_job_in_test_mode = lv_delete_in_test create_archive_file = lv_create_file object = gc_archive_object comments = fp_coment output_sel_screen_when_dialog = space IMPORTING archive_handle = fv_handle.
ARCHIVE_PROTOCOL_COLLECT CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT' EXPORTING i_object = 'MW-Archivierung' i_msgtype = '1' i_text = lv_text. "Einzelposten archiviert
ARCHIVE_NEW_OBJECT CALL FUNCTION 'ARCHIVE_NEW_OBJECT' EXPORTING archive_handle = fv_handle.
ARCHIVE_PUT_TABLE CALL FUNCTION 'ARCHIVE_PUT_TABLE' "1) EXPORTING archive_handle = fv_handle record_structure = fv_table TABLES table = ft_data.
ARCHIVE_SAVE_OBJECT CALL FUNCTION 'ARCHIVE_SAVE_OBJECT' EXPORTING archive_handle = fv_handle EXCEPTIONS termination_requested = 1.
PCA_TEXTKEY_GET CALL FUNCTION 'PCA_TEXTKEY_GET' EXPORTING i_glpct =
IMPORTING e_tdname = lw_textkey.
TEXT_ARCHIVE_OBJECT CALL FUNCTION 'TEXT_ARCHIVE_OBJECT' EXPORTING archive_handle = fv_handle id = '*' "ALL language = '*' "ALL name =
object = lc_textobject.
*** CALL FUNCTION 'PROGRESS_INDICATOR_APPL' *** EXPORTING **** i_text = '&2 Sätze archiviert'(w01) *** i_text = '&2 von &3 Sätzen wurden archiviert'(w01) *** i_processed = fv_rec_archived *** i_total = fv_rec_archived *** i_output_immediately = fv_immediately *** IMPORTING *** e_progress_sent = lv_progress_sent.
PROGRESS_INDICATOR CALL FUNCTION 'PROGRESS_INDICATOR' EXPORTING i_text = '&2 Sätze archiviert' "#EC NOTEXT * I_MSGID = * I_MSGNO = * I_MSGV1 = * I_MSGV2 = * I_MSGV3 = * I_MSGV4 = i_processed = fv_rec_archived * I_TOTAL = i_output_immediately = 'X' IMPORTING e_progress_sent = lv_progress_sent .
DB_COMMIT CALL FUNCTION 'DB_COMMIT'.
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 IS_SR_F01_WRI or its description.