archive_get_next_object

in src/zgoog_cl_archive_utility.clas.abap [0:0]

• 24 lines of code
• 4 McCabe index (conditional complexity)

  METHOD archive_get_next_object.

    CLEAR ev_sy_subrc.

    CALL FUNCTION 'ARCHIVE_GET_NEXT_OBJECT'
      EXPORTING
        archive_handle          = iv_handle
      IMPORTING
        object_offset           = ev_obj_offset
        archive_name            = ev_archive_name
        ev_contain_blocked_data = ev_data_is_blocked
      EXCEPTIONS
        end_of_file             = 1
        OTHERS                  = 2.

    IF sy-subrc IS NOT INITIAL.
      IF sy-subrc = 1.
        ev_end_of_file = abap_true.
        RETURN.
      ELSE.
        ev_sy_subrc = sy-subrc.
      ENDIF.
    ENDIF.

    IF ev_sy_subrc > 1.
      add_bapiret2_from_sy(
       CHANGING ct_bapiret2 = et_return ).
    ENDIF.