Skip to Content
0
Former Member
Feb 18, 2011 at 09:37 AM

Rounding Thousand

38 Views

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