S3VBRKDL SAP ABAP Report - Archiving billing documents: Deletion program

S3VBRKDL is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for Archiving billing documents in SD: Deletion program This program deletes billing documents from the database, after they have been written from the write program into the archive files...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 S3VBRKDL 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 S3VBRKDL

INCLUDE ARCHCOMO.
INCLUDE S3VBRKTB.
INCLUDE RVVBTYP.

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_OPEN_FOR_DELETE
CALL FUNCTION 'ARCHIVE_OPEN_FOR_DELETE'
  EXPORTING
    OBJECT         = 'SD_VBRK'
    TEST_MODE      = TESTLAUF
  IMPORTING
    ARCHIVE_HANDLE = ARCHIVE_HANDLE.

ARCHIVE_GET_INFORMATION
CALL FUNCTION 'ARCHIVE_GET_INFORMATION'
  EXPORTING
    ARCHIVE_HANDLE          = ARCHIVE_HANDLE
  IMPORTING
    ADK_VERSION             = ADK_VERSION
  EXCEPTIONS
    INTERNAL_ERROR          = 1
    WRONG_ACCESS_TO_ARCHIVE = 2
    OTHERS                  = 3.

ARCHIVE_GET_CUSTOMIZING_DATA
CALL FUNCTION 'ARCHIVE_GET_CUSTOMIZING_DATA'
  EXPORTING
    OBJECT                      = 'SD_VBRK'
  IMPORTING
    COMMIT_COUNT_FOR_DELETE_PRG = COMMCNT
    MAINTAIN_INDEX              = INDEX.

NAMETAB_GET
CALL FUNCTION 'NAMETAB_GET'
  EXPORTING
    LANGU               = SY-LANGU
    ONLY                = 'H'
    TABNAME             = 'KONV'
  IMPORTING
    HEADER              = XHEADER
    RC                  = RC_ERR
  TABLES
    NAMETAB             = NAMETAB
  EXCEPTIONS
    INTERNAL_ERROR      = 1
    TABLE_HAS_NO_FIELDS = 2
    TABLE_NOT_ACTIV     = 3
    NO_TEXTS_FOUND      = 4
    OTHERS              = 5.

NAMETAB_GET
CALL FUNCTION 'NAMETAB_GET'
  EXPORTING
    LANGU               = SY-LANGU
    ONLY                = 'H'
    TABNAME             = 'VBFA'
  IMPORTING
    HEADER              = XHEADER
    RC                  = RC_ERR
  TABLES
    NAMETAB             = NAMETAB
  EXCEPTIONS
    INTERNAL_ERROR      = 1
    TABLE_HAS_NO_FIELDS = 2
    TABLE_NOT_ACTIV     = 3
    NO_TEXTS_FOUND      = 4
    OTHERS              = 5.

ARCHIVE_GET_NEXT_OBJECT
  CALL FUNCTION 'ARCHIVE_GET_NEXT_OBJECT'
    EXPORTING
      ARCHIVE_HANDLE = ARCHIVE_HANDLE
    IMPORTING
      OBJECT_ID      = OBJ_ID
      OBJECT_OFFSET  = OBJ_OFFSET
      ARCHIVE_NAME   = ARC_NAME
    EXCEPTIONS
      END_OF_FILE    = 01.

ARCHIVE_DELETE_OBJECT_DATA
  CALL FUNCTION 'ARCHIVE_DELETE_OBJECT_DATA'
    EXPORTING
      ARCHIVE_HANDLE = ARCHIVE_HANDLE.

ARCHIVE_GET_NEXT_RECORD
    CALL FUNCTION 'ARCHIVE_GET_NEXT_RECORD'
      EXPORTING
        ARCHIVE_HANDLE          = ARCHIVE_HANDLE
      IMPORTING
        RECORD                  = ARC_BUFFER-SEGMENT
        RECORD_FLAGS            = ARC_BUFFER-FLAGS
        RECORD_STRUCTURE        = ARC_BUFFER-RNAME
      EXCEPTIONS
        END_OF_OBJECT           = 01
        WRONG_ACCESS_TO_ARCHIVE = 02.

ARC_ADMIN_SAVE_SGL_INDEX_VBRK
    CALL FUNCTION 'ARC_ADMIN_SAVE_SGL_INDEX_VBRK'
      EXPORTING
        XVBRK         = HVBRK
        ARCHIVEKEY    = ARC_NAME
        OBJECT_OFFSET = OBJ_OFFSET
      EXCEPTIONS
        OTHERS        = 1.

ARCHIVE_CLOSE_FILE
CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
  EXPORTING
    ARCHIVE_HANDLE = ARCHIVE_HANDLE.

NAST_PROTOCOL_DELETE
        CALL FUNCTION 'NAST_PROTOCOL_DELETE'
          EXPORTING
            NR = LNAST-CMFPNR.

RV_INVOICE_LIST_INDEX_UPDATE
      CALL FUNCTION 'RV_INVOICE_LIST_INDEX_UPDATE'
        EXPORTING
          DB_ERROR_HANDLING = 'X'
          ARRAY_DELETE      = 'X'
        TABLES
          ZXVBRK            = XVBRK
          ZYVBRK            = YVBRK
          ZXVBRL            = XVBRL
          ZYVBRL            = YVBRL
          ZXVBPA            = XVBPA
          ZYVBPA            = YVBPA
          ZXVBUK            = XVBUK
          ZYVBUK            = YVBUK.

RV_BILLING_INDEX_UPDATE
      CALL FUNCTION 'RV_BILLING_INDEX_UPDATE'
        EXPORTING
          DB_ERROR_HANDLING = 'X'
          ARRAY_DELETE      = 'X'
        TABLES
          FXVBRK            = XVBRK
          FYVBRK            = YVBRK
          FXVBRP            = XVBRP
          FYVBRP            = YVBRP
          FXVBPA            = XVBPA
          FYVBPA            = YVBPA
          FXVBUK            = XVBUK
          FYVBUK            = YVBUK
          FXVBUP            = XVBUP
          FYVBUP            = YVBUP.

RV_INDEX_ARRAY_DELETE
  CALL FUNCTION 'RV_INDEX_ARRAY_DELETE'.

ARCHIVE_GIVE_STATISTICS
  CALL FUNCTION 'ARCHIVE_GIVE_STATISTICS'
    EXPORTING
      archive_handle = ARCHIVE_handle
    TABLES
      table          = stat_tab
    EXCEPTIONS
      internal_error = 1.