RFCRDFRL is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for Reloading program for payment card file archiving Program
If you would like to execute this report or see the full code listing simply enter RFCRDFRL 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.
Selection Text: P_DET = Detailed Error Log
Selection Text: P_TEST = Test Run
Title: Payment Card File: Reload Archived Data
Text Symbol: 010 = Archiving Session
Text Symbol: 020 = Arch.File
Text Symbol: 030 = Number of Payment Card Files in Archive:
Text Symbol: 040 = Test Run
Text Symbol: 050 = Upd. Run
Text Symbol: 060 = Number of Reloaded Card Data Files:
Text Symbol: 070 = Number of card files that could not be reloaded:
Text Symbol: 080 = The following messages occurred during processg:
INCLUDE RFCRDFRL_TOP . "
No SAP DATABASE tables are accessed within this REPORT code!
MESSAGES_INITIALIZE CALL FUNCTION 'MESSAGES_INITIALIZE'.
ARCHIVE_OPEN_FOR_MOVE CALL FUNCTION 'ARCHIVE_OPEN_FOR_MOVE' EXPORTING object = con_archive_object test_mode = p_test IMPORTING archive_read_handle = g_handle archive_write_handle = g_handle_reject EXCEPTIONS no_files_available = 1.
ARCHIVE_GET_CUSTOMIZING_DATA CALL FUNCTION 'ARCHIVE_GET_CUSTOMIZING_DATA' EXPORTING object = con_archive_object IMPORTING commit_count_for_delete_prg = g_count_commit.
ARCHIVE_GET_ARCHIVE_FILES CALL FUNCTION 'ARCHIVE_GET_ARCHIVE_FILES' EXPORTING archive_handle = g_handle TABLES archive_files = g_t_files.
ARCHIVE_GET_NEXT_OBJECT CALL FUNCTION 'ARCHIVE_GET_NEXT_OBJECT' EXPORTING archive_handle = g_handle IMPORTING object_id = g_obj_id object_offset = g_offset archive_name = g_archkey EXCEPTIONS end_of_file = 1.
ARCHIVE_GET_NEXT_RECORD CALL FUNCTION 'ARCHIVE_GET_NEXT_RECORD' EXPORTING archive_handle = g_handle IMPORTING record = g_f_buffer-segment record_structure = g_f_buffer-rname EXCEPTIONS end_of_object = 1.
ARCHIVE_SAVE_OBJECT CALL FUNCTION 'ARCHIVE_SAVE_OBJECT' EXPORTING archive_handle = g_handle_reject.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING arbgb = con_r$ exception_if_not_active = space msgty = con_e_msg msgv1 = l_t_crfilehd-cryear msgv2 = l_t_crfilehd-crperiod msgv3 = l_t_crfilehd-ccins msgv4 = l_t_crfilehd-crfileno txtnr = '203'.
FCRF_CHECK_AUTHORITY CALL FUNCTION 'FCRF_CHECK_AUTHORITY' EXPORTING i_activity = act_relo i_ccins = l_t_crfilehd-ccins i_msgty = 'E' EXCEPTIONS no_authority = 1 OTHERS = 2.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING arbgb = con_r$ exception_if_not_active = space msgty = con_e_msg msgv1 = con_authobj_fcrd_dat msgv2 = act_relo txtnr = sy-msgno.
ARCHIVE_RELOAD_OBJECT_DATA CALL FUNCTION 'ARCHIVE_RELOAD_OBJECT_DATA' EXPORTING archive_handle = g_handle.
ARCHIVE_CLOSE_FILE CALL FUNCTION 'ARCHIVE_CLOSE_FILE' EXPORTING archive_handle = g_handle.
ARCHIVE_ROLLBACK_WORK CALL FUNCTION 'ARCHIVE_ROLLBACK_WORK'.
MESSAGES_GIVE CALL FUNCTION 'MESSAGES_GIVE' TABLES t_mesg = l_t_messages.
Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.