WFA_ARCHIVE_ROUTINES SAP ABAP INCLUDE - Include WFA_ARCHIVE_ROUTINES

WFA_ARCHIVE_ROUTINES 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 WFA_ARCHIVE_ROUTINES 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.

Text pool values

INCLUDES used within this REPORT WFA_ARCHIVE_ROUTINES

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:

AS_DATASOURCE_INIT
  CALL FUNCTION 'AS_DATASOURCE_INIT'
    EXPORTING
      i_report       = sy-repid
      i_reporttype   = space
    IMPORTING
      e_use_database = fp_readdb
      e_use_archive  = fp_readar
      e_use_infosys  = fp_readas
      et_arch_sel    = fs_files[].

AS_DATASOURCE_SELECT
  CALL FUNCTION 'AS_DATASOURCE_SELECT'
    EXPORTING
      i_report       = sy-repid
      i_reporttype   = space
      it_objects     = lt_arch_obj[]
    CHANGING
      c_use_database = fp_readdb
      c_use_archive  = fp_readar
      c_use_infosys  = fp_readas
      ct_arch_sel    = fs_files[].

AS_DATASOURCE_SELECT
  CALL FUNCTION 'AS_DATASOURCE_SELECT'
    EXPORTING
      i_report       = sy-repid
      i_reporttype   = space
      it_objects     = lt_arch_obj[]
    CHANGING
      c_use_database = fp_readdb
      c_use_archive  = fp_readar
      c_use_infosys  = fp_readas
      ct_arch_sel    = fs_files[].

AS_API_INFOSTRUC_FIND
  CALL FUNCTION 'AS_API_INFOSTRUC_FIND'
    EXPORTING
      i_fieldcat         = fieldcat
      i_fields           = lt_fields_filled[]
    IMPORTING
      e_infostruc        = lv_info_struct_name
      e_matching_fields  = lt_matching_fields[]
    EXCEPTIONS
      no_infostruc_found = 1.

AS_API_INFOSTRUC_FIND
  CALL FUNCTION 'AS_API_INFOSTRUC_FIND'
    EXPORTING
      i_fieldcat         = fieldcat
      i_fields           = lt_fields_filled[]
    IMPORTING
      e_infostruc        = lv_info_struct_name
      e_matching_fields  = lt_matching_fields[]
    EXCEPTIONS
      no_infostruc_found = 1.

RH_GET_ACTIVE_WF_PLVAR
  CALL FUNCTION 'RH_GET_ACTIVE_WF_PLVAR'
    IMPORTING
      act_plvar       = lv_plvar
    EXCEPTIONS
      no_active_plvar = 0
      OTHERS          = 0.

ARCHIVE_OPEN_FOR_READ
    CALL FUNCTION 'ARCHIVE_OPEN_FOR_READ'
      EXPORTING
        object             = archobj
      IMPORTING
        archive_handle     = lv_handle
      TABLES
        archive_files      = lr_files_read_sequential[]
      EXCEPTIONS
        no_files_available = 1.

ARCHIVE_GET_NEXT_OBJECT
        CALL FUNCTION 'ARCHIVE_GET_NEXT_OBJECT'
          EXPORTING
            archive_handle = lv_handle
          IMPORTING
            object_offset  = lv_obj_offset
            archive_name   = lv_archive_name
          EXCEPTIONS
            end_of_file    = 1.

ARCHIVE_READ_OBJECT_BY_HANDLE
        CALL FUNCTION 'ARCHIVE_READ_OBJECT_BY_HANDLE'
          EXPORTING
            iv_handle          = lv_handle
            iv_read_class_data = 'NO'  "we don´t want to read archvie clas data."If you want, do provide 'YES' or 'CONTEXT'

ARCHIVE_CLOSE_FILE
      CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
        EXPORTING
          archive_handle = lv_handle.

ARCHIVE_READ_OBJECT_BY_OFFSET
    CALL FUNCTION 'ARCHIVE_READ_OBJECT_BY_OFFSET'
      EXPORTING
        iv_archivekey      = -archivekey
        iv_offset          = -archiveofs
        iv_read_class_data = 'NO'  "we don´t want to read archvie clas data."If you want, do provide 'YES' or 'CONTEXT'

ARCHIVE_OPEN_FOR_READ
    CALL FUNCTION 'ARCHIVE_OPEN_FOR_READ'
      EXPORTING
        object             = archobj
      IMPORTING
        archive_handle     = lv_handle
      TABLES
        archive_files      = lr_files_read_sequential[]
      EXCEPTIONS
        no_files_available = 1.

ARCHIVE_GET_NEXT_OBJECT
        CALL FUNCTION 'ARCHIVE_GET_NEXT_OBJECT'
          EXPORTING
            archive_handle = lv_handle
          IMPORTING
            object_offset  = lv_obj_offset
            archive_name   = lv_archive_name
          EXCEPTIONS
            end_of_file    = 1.

ARCHIVE_READ_OBJECT_BY_HANDLE
        CALL FUNCTION 'ARCHIVE_READ_OBJECT_BY_HANDLE'
          EXPORTING
            iv_handle          = lv_handle
            iv_read_class_data = 'NO'  "we don´t want to read archvie clas data."If you want, do provide 'YES' or 'CONTEXT'

ARCHIVE_CLOSE_FILE
      CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
        EXPORTING
          archive_handle = lv_handle.

ARCHIVE_READ_OBJECT_BY_OFFSET
    CALL FUNCTION 'ARCHIVE_READ_OBJECT_BY_OFFSET'
      EXPORTING
        iv_archivekey      = -archivekey
        iv_offset          = -archiveofs
        iv_read_class_data = 'NO'  "we don´t want to read archvie clas data."If you want, do provide 'YES' or 'CONTEXT'

AS_API_READ
    CALL FUNCTION 'AS_API_READ'         "1)
      EXPORTING
        i_fieldcat    = lv_field_cat
        i_selections  = ft_selections[]
      IMPORTING
        e_result      = ft_files_and_offset_as[]
      EXCEPTIONS
        no_infostruc_found  = 2.

ARCHIVE_FILES_ACCESS_KIND_GET
    CALL FUNCTION 'ARCHIVE_FILES_ACCESS_KIND_GET'
      TABLES
        it_files_and_pos  = ft_files_and_offset_as
        et_files_seq_read = lt_files_read_sequential
        et_files_obj_read = ft_files_read_by_object.