FAGL_R_ARCH_WRITE SAP ABAP Report - Archiving of Reorganization: Write Program

FAGL_R_ARCH_WRITE is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for This program writes the specified reorganization plans to the data archive...see full standard documentation available for this report. Also check out the submitted Comments related to this SAP report and the details below to see which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC.

If you would like to execute this report or see the full code listing simply enter FAGL_R_ARCH_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 FAGL_R_ARCH_WRITE

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:

ARCHIVE_PROTOCOL_INIT
  CALL FUNCTION 'ARCHIVE_PROTOCOL_INIT'
    EXPORTING
      i_detailprotocol  = uv_detail_prot
      i_protocol_output = uv_detail_prot_o.

ARCHIVE_OPEN_FOR_WRITE
  CALL FUNCTION 'ARCHIVE_OPEN_FOR_WRITE'
    EXPORTING
      call_delete_job_in_test_mode = l_delete_in_test
      create_archive_file          = l_create_file
      object                       = uv_object
      comments                     = uv_admi_rem
    IMPORTING
      archive_handle               = c_archive_handle
    EXCEPTIONS
      OTHERS                       = 1.

ARCHIVE_GET_OBJECT
  CALL FUNCTION 'ARCHIVE_GET_OBJECT'
    EXPORTING
      object           = cl_fagl_r_archiving=>con_this_archobj
    TABLES
      object_structure = gt_arch_struc
    EXCEPTIONS
      object_not_found = 1
      OTHERS           = 2.

ARCHIVE_NEW_OBJECT
  CALL FUNCTION 'ARCHIVE_NEW_OBJECT'
    EXPORTING
      archive_handle = uv_archive_handle.

ARCHIVE_SAVE_OBJECT
  CALL FUNCTION 'ARCHIVE_SAVE_OBJECT'
    EXPORTING
      archive_handle        = uv_archive_handle
    EXCEPTIONS
      termination_requested = 1
      data_object_not_saved = 6
      OTHERS                = 7.

ARCHIVE_PUT_TABLE
  CALL FUNCTION 'ARCHIVE_PUT_TABLE'
    EXPORTING
      archive_handle   = uv_archive_handle
      record_structure = cl_fagl_r_archiving=>con_table_fagl_r_pl
    TABLES
      table            = lt_fagl_r_pl_put.

DDIF_FIELDINFO_GET
    CALL FUNCTION 'DDIF_FIELDINFO_GET'
      EXPORTING
        tabname        = uv_table
      TABLES
        dfies_tab      = lt_dfies
      EXCEPTIONS
        not_found      = 1
        internal_error = 2
        OTHERS         = 3.

ARCHIVE_PUT_TABLE
  CALL FUNCTION 'ARCHIVE_PUT_TABLE'
    EXPORTING
      archive_handle   = uv_archive_handle
      record_structure = uv_table
    TABLES
      table            = .

ARCHIVE_WRITE_STATISTICS
  CALL FUNCTION 'ARCHIVE_WRITE_STATISTICS'
    EXPORTING
      archive_handle = uv_archive_handle.

ARCHIVE_PROTOCOL_WRITE
  CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE'.

ARCHIVE_CLOSE_FILE
  CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
    EXPORTING
      archive_handle = uv_archive_handle.

ARCHIVE_PROTOCOL_COLLECT_APPL
  CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT_APPL'
    EXPORTING
      i_object  = lv_objtext
      i_msgtype = l_msgtype
      i_msgid   = lf_msg-id
      i_msgno   = lf_msg-number
      i_msgv1   = lf_msg-message_v1
      i_msgv2   = lf_msg-message_v2
      i_msgv3   = lf_msg-message_v3
      i_msgv4   = lf_msg-message_v4.

PROGRESS_INDICATOR_APPL
    CALL FUNCTION 'PROGRESS_INDICATOR_APPL'
      EXPORTING
        i_msgid              = 'FAGL_REORGANIZATION'
        i_msgno              = '671'
        i_processed          = gf_process_info-counter-processed
        i_total              = gf_process_info-counter-total
        i_output_immediately = l_immidiate.

PROGRESS_INDICATOR_APPL
    CALL FUNCTION 'PROGRESS_INDICATOR_APPL'
      EXPORTING
        i_msgid              = 'FAGL_REORGANIZATION'
        i_msgno              = '671'
        i_processed          = gf_process_info-counter-processed
        i_total              = gf_process_info-counter-total
        i_output_immediately = l_immidiate
      IMPORTING
        e_progress_sent      = l_progress_sent.

DB_COMMIT
      CALL FUNCTION 'DB_COMMIT'. "otherwise messag will not appear in the job-log