Report to delete OM objects

Question

hello seniors
can anyone help me with report to delete OM objects?

Answer 1

*& Report  Z_HRP1000_DELETE
REPORT  Z_HRP1000_DELETE.
type-pools truxs.
DATA : it_raw   TYPE truxs_t_text_data, "VARIABLES DECLARATION
       c_space(1)   TYPE  c VALUE ' '.
data : begin of it_1000 occurs 0,
       objid like hrp1000-objid,
       end of it_1000,
       wa_1000 like line of it_1000.
data : it_fail like it_1000 occurs 0 with header line.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_file LIKE rlgrap-filename OBLIGATORY.
parameters : p_otype like hrp1000-otype.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  PERFORM get_file USING p_file.  "CALLING F4 HELP FOR D=FILES
  START-OF-SELECTION.
   PERFORM get_data.       "UPLAODING DATA FROM EXCEL
if it_1000[] is not initial.
  loop at it_1000 into wa_1000.
    delete from hrp1000 where otype = p_otype
                          and objid = wa_1000-objid.
    if sy-subrc <> 0.
      it_fail-objid = wa_1000-objid.
      append it_fail.
      clear it_fail.
    endif.
    clear wa_1000.
  endloop.
endif.
if it_fail[] is not initial.
  loop at it_fail.
   write : it_fail-objid.
   clear it_fail.
  endloop.
endif.
*&      Form  GET_FILE
      text
     -->P_P_FILE  text
form GET_FILE  using    p_p_file.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    CHANGING
        file_name = p_p_file
    EXCEPTIONS
        mask_too_long = 1
    OTHERS = 2.
IF sy-subrc NE 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
endform.                    " GET_FILE
*&      Form  GET_DATA
      text
-->  p1        text
<--  p2        text
form GET_DATA .
*If no file upload  path is mentioned
  IF p_file = c_space.
   MESSAGE
    LEAVE LIST-PROCESSING.
  ENDIF.
*Function module for uploading the file
    CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
    I_FIELD_SEPERATOR          =
      i_line_header              =  'X'
      i_tab_raw_data             =  it_raw
      i_filename                 =  p_file
    TABLES
      i_tab_converted_data       = it_1000
   EXCEPTIONS
     conversion_failed          = 1
     OTHERS                     = 2
  IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
         WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    LEAVE LIST-PROCESSING.
  ENDIF.
endform.                    " GET_DATA