SAP Reports / Programs

comments icon Comments

RM06EW47 SAP ABAP Report - Purchasing Document Archiving: Write Program







RM06EW47 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for Report RM06EW47 writes all purchase orders from an interval defined by the user that satisfy the archivability conditions to a storage system...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 RM06EW47 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 RM06EW47. "Basic submit
SUBMIT RM06EW47 AND RETURN. "Return to original report after report execution complete
SUBMIT RM06EW47 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


Text pool values


Selection Text: P_WRITST = D .
Selection Text: P_WRIPRD = D .
Selection Text: P_PROT_O = D .
Selection Text: P_PROT = D .
Selection Text: P_DELTST = D .
Selection Text: P_COMENT = D .
Selection Text: ER_EKORG = D .
Selection Text: ER_EKGRP = D .
Selection Text: ER_BSTYP = D .
Selection Text: ER_BSART = D .
Selection Text: ER_BEDAT = D .
Selection Text: ER_EBELN = Purchasing Document Number
Title: Purchasing Document Archiving: Write Program
Text Symbol: 025 = Archiving in BAdI refused
Text Symbol: 021 = &1 of &2 purchasing docs processed
Text Symbol: 020 = Document archived
Text Symbol: 016 = Sales order not yet invoiced
Text Symbol: 015 = Document without items was archived
Text Symbol: 014 = Undeleted contract release orders exist
Text Symbol: 013 = An item is entered as the last document item in the info record
Text Symbol: 012 = Change date of purchasing doc. item within retention period
Text Symbol: 011 = Retention period not maintained
Text Symbol: 010 = Open rebate arrangements still exist
Text Symbol: 009 = Creation date of purchasing doc. within retention period
Text Symbol: 002 = Restrictions
Text Symbol: 001 = Purchasing Docs


INCLUDES used within this REPORT RM06EW47

INCLUDE FMMEXDIR.
INCLUDE WSTR_DEFINITION.
INCLUDE WSTR_FM06AF00.


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:

MM_ARRANG_CHECK_EKBO_INDEX
    CALL FUNCTION 'MM_ARRANG_CHECK_EKBO_INDEX'
      EXPORTING
        i_ntrabr_ek_archiv = 'X'
      EXCEPTIONS
        no_ekbo_index      = 1
        OTHERS             = 0.

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                        = 'MM_EKKO'
      comments                      = p_coment
      output_sel_screen_when_dialog = space
      output_sel_screen_when_batch  = space
    IMPORTING
      archive_handle                = l_handle.

ARCHIVE_PROTOCOL_INIT_APPL
  CALL FUNCTION 'ARCHIVE_PROTOCOL_INIT_APPL'
    EXPORTING
      i_detailprotocol = p_prot.

PROGRESS_INDICATOR_APPL
    CALL FUNCTION 'PROGRESS_INDICATOR_APPL'
      EXPORTING
        i_text          = text-021
        i_msgv1         = l_processed
        i_msgv2         = l_total
        i_processed     = l_processed
        i_total         = l_total
      IMPORTING
        e_progress_sent = l_progress_sent.

DB_COMMIT
      CALL FUNCTION 'DB_COMMIT'.

ARCHIVE_PROTOCOL_COLLECT
        CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
          EXPORTING
            i_object  = ekko-ebeln
            i_text    = l_badi_detail_text
            i_msgtype = 2.                                  "1090562

ARCHIVE_NEW_OBJECT
    CALL FUNCTION 'ARCHIVE_NEW_OBJECT'
      EXPORTING
        archive_handle = l_handle
        object_id      = l_object_id.

ARCHIVE_PROTOCOL_COLLECT_APPL
      CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT_APPL'
        EXPORTING
          i_object  = ekko-ebeln
          i_msgtype = '01'
          i_text    = text-015.

ARCHIVE_PROTOCOL_COLLECT_APPL
      CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT_APPL'
        EXPORTING
          i_object  = ekko-ebeln
          i_msgtype = '01'
          i_text    = text-020.

ARCHIVE_SAVE_OBJECT
    CALL FUNCTION 'ARCHIVE_SAVE_OBJECT'
      EXPORTING
        archive_handle        = l_handle
      EXCEPTIONS
        termination_requested = 1.

PROGRESS_INDICATOR_APPL
  CALL FUNCTION 'PROGRESS_INDICATOR_APPL'
    EXPORTING
      i_text               = text-021
      i_msgv1              = l_processed
      i_msgv2              = l_total
      i_processed          = l_processed
      i_total              = l_total
      i_output_immediately = 'X'.

