create function module with following steps
Step1. V_IN TYPE WERTV8
FLAG TYPE CHAR1
Step2. V_OUT TYPE WERTV8
Step3.
*"----
""Local Interface:
*" IMPORTING
*" REFERENCE(V_IN) TYPE ZCAP_DRAWN
*" REFERENCE(FLAG) TYPE CHAR1
*" EXPORTING
*" REFERENCE(V_OUT) TYPE ZCAP_DRAWN
*"----
DATA: V_1 TYPE P,
V_2 TYPE P.
DATA: V_DELTA1 TYPE P,
V_DELTA2 TYPE P.
V_1 = V_IN DIV 1000.
V_DELTA1 = ABS( V_1 * 1000 - V_IN ).
*Sharad Dixit
V_2 = V_1 + 1.
V_DELTA2 = V_2 * 1000 - V_IN.
IF FLAG = SPACE.
IF V_DELTA1 < V_DELTA2.
V_OUT = V_1 * 1000.
ELSE.
V_OUT = V_2 * 1000.
ENDIF.
ELSE.
V_OUT = V_1 * 1000.
ENDIF.
Modeator Message: Ask a question with complete details. Search before you post a FAQ.
Edited by: kishan P on Feb 18, 2011 4:11 PM