RK4BFELC_WRI SAP ABAP Report - Archiving CO-PA Object Level: Write Program

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

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_NEW_OBJECT
      CALL FUNCTION 'ARCHIVE_NEW_OBJECT'
        EXPORTING
          archive_handle = handle.

ARCHIVE_PUT_TABLE
     CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          archive_handle   = handle
          record_structure = tabname
        TABLES
           table            = .

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

SELECT_OPTIONS_RESTRICT
  CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
       EXPORTING
            RESTRICTION = GT_RESTRICT.

RKE_VALUE_REQUEST_VERSI
  CALL FUNCTION 'RKE_VALUE_REQUEST_VERSI'
       EXPORTING
            ERKRS = G_ERKRS
       IMPORTING
            VERSI = VERSI-LOW.

RKE_VALUE_REQUEST_VERSI
  CALL FUNCTION 'RKE_VALUE_REQUEST_VERSI'
       EXPORTING
            ERKRS = G_ERKRS
       IMPORTING
            VERSI = VERSI-HIGH.

RKE_COST_CHECK_EP_INDEX3
  CALL FUNCTION 'RKE_COST_CHECK_EP_INDEX3'
       EXPORTING
            ERKRS = G_ERKRS.

RKE_GET_ERKRS_ATTR
    CALL FUNCTION 'RKE_GET_ERKRS_ATTR'
         EXPORTING
              ERKRS       = G_ERKRS
         IMPORTING
              BLOCKFACTOR = G_BLOCKFACTOR.

RKE_READ_ERKRS_MESSAGE
    CALL FUNCTION 'RKE_READ_ERKRS_MESSAGE'
         EXPORTING
              I_ERKRS  = G_ERKRS
         IMPORTING
              E_V_TKEB = GS_TKEB.

RKE_GET_NUMBER_OF_PERIODS
    CALL FUNCTION 'RKE_GET_NUMBER_OF_PERIODS'
         EXPORTING
              PERFLAG   = GS_TKEB-PERFLAG
              PERIV     = GS_TKEB-PERIV
              YEAR      = GJAHR-LOW
         IMPORTING
              ANZSP     = G_ANZSP
              FIRSTSPEC = G_FIRSTSPEC.

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

ADK_ABILITY_OF_CHECKS
*    CALL FUNCTION 'ADK_ABILITY_OF_CHECKS'
*         EXPORTING
*              XDISABLE_CHECKS = 'X'.

ARCHIVE_OPEN_FOR_WRITE
  CALL FUNCTION 'ARCHIVE_OPEN_FOR_WRITE'
    EXPORTING
      output_sel_screen_when_dialog = space
      call_delete_job_in_test_mode  = v_deltst
      create_archive_file           = l_create_file
      object                        = 'COPAB_FELC'
      comments                      = u_comment
    IMPORTING
      archive_handle                = r_handle.

DB_COMMIT
  CALL FUNCTION 'DB_COMMIT'.

ARCHIVE_PROTOCOL_COLLECT
  CALL FUNCTION 'ARCHIVE_PROTOCOL_COLLECT'
    EXPORTING
      i_object  = l_objnrastext
      i_msgtype = v_msgtype
      i_msgid   = 'KE'
      i_msgno   = v_msgno
      i_msgv1   = l_objnrastext
      i_msgv2   = v_msgv2.

ARCHIVE_WRITE_STATISTICS
  CALL FUNCTION 'ARCHIVE_WRITE_STATISTICS'
    EXPORTING
      archive_handle = v_handle.

ARCHIVE_PROTOCOL_WRITE
  CALL FUNCTION 'ARCHIVE_PROTOCOL_WRITE'.

ARCHIVE_CLOSE_FILE
  CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
    EXPORTING
      archive_handle = v_handle.

PROGRESS_INDICATOR














  CALL FUNCTION 'PROGRESS_INDICATOR'
    EXPORTING
      i_msgid              = 'KE'
      i_msgno              = '176'
      i_processed          = v_processed
      i_output_immediately = v_immediate
    IMPORTING
      e_progress_sent      = l_sent.

DB_COMMIT
    CALL FUNCTION 'DB_COMMIT'.

RKE_CONVERT_SEL_TO_PERBL_SEL
    CALL FUNCTION 'RKE_CONVERT_SEL_TO_PERBL_SEL'
         EXPORTING
              ERKRS            = G_ERKRS
*             LEDGER           = '01'
         TABLES
              PERBL_PHYSNR_SEL = GT_PERBL_PERIO
              SELECTION_TABLE  = GT_SELTAB.

RKE_CONVERT_PHYSNR_TO_LOGNR
       CALL FUNCTION 'RKE_CONVERT_PHYSNR_TO_LOGNR'
         EXPORTING
           ERKRS                   = G_ERKRS
           PERBL                   = s_perbl
           POS                     = '01'
        IMPORTING
           PERIO                   = s_perio
           PERIO2                  = s_perio2
*        EXCEPTIONS
*          I_ERKRS_NOTFOUND        = 1
*          I_PERIV_NOTEDITED       = 2
*          I_PHYSNR_INVALID        = 3
*          OTHERS                  = 4
                 .