FUNCTION {{P}}MIX_SAMPLE IMPORTING it_tints TYPE {{P}}PAINT_MIX=>TY_TINTS EXPORTING ev_volume TYPE decfloat34 EXCEPTIONS no_components. IF it_tints IS INITIAL. RAISE no_components. ENDIF. LOOP AT it_tints INTO DATA(ls_tint). ev_volume = ev_volume + ls_tint-quantity_ml. ENDLOOP. ENDFUNCTION.