Quantity conversion

FORM convert_qty  USING    fp_v_matnr TYPE matnr
                           fp_v_qty_in TYPE /bev4/plmenge
                           fp_v_uom_in TYPE /bev4/plmeins
                           fp_v_uom_out TYPE /bev4/plmeins
                  CHANGING fp_v_qty_out TYPE /bev4/plmenge.

  DATA:
    l_v_input TYPE f,
    l_v_output TYPE f.

  l_v_input = fp_v_qty_in.

  CALL FUNCTION 'MATERIAL_UNIT_CONVERSION'
    EXPORTING
      input                = l_v_input
      kzmeinh              = c_set
      matnr                = fp_v_matnr
      meinh                = fp_v_uom_in
    IMPORTING
      output               = l_v_input
    EXCEPTIONS
      conversion_not_found = 1
      input_invalid        = 2
      material_not_found   = 3
      meinh_not_found      = 4
      meins_missing        = 5
      no_meinh             = 6
      output_invalid       = 7
      overflow             = 8
      OTHERS               = 9.
  IF sy-subrc <> 0.
    CLEAR fp_v_qty_out.
    RETURN.
  ENDIF.

  CALL FUNCTION 'MATERIAL_UNIT_CONVERSION'
    EXPORTING
      input                = l_v_input
      matnr                = fp_v_matnr
      meinh                = fp_v_uom_out
    IMPORTING
      output               = l_v_output
    EXCEPTIONS
      conversion_not_found = 1
      input_invalid        = 2
      material_not_found   = 3
      meinh_not_found      = 4
      meins_missing        = 5
      no_meinh             = 6
      output_invalid       = 7
      overflow             = 8
      OTHERS               = 9.
  IF sy-subrc <> 0.
    CLEAR fp_v_qty_out.
    RETURN.
  ENDIF.

  fp_v_qty_out = l_v_output.

ENDFORM.                    " CONVERT_QTY