S3LIKPDLS SAP ABAP Report - Archiving deliveries: Deletion program

S3LIKPDLS 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 S3LIKPDLS 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 S3LIKPDLS

INCLUDE ARCH_DELETE_PRG_STANDARD1.

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             = 'RV_LIKP'
      test_mode          = p_deltst
    IMPORTING
          archive_handle = archive_handle.                  "v_n_1259417

DDIF_NAMETAB_GET
  call function 'DDIF_NAMETAB_GET'
    EXPORTING
      tabname   = 'VBFA'
    IMPORTING
      x030l_wa  = xheader
    EXCEPTIONS
      not_found = 1
      others    = 2.

DDIF_NAMETAB_GET
  call function 'DDIF_NAMETAB_GET'
    EXPORTING
      tabname   = 'KONV'
    IMPORTING
      x030l_wa  = xheader
    EXCEPTIONS
      not_found = 1
      others    = 2.

ARCHIVE_GET_CUSTOMIZING_DATA
  call function 'ARCHIVE_GET_CUSTOMIZING_DATA'
    EXPORTING
      object                      = 'RV_LIKP'
    IMPORTING
      commit_count_for_delete_prg = commcnt.

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_flags            = arc_buffer-flags
          record_structure        = arc_buffer-rname
          record_ref              = gf_record_ref
        EXCEPTIONS
          end_of_object           = 01
          wrong_access_to_archive = 02.

ARCHIVE_WRITE_STATISTICS
    call function 'ARCHIVE_WRITE_STATISTICS'
      EXPORTING
        archive_handle          = archive_handle
      EXCEPTIONS
        internal_error          = 1
        wrong_access_to_archive = 2
        others                  = 3.

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_DELIVERY_INDEX_SAVE
    call function 'RV_DELIVERY_INDEX_SAVE'
      EXPORTING
        db_error_handling = 'X'
        array_delete      = 'X'
      TABLES
        fxlikp_t          = lt_xlikp
        fylikp_t          = lt_ylikp
        fxlips            = xlips
        fxvbfa            = xvbfa
        fxvbpa            = xvbpa
        fxvbuk            = xvbuk
        fxvbup            = xvbup
        fylips            = ylips
        fyvbfa            = yvbfa
        fyvbpa            = yvbpa
        fyvbuk            = yvbuk
        fyvbup            = yvbup
        ct_statistics     = gt_statistics
      EXCEPTIONS
        others            = 0.

RV_INDEX_ARRAY_DELETE
  call function 'RV_INDEX_ARRAY_DELETE'
    TABLES
      ct_statistics = gt_statistics.

ARCHIVE_GIVE_STATISTICS
  call function 'ARCHIVE_GIVE_STATISTICS'
    EXPORTING
      archive_handle          = archive_handle
    TABLES
      table                   = gt_statistics
    EXCEPTIONS
      internal_error          = 1
      wrong_access_to_archive = 2
      others                  = 3.

ARCHIVE_GET_INFORMATION
  call function 'ARCHIVE_GET_INFORMATION'
    EXPORTING
      archive_handle   = if_archive_handle
    IMPORTING
      archive_document = lf_archive_document
      archive_name     = lf_archive_name.

PROGRESS_INDICATOR_APPL
  call function 'PROGRESS_INDICATOR_APPL'
    EXPORTING
      i_text               = lf_prog_text
      i_processed          = if_processed
      i_total              = if_total
      i_output_immediately = lf_output_immediately
    IMPORTING                                               "v_n_590818
      e_progress_sent      = lf_progress_sent.

DB_COMMIT
    call function 'DB_COMMIT'.