*&---------------------------------------------------------------------*
*& Include          ZBOS_MENU_REQUEST_F01
*&---------------------------------------------------------------------*

*&---------------------------------------------------------------------*
*& Form f_initialization
*&---------------------------------------------------------------------*
FORM f_initialization .

ENDFORM.

*&---------------------------------------------------------------------*
*& Form f_processo_principal
*&---------------------------------------------------------------------*
FORM f_processo_principal .


  BREAK-POINT.

*  DATA: lt_dados TYPE TABLE OF e071.
  DATA: lv_request TYPE trkorr.

  CALL FUNCTION 'TR_REQUEST_CHOICE'
    EXPORTING
      iv_category = 'SYST'
    IMPORTING
      ev_request  = lv_request.
  SELECT *
    FROM e071
    INTO TABLE @DATA(lt_dados)
    WHERE trkorr IN @so_reqst.


  DATA lt_items TYPE TABLE OF tadir.
  DATA ls_items TYPE tadir.

  SELECT *
  FROM tadir
  INTO TABLE lt_items
  FOR ALL ENTRIES IN lt_dados
  WHERE pgmid = lt_dados-pgmid
  AND object = lt_dados-object
  AND obj_name = lt_dados-obj_name(40)
  AND devclass = 'ZBOS'.


  BREAK-POINT.


  DATA: lt_dados2 TYPE TABLE OF e071.

  SELECT *
    FROM e071
    INTO TABLE lt_dados2
    WHERE trkorr = 'A4HK900111'.

  SELECT *
    FROM e071
    APPENDING TABLE lt_dados2
    WHERE trkorr = 'DESK969392'.



  SELECT *
    FROM e071
    APPENDING TABLE lt_dados2
    WHERE trkorr = 'DESK969401'.

  SELECT *
  FROM e071
  APPENDING TABLE lt_dados2
  WHERE trkorr = 'DESK969403'.


  LOOP AT lt_items INTO DATA(ls_item).

    DATA(lv_tabix) = sy-tabix.

    READ TABLE lt_dados2 WITH KEY pgmid = ls_item-pgmid
                                  object = ls_item-object
                                  obj_name = ls_item-obj_name TRANSPORTING NO FIELDS.

    IF sy-subrc IS INITIAL.

      DELETE lt_items INDEX lv_tabix.

    ENDIF.

  ENDLOOP.

  BREAK-POINT.

ENDFORM.