ARCHIVE_WRITE_STATISTICS
  CALL FUNCTION 'ARCHIVE_WRITE_STATISTICS'
    EXPORTING
      archive_handle          = l_handle
*     STATISTICS_ONLY_PER_RUN = ' '
*     STATISTICS_ONLY_PER_FILE = ' '
    EXCEPTIONS
      internal_error          = 1
      wrong_access_to_archive = 2
      OTHERS                  = 3.

ARCHIVE_CLOSE_FILE
  CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
    EXPORTING
      archive_handle = l_handle.

ARCHIVE_PROTOCOL_WRITE_APPL
  CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE_APPL'.

MM_ARRANG_CHECK_COND_ARCHIVE
  CALL FUNCTION 'MM_ARRANG_CHECK_COND_ARCHIVE'
    EXPORTING
      i_bltypn              = space
      i_ebeln               = ekko-ebeln
    EXCEPTIONS
      agreement_not_settled = 1
      agreement_datbi_valid = 2
      agreement_reszt_valid = 3
      inconsistent_data     = 4
      no_ekbo_index         = 5
      OTHERS                = 6.

ARCHIVE_PROTOCOL_COLLECT_APPL
    CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT_APPL'
      EXPORTING
        i_object  = ekko-ebeln
        i_msgtype = '02'
        i_text    = text-010.

ARCHIVE_PROTOCOL_COLLECT_APPL
        CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT_APPL'
          EXPORTING
            i_object  = ekko-ebeln
            i_msgtype = '02'
            i_text    = text-009.

ARCHIVE_PROTOCOL_COLLECT_APPL
        CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT_APPL'
          EXPORTING
            i_object  = ekko-ebeln
            i_msgtype = '02'
            i_text    = text-012.

ME_READ_RELEASE_DOCU
















    CALL FUNCTION 'ME_READ_RELEASE_DOCU'
      EXPORTING
        bukrs = ekko-bukrs
        ebeln = ekko-ebeln
        waers = ekko-waers
        wkurs = ekko-wkurs
      IMPORTING
        suwrt = er_suwrt
      TABLES
        xado  = xekab.

ARCHIVE_PROTOCOL_COLLECT_APPL
    CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT_APPL'
      EXPORTING
        i_object  = ekko-ebeln
        i_msgtype = '02'
        i_text    = text-014.

ARCHIVE_PROTOCOL_COLLECT_APPL
      CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT_APPL'
        EXPORTING
          i_object  = ekko-ebeln
          i_msgtype = '02'
          i_text    = text-011.

ARCHIVE_PUT_RECORD
  CALL FUNCTION 'ARCHIVE_PUT_RECORD'
    EXPORTING
      archive_handle   = p_handle
      record           = ekko
      record_structure = 'EKKO'.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKPO'
      TABLES
        table            = gt_ekpo.

MS_SERVICE_ARCHIVE_OBJECT
      CALL FUNCTION 'MS_SERVICE_ARCHIVE_OBJECT'
        EXPORTING
          archive_handle     = p_handle
          packno             = ekpo-packno
          object_delete_flag = 'X'.

CUCB_GET_OWNER_OF_CFG
      CALL FUNCTION 'CUCB_GET_OWNER_OF_CFG'                 " 986622
        EXPORTING
          i_instance                   = ekpo-cuobj
        EXCEPTIONS
          invalid_instance             = 1
          instance_is_a_classification = 2
          unknown_owner                = 3
          OTHERS                       = 4.

CU_CONFIG_ARCHIVE_OBJECT
        CALL FUNCTION 'CU_CONFIG_ARCHIVE_OBJECT'
          EXPORTING
            archive_handle     = p_handle
            object_delete_flag = 'X'
            instance           = ekpo-cuobj
            instance_obtab     = 'EKPO'
            instance_keyfields = l_keyfields.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKAB'
      TABLES
        table            = gt_ekab.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKKN'
      TABLES
        table            = gt_ekkn.

ARCHIVE_PUT_TABLE
      CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          archive_handle   = p_handle
          record_structure = 'KONV'
        TABLES
          table            = lt_konv.

ARCHIVE_PUT_TABLE
      CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          archive_handle   = p_handle
          record_structure = 'A016'
        TABLES
          table            = lt_a016.

ARCHIVE_PUT_TABLE
      CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          archive_handle   = p_handle
          record_structure = 'A019'
        TABLES
          table            = lt_a019.

