需求：为N的一个数，在原来基础上浮动在-30~30

 

*&---------------------------------------------------------------------*
*& Report ZZZZ111
*&---------------------------------------------------------------------*
*& 需求：为N的一个数，在原来基础上浮动在-30~30
*&---------------------------------------------------------------------*
REPORT ZZZZ111.


  data n type int4 VALUE 100.
  data p type int4.
  data tmp type int4.

DO 50 TIMES.

    CALL FUNCTION 'QF05_RANDOM_INTEGER'
     EXPORTING
       RAN_INT_MAX         = 30
       RAN_INT_MIN         = -30
     IMPORTING
       RAN_INT             = p.

  tmp = ( n * ( 100 + p ) / 100 ).
  write:/ tmp.

ENDDO.