EAML_NETW_WRITE_F01 SAP ABAP INCLUDE - Include EAML_NETW_WRITE_F01

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

SUBMIT EAML_NETW_WRITE_F01. "Basic submit
SUBMIT EAML_NETW_WRITE_F01 AND RETURN. "Return to original report after report execution complete
SUBMIT EAML_NETW_WRITE_F01 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement

Text pool values

INCLUDES used within this REPORT EAML_NETW_WRITE_F01

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:

PROGRESS_INDICATOR
    CALL FUNCTION 'PROGRESS_INDICATOR'
      EXPORTING
        i_text          = 'Running...'(003)

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

PROGRESS_INDICATOR
  CALL FUNCTION 'PROGRESS_INDICATOR'
    EXPORTING
      i_text               = 'Finished'(004)
      i_processed          = lv_objects_processed
      i_total              = lv_anz_objects
      i_output_immediately = 'X'.   "force the progress output

ARCHIVE_PROTOCOL_INIT
  CALL FUNCTION 'ARCHIVE_PROTOCOL_INIT'
    EXPORTING
      i_detailprotocol  = p_prot      "Detail Log
      i_protocol_output = p_prot_o.   "Log Output

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_object
      comments                     = p_coment
      do_not_delete_data           = l_not_delete
      destroy                      = l_destroy
    IMPORTING
      archive_handle               = g_archive_handle
    EXCEPTIONS
      OTHERS                       = 1.

ARCHIVE_PROTOCOL_COLLECT
    CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
      EXPORTING
        i_object  = us_t372i-netid
        i_text    = 'Network ID can not be archived'(002)
        I_MSGV1   = '( no deletion flag )'(008)
        i_msgtype = 1.

ARCHIVE_PROTOCOL_COLLECT
    CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
      EXPORTING
        i_object  = us_netid
        i_text    = 'Network ID can not be archived'(002)
        I_MSGV1   = '( Object Links exist )'(009)
        i_msgtype = 1.

ARCHIVE_PROTOCOL_COLLECT
    CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
      EXPORTING
        i_object  = us_netid
        i_text    = 'Network ID can not be archived'(002)
        I_MSGV1   = '( Network attr. values exist )'(010)

ARCHIVE_PROTOCOL_COLLECT
    CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
      EXPORTING
        i_object  = us_netid
        i_text    = 'Network ID can not be archived'(002)
        I_MSGV1   = lv_text
        i_msgtype = 1.

ARCHIVE_NEW_OBJECT
  CALL FUNCTION 'ARCHIVE_NEW_OBJECT'
    EXPORTING
      archive_handle = g_archive_handle.

ARCHIVE_SAVE_OBJECT
  CALL FUNCTION 'ARCHIVE_SAVE_OBJECT'
    EXPORTING
      archive_handle        = g_archive_handle
    EXCEPTIONS
      termination_requested = 1
      data_object_not_saved = 2.

CHANGEDOCU_ARCHIVE_OBJECT
  call function 'CHANGEDOCU_ARCHIVE_OBJECT'
       exporting
            archive_handle     = g_archive_handle
            objectclass        = objectclass
            objectid           = l_objectid
            object_delete_flag = 'X'.

ARCHIVE_PUT_TABLE
  CALL FUNCTION 'ARCHIVE_PUT_TABLE'
    EXPORTING
      archive_handle   = g_archive_handle
      record_flags     = ' '
      record_structure = 'T372I'
    TABLES
      table            = lt_t372i[].

ARCHIVE_PUT_TABLE
  CALL FUNCTION 'ARCHIVE_PUT_TABLE'
    EXPORTING
      archive_handle   = g_archive_handle
      record_flags     = ' '
      record_structure = 'T372I_T'
    TABLES
      table            = gt_t372i_t[].

ARCHIVE_PUT_TABLE
  CALL FUNCTION 'ARCHIVE_PUT_TABLE'
    EXPORTING
      archive_handle   = g_archive_handle
      record_flags     = ' '
      record_structure = 'EAML_D_LFE_DATA'
    TABLES
      table            = lt_lfe_db[].

ARCHIVE_WRITE_STATISTICS
  CALL FUNCTION 'ARCHIVE_WRITE_STATISTICS'
    EXPORTING
      archive_handle = g_archive_handle.

ARCHIVE_PROTOCOL_WRITE
  CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE'.

ARCHIVE_CLOSE_FILE
  CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
    EXPORTING
      archive_handle = g_archive_handle.

ARCHIVE_PROTOCOL_COLLECT














        CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
          EXPORTING
            i_object  = us_netid
            i_text    = 'Network archived'(007)
            i_msgtype = 1.

ARCHIVE_PROTOCOL_COLLECT
        CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
          EXPORTING
            i_object  = us_netid
            i_msgtype = '1'
            i_text    = 'Memory snapshot is written'(006).

ARCHIVE_PROTOCOL_COLLECT
        CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
          EXPORTING
            i_object  = us_netid
            i_msgtype = '1'
            i_text    = 'Retention Per. End Reached'(005).

ARCHIVE_PROTOCOL_COLLECT
      CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
        EXPORTING
          i_object  = us_netid
          i_msgtype = '2'
          i_msgid   = sy-msgid
          i_msgno   = sy-msgno
          i_msgv1   = sy-msgv1
          i_msgv2   = sy-msgv2
          i_msgv3   = sy-msgv3
          i_msgv4   = sy-msgv4.