ARCHIVE_PUT_TABLE
      CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          archive_handle   = p_handle
          record_structure = 'A068'
        TABLES
          table            = lt_a068.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'KONM'
      TABLES
        table            = lt_konm.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'KONW'
      TABLES
        table            = lt_konw.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'KONP'
      TABLES
        table            = lt_konp.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'KONH'
      TABLES
        table            = lt_konh.

CHANGEDOCU_ARCHIVE_OBJECT
    CALL FUNCTION 'CHANGEDOCU_ARCHIVE_OBJECT'
      EXPORTING
        archive_handle = p_handle
        objectclass    = cdhdr-objectclas
        objectid       = cdhdr-objectid.

MS_ENTRYSHEET_DATA_ARCHIVE
  CALL FUNCTION 'MS_ENTRYSHEET_DATA_ARCHIVE'                "#EC *
    EXPORTING
      i_ebeln = ekko-ebeln
      i_bstyp = ekko-bstyp
    TABLES
      t_essr  = lt_essr
      t_eskn  = lt_eskn
      t_nast  = lt_nast
    EXCEPTIONS
      OTHERS  = 1.




ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'ESSR'
      TABLES
        table            = lt_essr.

SELECT_TEXT
      CALL FUNCTION 'SELECT_TEXT'
        EXPORTING
          id         = stxh-tdid
          language   = stxh-tdspras
          name       = l_textname
          object     = 'ESSR'
        IMPORTING
          entries    = l_txt_entries
        TABLES
          selections = lt_thead.

TEXT_ARCHIVE_OBJECT
          CALL FUNCTION 'TEXT_ARCHIVE_OBJECT'
            EXPORTING
              archive_handle     = p_handle
              client             = sy-mandt
              id                 = lt_thead-tdid
              language           = lt_thead-tdspras
              name               = lt_thead-tdname
              object             = lt_thead-tdobject
              object_delete_flag = 'X'.

CHANGEDOCU_ARCHIVE_OBJECT
      CALL FUNCTION 'CHANGEDOCU_ARCHIVE_OBJECT'
        EXPORTING
          archive_handle = p_handle
          objectclass    = cdhdr-objectclas
          objectid       = cdhdr-objectid.

MS_SERVICE_ARCHIVE_OBJECT
        CALL FUNCTION 'MS_SERVICE_ARCHIVE_OBJECT'           "#EC *
          EXPORTING
            archive_handle          = p_handle
            packno                  = lt_essr-packno
            object_delete_flag      = 'X'
          EXCEPTIONS
            wrong_access_to_archive = 1
            OTHERS                  = 2.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'ESKN'
      TABLES
        table            = lt_eskn.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'NAST'
      TABLES
        table            = lt_nast.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKBE'
      TABLES
        table            = lt_ekbe.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKBE_MA'
      TABLES
        table            = lt_ekbe_ma.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKBEH'
      TABLES
        table            = lt_ekbeh.

ARCHIVE_PUT_TABLE
      CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          archive_handle   = p_handle
          record_structure = 'EKBE_SRV_SUM'
        TABLES
          table            = lt_ekbe_srv_sum.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKBEH_MA'
      TABLES
        table            = lt_ekbeh_ma.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKBZ'
      TABLES
        table            = lt_ekbz.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKBZ_MA'
      TABLES
        table            = lt_ekbz_ma.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKBZH'
      TABLES
        table            = lt_ekbzh.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKBZH_MA'
      TABLES
        table            = lt_ekbzh_ma.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKET'
      TABLES
        table            = lt_eket.

ARCHIVE_PUT_TABLE
        CALL FUNCTION 'ARCHIVE_PUT_TABLE'
          EXPORTING
            archive_handle   = p_handle
            record_structure = 'RESB'
          TABLES
            table            = lt_resb.

CHANGEDOCU_ARCHIVE_OBJECT
        CALL FUNCTION 'CHANGEDOCU_ARCHIVE_OBJECT'
          EXPORTING
            archive_handle = p_handle
            objectclass    = cdhdr-objectclas
            objectid       = cdhdr-objectid.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKETH'
      TABLES
        table            = lt_eketh.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKEK'
      TABLES
        table            = lt_ekek.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKEKH'
      TABLES
        table            = lt_ekekh.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKEH'
      TABLES
        table            = lt_ekeh.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKEHH'
      TABLES
        table            = lt_ekehh.

