hi gurus

[Former Member]

any one give the example of routine not standed,

id :priyasapsd@yahoo.co.in

[Former Member]

• How to give points: Mark your thread as a question while creating it. In the answers you get, you can assign the points by clicking on the stars to the left. You also get a point yourself for rewarding (one per thread).

[Former Member]

Routine for rounding value: A routine number will be given by Abaper during coding the same. The Routine may be required to modify as per requirementof application.

-

---

Include RV64A601

• rounding rule for closest interger value

FORM FRM_KONDI_WERT_601.

• data: da_xkwerx(15).

• unpack xkwert to da_xkwerx.

*

• move '00' to da_xkwerx+13.

*

*

*

• pack da_xkwerx to xkwert.

data : lgort1 like lips-lgort .

data : d1(13) , d6(13) .

data : d2 type p decimals 2 .

data : d3 type p decimals 0 .

data : d4 type p decimals 2 .

data d5(2) .

data : d8(3) .

unpack xkwert to d1 .

d2 = d1 .

d3 = d2 .

unpack d3 to d6.

d5 = d6+11(2) .

if d5 >= 50 .

d8 = 100 - d5 .

d1 = d6 + d8 .

else .

d1 = d6 - d5 .

endif .

*pack d1 to xkwert .

select single lgort into lgort1 from lips where

vbeln = komp-vgbel and

posnr = komp-vgpos .

IF SY-SUBRC = 0 .

if lgort1 = 'JSTO'.

d1 = 0 .

pack d1 to xkwert.

else .

pack d1 to xkwert.

endif .

ELSE .

pack d1 to xkwert.

ENDIF .

-

---

Regards,

Rajesh Banka

Reward points if helpful.