*--Check BOL is assigned to TU or not, if not raise error message
    DATA  lo_tu_query     TYPE REF TO  /scwm/cl_sr_tu_query.
    DATA  lo_log          TYPE REF TO  /scwm/cl_log.

*--Assign Warehouse and Delivery in range variable
    DATA(ls_whse)   = VALUE /scwm/s_sel_whse( 
                      sign = /scmb/cl_search=>sc_sign_i 
                      option = /scmb/cl_search=>sc_eq 
                      low = iv_whse ).
    DATA(ls_docid) = VALUE /scwm/s_sel_dlv_id( 
                      sign = /scmb/cl_search=>sc_sign_i 
                      option = /scmb/cl_search=>sc_eq 
                      low = iv_docid ).
    lo_tu_query->add_whse( is_whse = ls_whse ).
    lo_tu_query->add_dlv_id( is_sel_dlv_id = ls_docid ).

*----------------------------------------------------------------------
*- Read TU
*----------------------------------------------------------------------
    TRY.
        DATA(lo_sr_bom) = /scwm/cl_sr_bom=>get_instance( ).
        lo_sr_bom->query(
          EXPORTING
            io_tu_query = lo_tu_query                     " Class for Searches in Shipping/Receiving
          IMPORTING
            et_bo_tu    = DATA(lt_bo_tu)                  " Table of Business Objects for a Transportation Unit
        ).
      CATCH /scwm/cx_sr_error.                            " Class for Exceptions in Shipping/Receiving
    ENDTRY.

*--Get TU IDENT
    LOOP AT lt_bo_tu INTO DATA(ls_bo_tu).
      ls_bo_tu-bo_ref->get_ident(
        IMPORTING
          et_bo_tu_ident = DATA(lt_ident)                 " Table for Seals for a Transportation Unit
      ).
    ENDLOOP.