ARCHIVE_PUT_RECORD
    CALL FUNCTION 'ARCHIVE_PUT_RECORD'
      EXPORTING
        archive_handle   = p_handle
        record           = l_eikp
        record_structure = 'EIKP'.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EIPO'
      TABLES
        table            = lt_eipo.

CHANGEDOCU_ARCHIVE_OBJECT
  CALL FUNCTION 'CHANGEDOCU_ARCHIVE_OBJECT'
    EXPORTING
      archive_handle = p_handle
      objectclass    = cdhdr-objectclas
      objectid       = cdhdr-objectid.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'NAST'
      TABLES
        table            = lt_nast.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKPV'
      TABLES
        table            = lt_ekpv.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKES'
      TABLES
        table            = lt_ekes.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKPA'
      TABLES
        table            = lt_ekpa.

CHANGEDOCU_ARCHIVE_OBJECT
  CALL FUNCTION 'CHANGEDOCU_ARCHIVE_OBJECT'
    EXPORTING
      archive_handle = p_handle
      objectclass    = cdhdr-objectclas
      objectid       = cdhdr-objectid.

CHANGEDOCU_ARCHIVE_OBJECT
  CALL FUNCTION 'CHANGEDOCU_ARCHIVE_OBJECT'
    EXPORTING
      archive_handle = p_handle
      objectclass    = cdhdr-objectclas
      objectid       = cdhdr-objectid.

SELECT_TEXT
  CALL FUNCTION 'SELECT_TEXT'
    EXPORTING
      id         = stxh-tdid
      language   = stxh-tdspras
      name       = l_textname
      object     = 'EKKO'
    IMPORTING
      entries    = l_txt_entries
    TABLES
      selections = lt_thead.

TEXT_ARCHIVE_OBJECT
      CALL FUNCTION 'TEXT_ARCHIVE_OBJECT'
        EXPORTING
          archive_handle     = p_handle
          client             = sy-mandt
          id                 = lt_thead-tdid
          language           = lt_thead-tdspras
          name               = lt_thead-tdname
          object             = lt_thead-tdobject
          object_delete_flag = 'X'.

SELECT_TEXT
  CALL FUNCTION 'SELECT_TEXT'
    EXPORTING
      id         = stxh-tdid
      language   = stxh-tdspras
      name       = l_textname
      object     = 'EKPO'
    IMPORTING
      entries    = l_txt_entries
    TABLES
      selections = lt_thead.

TEXT_ARCHIVE_OBJECT
      CALL FUNCTION 'TEXT_ARCHIVE_OBJECT'
        EXPORTING
          archive_handle     = p_handle
          client             = sy-mandt
          id                 = lt_thead-tdid
          language           = lt_thead-tdspras
          name               = lt_thead-tdname
          object             = lt_thead-tdobject
          object_delete_flag = 'X'.

SELECT_TEXT
  CALL FUNCTION 'SELECT_TEXT'
    EXPORTING
      id         = stxh-tdid
      language   = stxh-tdspras
      name       = l_textname
      object     = 'EKKO'
    IMPORTING
      entries    = l_txt_entries
    TABLES
      selections = lt_thead.

TEXT_ARCHIVE_OBJECT
      CALL FUNCTION 'TEXT_ARCHIVE_OBJECT'
        EXPORTING
          archive_handle     = p_handle
          client             = sy-mandt
          id                 = lt_thead-tdid
          language           = lt_thead-tdspras
          name               = lt_thead-tdname
          object             = lt_thead-tdobject
          object_delete_flag = 'X'.

SELECT_TEXT
  CALL FUNCTION 'SELECT_TEXT'
    EXPORTING
      id         = stxh-tdid
      language   = stxh-tdspras
      name       = l_textname
      object     = 'EKPO'
    IMPORTING
      entries    = l_txt_entries
    TABLES
      selections = lt_thead.

TEXT_ARCHIVE_OBJECT
      CALL FUNCTION 'TEXT_ARCHIVE_OBJECT'
        EXPORTING
          archive_handle     = p_handle
          client             = sy-mandt
          id                 = lt_thead-tdid
          language           = lt_thead-tdspras
          name               = lt_thead-tdname
          object             = lt_thead-tdobject
          object_delete_flag = 'X'.

ADDRESS_ARCHIVE_OBJECT
    CALL FUNCTION 'ADDRESS_ARCHIVE_OBJECT'
      EXPORTING
        archive_handle      = p_handle
        address_object_type = '1'
        address_number      = lv_addr
        address_reference   = addr_ref.

