Archiving in SAP for Developers
Archiving is using program or archiving object .Archive data is also accessed using archiving information system Archive Information System (SAP AS) and DART (data retention tool)
In archiving all the records belongs to the archiving objects are written together to archive file and then deleted from database tables.
Data archiving process is composed of two steps
· Creation of archive files
· Deletion of data
Structure Definition: Describes which underlying tables are processed during data archiving.
How to fetch records from AS (Archive Info system )
Definition (AS) Archive Info system:
The Archive Information System (AS) is a generic tool for indexing data archives and is fully integrated into the SAP Data Archiving environment. The indexes created with this tool, which are called Archive Information Structures, are used to display archived data.
Get the archived info source SAP_BC_SBOOK01 go to tcode SARJ
The archiving object is a central component of SAP Data Archiving. The archiving object specifies precisely which data is archived and how. It describes which database objects must be handled together as a single business object. And interprets the data irrespective of the technical specifications at the time of archiving (such as release and hardware).
Ex:Go to SARE tcode :archiving Object BC_SBOOK.
There are two methods to fetch data from archive system.
When we need read one tables or when we need records from different tables.
Case 1: when we need to fetch records from AS table SBOOK only.
In this case we have Archive Object BC_SBOOK and we need records from only one table ie SBOOK.
Go to DB15à tcode for BC_SBOOK we have three tables SBOOK,UDM_P2P_ATTR and USMCASEATTR00.
We will use direct fetch method as below:
Direct fetch from AIS info objects
There is mapping table aind_str2 with AIS name
DATA :lv_arch_ind TYPE aind_fcat VALUE 'SAP_BC_SBOOK01'."Airchive info source name
Data:lv_gen_tab TYPE aind_str2-gentab.
*get the generated archive table generated
SELECT SINGLE gentab INTO lv_gen_tab
FROM aind_str2
WHERE archindex = lv_arch_ind
AND active = abap_true.
IF sy-subrc EQ 0.
*use same selection criteria for live data as well as archive data
SELECT *
APPENDING CORRESPONDING FIELDS OF TABLE gt_SFLIGHT
FROM (lv_gen_tab)
WHERE CARRID = 'A'
IF sy-subrc EQ 0.
ENDIF.
ENDIF.
Case 2: When we need to fetch data from All the three tables SBOOK,UDM_P2P_ATTR and USMCASEATTR00.Use FM 'ARCHIVE_GET_NEXT_RECORD' and filter the data based on the tables.
Sample program to fetch data from archive system using function module
DATA :g_sel TYPE rsds_frange_t.
DATA: ls_sel TYPE rsds_frange.
DATA :
gr_alv TYPE REF TO cl_salv_table,
gr_columns TYPE REF TO cl_salv_columns_table.
DATA : ra_selopt TYPE rsdsselopt .
DATA : lt_selopt TYPE STANDARD TABLE OF rsdsselopt .
DATA:
BEGIN OF g_sbook,
carrid LIKE sbook-carrid,
bookid LIKE sbook-bookid,
END OF g_sbook,
gt_result TYPE TABLE OF aind_arkey.
DATA :ls_result TYPE aind_arkey.
DATA :lv_handle TYPE sy-tabix.
DATA :lv_length TYPE i.
DATA :ls_record TYPE sbook.
DATA :ls_structure TYPE arc_buffer-rname.
DATA :gt_alv TYPE STANDARD TABLE OF sbook.
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS :carrid TYPE sbook-carrid.
PARAMETER :bookid TYPE sbook-bookid.
PARAMETERS:c_cb1 AS CHECKBOX.
PARAMETERS :c_cb2 AS CHECKBOX.
SELECTION-SCREEN : END OF BLOCK b1.
g_sbook-carrid = carrid.
g_sbook-bookid = bookid.
ra_selopt-sign = 'I'.
ra_selopt-option = 'EQ'.
ra_selopt-low = carrid.
APPEND ra_selopt TO lt_selopt.
g_sbook-carrid = carrid.
g_sbook-bookid = bookid.
ra_selopt-sign = 'I'.
ra_selopt-option = 'EQ'.
ra_selopt-low = bookid.
APPEND ra_selopt TO lt_selopt.
ls_sel-fieldname = 'CARRID'.
ls_sel-selopt_t = lt_selopt.
APPEND ls_sel TO g_sel.
CLEAR ls_sel.
CALL FUNCTION 'AS_API_READ'
EXPORTING
i_fieldcat = 'SAP_BC_SBOOK01'"Field catalog name
i_selections = g_sel
IMPORTING
e_result = gt_result.
IF sy-subrc = 0.
READ TABLE gt_result INTO ls_result INDEX 1.
CALL FUNCTION 'ARCHIVE_READ_OBJECT'
EXPORTING
object = 'BC_SBOOK'
archivkey = ls_result-archivekey
offset = ls_result-archiveofs
IMPORTING
archive_handle = lv_handle
compr_object_length = lv_length
EXCEPTIONS
no_record_found = 1
file_io_error = 2
internal_error = 3
open_error = 4
cancelled_by_user = 5
archivelink_error = 6
object_not_found = 7
filename_creation_failure = 8
file_already_open = 9
not_authorized = 10
file_not_found = 11
OTHERS = 12.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
ENDIF.
CALL FUNCTION 'ARCHIVE_GET_NEXT_RECORD'
EXPORTING
archive_handle = lv_handle
get_real_structure_name = lv_length
IMPORTING
record = ls_record
record_structure = ls_structure
EXCEPTIONS
end_of_object = 1
internal_error = 2
wrong_access_to_archive = 3
OTHERS = 4.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
*Display alv
If ls_structure eq 'SFLIGHT'
APPEND ls_record TO gt_alv.
CLEAR ls_record.
Else ls_structure eq ' UDM_P2P_ATTR '
APPEND ls_record_2 TO gt_alv2.
CLEAR ls_record_2.
Endif.
*This id for GT_ALV
CALL METHOD cl_salv_table=>factory
IMPORTING
r_salv_table = gr_alv
CHANGING
t_table = gt_alv.
gr_columns = gr_alv->get_columns( ).
CALL METHOD gr_alv->display.
