All About ABAP Technique > English > ABAP Tutorial > ABAP Workbench Tools > Enhancement > Customer Exits > Customer Exits Examples > Project ZWMWS001 > Funtions Exits > EXIT_SAPML03T

*&---------------------------------------------------------------------*
*& Include ZXLTOU14 *
*&---------------------------------------------------------------------*

perform split_removal_quantity
tables
T_LTAPA
changing
I_LTAK
I_LTAP
I_MLVS
I_MGEF
I_T333
I_T340D
I_VORGA
I_AUSML
I_AUSME
* CHANGING
C_LGTY0
C_LGTY1
C_LGTY2
C_LGTY3
C_LGTY4
C_LGTY5
C_LGTY6
C_LGTY7
C_LGTY8
C_LGTY9
C_LGT10
C_LGT11
C_LGT12
C_LGT13
C_LGT14
C_LGT15
C_LGT16
C_LGT17
C_LGT18
C_LGT19
C_LGT20
C_LGT21
C_LGT22
C_LGT23
C_LGT24
C_LGT25
C_LGT26
C_LGT27
C_LGT28
C_LGT29
C_CONTI.

* CALL FUNCTION 'MATERIAL_UNIT_CONVERSION'
* EXPORTING
* INPUT = P_MENGE
* MATNR = P_MATNR
* MEINS = P_MEINS
* MEINH = P_ALTME
* KZMEINH = SPACE
** werks = p_werks
** charge = p_charg
* IMPORTING
* UMREZ = P_UMREZ
* UMREN = P_UMREN
* OUTPUT = P_MENGA
* ADDKO = HLP_ADDKO
* EXCEPTIONS
* CONVERSION_NOT_FOUND = 4.

*break imc_sigit.
* refresh T_LTAPA.
* clear T_LTAPA.
* move I_AUSML to LV_AUSML.
* if i_mlvs-lhmg1 ne 0. "sgt01072005
* LV_LOOP = I_AUSML / I_MLVS-LHMG1.
* LV_NUM = ceil( LV_LOOP ).
* else.
* lv_num = 0.
* endif. "sgt01072005
* do LV_NUM times.
* if I_MLVS-LHMG1 lt I_AUSML.
* T_LTAPA-ANFME = ( I_MLVS-LHMG1 / I_LTAP-UMREZ ).
* T_LTAPA-ANFML = T_LTAPA-ANFME * I_LTAP-UMREZ.
* append T_LTAPA.
* I_AUSML = I_AUSML - I_MLVS-LHMG1.
* ELSE.
* T_LTAPA-ANFME = ( I_AUSML / I_LTAP-UMREZ ).
* T_LTAPA-ANFML = T_LTAPA-ANFME * I_LTAP-UMREZ.
* append T_LTAPA.
* ENDIF.
* enddo.
*
* move LV_AUSML to I_AUSML.