ADDRESS_ARCHIVE_OBJECT
  CALL FUNCTION 'ADDRESS_ARCHIVE_OBJECT'
    EXPORTING
      archive_handle      = p_handle
      address_object_type = '1'
      address_number      = lv_addr                         "^_1833581
      address_reference   = addr_ref.

ARCHIVE_PUT_TABLE
  CALL FUNCTION 'ARCHIVE_PUT_TABLE'
    EXPORTING
      archive_handle   = p_handle
      record_structure = 'EREV'
    TABLES
      table            = lt_erev.

CHANGEDOCU_ARCHIVE_OBJECT
    CALL FUNCTION 'CHANGEDOCU_ARCHIVE_OBJECT'
      EXPORTING
        archive_handle = p_handle
        objectclass    = cdhdr-objectclas
        objectid       = cdhdr-objectid.

ARCHIVE_PUT_TABLE
  CALL FUNCTION 'ARCHIVE_PUT_TABLE'
    EXPORTING
      archive_handle   = p_handle
      record_structure = 'MLWERE'
    TABLES
      table            = lt_mlwere.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'MLBE'
      TABLES
        table            = lt_mlbe.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'MLBECR'
      TABLES
        table            = lt_mlbecr.

ARCHIVE_PUT_TABLE
*        CALL FUNCTION 'ARCHIVE_PUT_TABLE'
*          EXPORTING
*            archive_handle   = p_handle
*            record_structure = 'SER08'
*          TABLES
*            table            = lt_ser08.

MMBSI_EKKO_TECH_SINGLE_READ
  CALL FUNCTION 'MMBSI_EKKO_TECH_SINGLE_READ'
    EXPORTING
      iv_ebeln         = ekko-ebeln
    IMPORTING
      es_ekko_tech     = ls_ekko_tech
    EXCEPTIONS
      record_not_found = 1
      OTHERS           = 2.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'EKKO_TECH'
      TABLES
        table            = lt_ekko_tech.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'MMBSI_PO_SRM_INF'
      TABLES
        table            = lt_srm_inf.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'FPLA'
      TABLES
        table            = lt_fpla.

ARCHIVE_PUT_TABLE
    CALL FUNCTION 'ARCHIVE_PUT_TABLE'
      EXPORTING
        archive_handle   = p_handle
        record_structure = 'FPLT'
      TABLES
        table            = lt_fplt.

SD_VBUK_SELECT
        CALL FUNCTION 'SD_VBUK_SELECT'
          EXPORTING
            i_document_number  = ekkn-vbeln
          IMPORTING
            e_vbuk             = vbuk
          EXCEPTIONS
            document_not_found = 1
            OTHERS             = 2.

ARCHIVE_PROTOCOL_COLLECT_APPL
            CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT_APPL'
              EXPORTING
                i_object  = ekko-ebeln
                i_msgtype = '02'
                i_text    = text-016.

IAOM_OM_READ_PROR_FROM_PO
    CALL FUNCTION 'IAOM_OM_READ_PROR_FROM_PO'
      EXPORTING
        i_po_number          = ld_ekpo->ebeln
        i_po_item_nr         = ld_ekpo->ebelp
      IMPORTING
        e_order_nr           = lv_order
        e_archivable         = lv_archive
      EXCEPTIONS
        no_production_order  = 1
        error_occurred       = 2
        multiple_assignments = 3
        OTHERS               = 4.

IAOM_OM_ARCHIVABLE
    CALL FUNCTION 'IAOM_OM_ARCHIVABLE'
      EXPORTING
        i_po_number           = ld_ekpo->ebeln
        i_po_item_nr          = ld_ekpo->ebelp
        i_set_archivable      = abap_true
        i_without_commit_work = abap_true
      IMPORTING
        e_msg                 = lt_msg
      EXCEPTIONS
        wrong_input           = 1
        OTHERS                = 2.


Contribute (Add Comments)

Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.

The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.

This will then be available for everyone to easily find by simply searching on the report name RM06EW47 or its description.


   
 

RM06EW47 - Purchasing Document Archiving: Write Program
RM06EW47 - Purchasing Document Archiving: Write Program
RM06EW30TOI - Include RM06EW30TOI
RM06EW30 - Write Program: Archiving of Purchasing Documents
RM06EW30 - Write Program: Archiving of Purchasing Documents
RM06EW00 - Purchasing Documents per Supplying Plant