Skip to Content
avatar image
Former Member

hi gurus

any one give the example of routine not standed,

id :priyasapsd@yahoo.co.in

Add comment
10|10000 characters needed characters exceeded

  • Follow
  • Get RSS Feed

2 Answers

  • avatar image
    Former Member
    Jun 14, 2007 at 04:31 AM

    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.

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Jun 25, 2007 at 12:00 PM
    • 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).

    Add comment
    10|10000 characters needed characters exceeded