IWRITE_TEMPLATE_PPF SAP ABAP INCLUDE - Write Template for PPF : Migration

IWRITE_TEMPLATE_PPF 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 IWRITE_TEMPLATE_PPF 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 IWRITE_TEMPLATE_PPF. "Basic submit
SUBMIT IWRITE_TEMPLATE_PPF AND RETURN. "Return to original report after report execution complete
SUBMIT IWRITE_TEMPLATE_PPF 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 IWRITE_TEMPLATE_PPF

INCLUDE ARCH_WRITE_PRG_STANDARD2.

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_COLLECT
      CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
        EXPORTING
          i_object           = sy-dbcnt
          i_text             = 'Total object for processing'(007) "#EC
          i_msgtype          = 1
          i_protocol_handle  = i_str_param-log_handle.

ARCHIVE_PROTOCOL_COLLECT
    CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
      EXPORTING
        i_object           = sy-dbcnt
        i_text             = 'Total object for processing'(007) "#EC
        i_msgtype          = 1
        i_protocol_handle  = i_str_param-log_handle.

ARCHIVE_NEW_OBJECT
    CALL FUNCTION 'ARCHIVE_NEW_OBJECT'
      EXPORTING
        archive_handle = gv_handle.

$ot_tarch04_metadata-module_dbread$
    CALL FUNCTION '$ot_tarch04_metadata-module_dbread$'
      EXPORTING
       f_businesskey = 
       p_tabname     = '$ot_tarch04_metadata-tabname$'
      IMPORTING
        t_table       = .

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = gv_handle
        record_structure = '$ot_tarch04_metadata-tabname$'
      TABLES
        table            = .

$ot_tarch04_metadata-module_dbread$
    CALL FUNCTION '$ot_tarch04_metadata-module_dbread$'
      EXPORTING
        f_businesskey = 
        p_tabname     = '$ot_tarch04_metadata-tabname$'
      IMPORTING
        t_table       = .

$ot_tarch05_metadata-module_class_wri$
    CALL FUNCTION '$ot_tarch05_metadata-module_class_wri$'
      EXPORTING
        p_channel = gv_handle
        p_testrun = gv_wri_test
        t_table   = .

ARCHIVE_SAVE_OBJECT
    CALL FUNCTION 'ARCHIVE_SAVE_OBJECT'
      EXPORTING
        archive_handle        = gv_handle
      EXCEPTIONS
        termination_requested = 1
        data_object_not_saved = 6
        others                = 7.

ARCHIVE_PROTOCOL_COLLECT
      CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
        EXPORTING
          i_object  = obj_key
          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.

ARCHIVE_PROTOCOL_COLLECT
        CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
          EXPORTING
            i_object  = obj_key
            i_text    = 'Archived'(001) "#EC
            i_msgtype = 1.

ARCHIVE_PROTOCOL_COLLECT
        CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
          EXPORTING
            i_object  = obj_key
            i_text    = 'Retention Per. End Reached'(002) "#EC

ARCHIVE_PROTOCOL_COLLECT
        CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
          EXPORTING
            i_object  = obj_key
            i_text    = 'Memory snapshot is written'(003) "#EC
            i_msgtype = 1.

PROGRESS_INDICATOR
    CALL FUNCTION 'PROGRESS_INDICATOR'
      EXPORTING
        i_text               = '&2 Objects archived'(004)
        i_processed          = gv_obj_archived
      IMPORTING
        e_progress_sent      = l_progress_sent.

DB_COMMIT
      CALL FUNCTION 'DB_COMMIT'.

ARCHIVE_PROTOCOL_INIT
    CALL FUNCTION 'ARCHIVE_PROTOCOL_INIT'
      EXPORTING
        i_detailprotocol          = i_str_applparam-prot
        i_protocol_output         = i_str_applparam-prot_o
        i_father_protocol_handle  = i_str_applparam-log_handle.

ARCHIVE_OPEN_FOR_WRITE
    CALL FUNCTION 'ARCHIVE_OPEN_FOR_WRITE'
      EXPORTING
        call_delete_job_in_test_mode = i_str_applparam-deltst
        create_archive_file          = i_str_applparam-wriprd
        destroy                      = i_str_applparam-destroy
        object                       = gc_obj_name
        do_not_delete_data           = i_str_applparam-do_not_delete_data
        comments                     = i_str_applparam-comment
      IMPORTING
        archive_handle               = gv_handle.

ARCHIVE_GET_INFORMATION
      CALL FUNCTION 'ARCHIVE_GET_INFORMATION'
        EXPORTING
          archive_handle          = gv_handle
        IMPORTING
          archive_document        = l_document_no
        EXCEPTIONS
          internal_error          = 1
          wrong_access_to_archive = 2
          OTHERS                  = 3.

PROGRESS_INDICATOR
  CALL FUNCTION 'PROGRESS_INDICATOR'
    EXPORTING
      i_text               = '&2 Objects archived'(004)
      i_processed          = gv_obj_archived
      i_output_immediately = 'X'.

ARCHIVE_WRITE_STATISTICS














  CALL FUNCTION 'ARCHIVE_WRITE_STATISTICS'
    EXPORTING
      archive_handle = gv_handle.

ARCHIVE_PROTOCOL_WRITE
  CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE'.

ARCHIVE_CLOSE_FILE
  CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
    EXPORTING
      archive_handle = gv_handle.

BANK_MAP_PP_EDIT_JOBDIST
      CALL FUNCTION 'BANK_MAP_PP_EDIT_JOBDIST'
        CHANGING
          c_tab_jobdist = lt_jobdist[].

BP_RETRIEVE_PRIPARS
    CALL FUNCTION 'BP_RETRIEVE_PRIPARS'
     IMPORTING
       pripars  = l_printparam.

GET_JOB_RUNTIME_INFO
    CALL FUNCTION 'GET_JOB_RUNTIME_INFO'
      IMPORTING
        jobname   = ls_admi_jobs-jobname.

ARCHIVE_PROTOCOL_INIT
  CALL FUNCTION 'ARCHIVE_PROTOCOL_INIT'
    EXPORTING
      i_detailprotocol  = ls_appl_param-prot
      i_protocol_output = ls_appl_param-prot_o
    IMPORTING
      e_protocol_handle = ls_appl_param-log_handle.

BANK_MAP_PP_START
  CALL FUNCTION 'BANK_MAP_PP_START'
    EXPORTING
      i_applcatg          = gc_appl_type
      i_xsimulrun         = abap_true
      i_str_appl_param    = ls_appl_param
      i_x_sync            = abap_true
      i_x_use_dialog_wp   = p_xdia
      i_str_print         = l_printparam
      i_tab_jobdist       = lt_jobdist[]
    IMPORTING
      e_tab_jobs          = lt_jobs[].

ARCHIVE_PROTOCOL_WRITE
  CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE'
    EXPORTING
      i_protocol_handle = ls_appl_param-log_handle.