需求:为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'EXPORTINGRAN_INT_MAX = 30RAN_INT_MIN = -30IMPORTINGRAN_INT = p.tmp = ( n * ( 100 + p ) / 100 ).write:/ tmp.ENDDO.