BC_SFLIGHT_READ_DB_AR_BY_INDEX SAP ABAP Report - Archiving Flights: Index-Based Reporting from DB and Archive (Example)

BC_SFLIGHT_READ_DB_AR_BY_INDEX is a standard Executable ABAP Report 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 BC_SFLIGHT_READ_DB_AR_BY_INDEX 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 BC_SFLIGHT_READ_DB_AR_BY_INDEX

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_API_INFOSTRUC_FIND
  CALL FUNCTION 'AS_API_INFOSTRUC_FIND'
    EXPORTING
      i_fieldcat         = 'SAP_BC_SFLIGHT1'
      i_fields           = lt_fields_filled[]
    IMPORTING
      e_infostruc        = lv_info_struct_name
      e_matching_fields  = lt_matching_fields[]
    EXCEPTIONS
      no_infostruc_found = 1.

ARCHIVE_OPEN_FOR_READ
    CALL FUNCTION 'ARCHIVE_OPEN_FOR_READ'
      EXPORTING
        object             = 'BC_SFLIGHT'
      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    = 'SAP_BC_SFLIGHT1'
        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.

REUSE_ALV_GRID_DISPLAY
        CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
          EXPORTING
            i_grid_title             = 'Flüge'(010)
            i_callback_program       = sy-repid
            i_callback_user_command  = 'CALLBACK_USER_COMMAND'
            i_callback_pf_status_set = 'CALLBACK_SET_PF_STATUS'
            IT_EVENTS                = lt_event
            i_structure_name         = 'SFLIGHT'
          TABLES
            t_outtab                 = ft_table.

REUSE_ALV_GRID_DISPLAY
        CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
          EXPORTING
            i_grid_title             = 'Flugbuchungen'(012)
            i_screen_start_column    = 1
            i_screen_start_line      = 1
            i_screen_end_column      = 100
            i_screen_end_line        = 30
            i_callback_program       = sy-repid
            i_callback_user_command  = 'CALLBACK_USER_COMMAND'
            i_callback_pf_status_set = 'CALLBACK_SET_PF_STATUS'
            i_structure_name         = 'SBOOK'
          TABLES
            t_outtab                 = ft_table.

ARCHIVE_GET_OBJECT_BY_OFFSET
      CALL FUNCTION 'ARCHIVE_GET_OBJECT_BY_OFFSET'
        EXPORTING
          archivkey      = -ARCHIVEKEY
          offset         = -ARCHIVEOFS
        IMPORTING
          archive_handle = lv_handle.

BC_DEMO_DISPLAY_OBJECT
     CALL FUNCTION 'BC_DEMO_DISPLAY_OBJECT'
        EXPORTING
          iv_archive_handle       = lv_handle
          iv_bc_demo_key          = lw_bc_demo_key
          iv_table                = lv_table.

ARCHIVE_CLOSE_FILE
      CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
        EXPORTING
          archive_handle = lv_handle.