RFTR_COEX_ARCHIVE_WRITE SAP ABAP Report - Archiving Commodity Price Exposures - Write Program

RFTR_COEX_ARCHIVE_WRITE 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 RFTR_COEX_ARCHIVE_WRITE 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 RFTR_COEX_ARCHIVE_WRITE

INCLUDE IFTRVAR_TECH_ARCHIVE.
INCLUDE RFTR_COEX_ARCHIVE_WRITE_GETF01.
INCLUDE IFTRCON_TECH_ARCHIVE.

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:

ARCHIVE_PROTOCOL_INIT
  CALL FUNCTION 'ARCHIVE_PROTOCOL_INIT'
    EXPORTING
      i_detailprotocol  = p_prot
      i_protocol_output = p_prot_o.

ARCHIVE_OPEN_FOR_WRITE
  CALL FUNCTION 'ARCHIVE_OPEN_FOR_WRITE'
    EXPORTING
      call_delete_job_in_test_mode  = p_deltst
      create_archive_file           = p_wriprd
      object                        = gc_arch_obj
      comments                      = p_coment
      do_not_delete_data            = ' '
      output_sel_screen_when_dialog = space
*     OUTPUT_SEL_SCREEN_WHEN_BATCH  = ' '
    IMPORTING
      archive_handle                = g_handle_archive
    EXCEPTIONS
      internal_error                = 1
      object_not_found              = 2
      open_error                    = 3
      not_authorized                = 4
      OTHERS                        = 5.

PROGRESS_INDICATOR
    CALL FUNCTION 'PROGRESS_INDICATOR'
      EXPORTING
        i_text               = l_text
*       I_MSGID              =
*       I_MSGNO              =
*       I_MSGV1              =
*       I_MSGV2              =
*       I_MSGV3              =
*       I_MSGV4              =
        i_processed          = sy-tabix
        i_total              = l_lines
        i_output_immediately = 'X'
*       IMPORTING
*       E_PROGRESS_SENT      =
      .

SAPGUI_PROGRESS_INDICATOR
*      CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
*        EXPORTING
*          percentage = l_perc
**         TEXT       = ' '
*        .

ARCHIVE_NEW_OBJECT
    CALL FUNCTION 'ARCHIVE_NEW_OBJECT'
      EXPORTING
        archive_handle          = g_handle_archive
*       object_id               = g_var_objid
      EXCEPTIONS
        internal_error          = 1
        wrong_access_to_archive = 2
        OTHERS                  = 3.

ARCHIVE_PUT_RECORD
    CALL FUNCTION 'ARCHIVE_PUT_RECORD'
      EXPORTING
        archive_handle           = g_handle_archive
        record                   = 
        record_flags             = ' '
        record_structure         = 'TEXT_CTY_EXPOS'
      EXCEPTIONS
        internal_error           = 1
        wrong_access_to_archive  = 2
        invalid_record_structure = 3
        OTHERS                   = 4.

ARCHIVE_SAVE_OBJECT
      CALL FUNCTION 'ARCHIVE_SAVE_OBJECT'
        EXPORTING
          archive_handle        = g_handle_archive
*       IMPORTING
*         OBJECT_OFFSET         = OBJECT_OFFSET
*         ARCHIVE_NAME          = ARCHIVE_NAME
        EXCEPTIONS
*         FILE_IO_ERROR         = 1
*         INTERNAL_ERROR        = 2
*         OPEN_ERROR            = 3
          termination_requested = 4
*         WRONG_ACCESS_TO_ARCHIVE       = 5
*         DATA_OBJECT_NOT_SAVED = 6
*         OTHERS                = 7
        .

ARCHIVE_PROTOCOL_COLLECT
    CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
      EXPORTING
        i_object  = gc_arch_obj
        i_text    = lv_msg_text
        i_msgtype = lv_msg_typ
        i_msgid   = 'FTR_GENERAL'
        i_msgno   = lv_msg_no
*       I_MSGV1   = I_MSGV1
*       I_MSGV2   = I_MSGV2
*       I_MSGV3   = I_MSGV3
*       I_MSGV4   = I_MSGV4
*       I_CALLBACK_PARAMETER = I_CALLBACK_PARAMETER
*       I_PROTOCOL_DATA      = I_PROTOCOL_DATA
*       I_PROTOCOL_HANDLE    =         I_PROTOCOL_HANDLE
      .

PROGRESS_INDICATOR
    CALL FUNCTION 'PROGRESS_INDICATOR'
      EXPORTING
*       I_TEXT          = I_TEXT
        i_processed     = lv_objects_processed
        i_total         = lv_total_of_objects
*       I_OUTPUT_IMMEDIATELY = I_OUTPUT_IMMEDIATELY
      IMPORTING
        e_progress_sent = lv_progress_send.

DB_COMMIT
      CALL FUNCTION 'DB_COMMIT'.

ARCHIVE_WRITE_STATISTICS
  CALL FUNCTION 'ARCHIVE_WRITE_STATISTICS'
    EXPORTING
      archive_handle = g_handle_archive.

ARCHIVE_PROTOCOL_WRITE
  CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE'.

ARCHIVE_CLOSE_FILE
  CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
    EXPORTING
      archive_handle          = g_handle_archive
    EXCEPTIONS
      internal_error          = 1
      wrong_access_to_archive = 2
      OTHERS                  = 4.