产生随机数

最新推荐文章于 2024-02-18 22:59:30 发布

zhangzaig

最新推荐文章于 2024-02-18 22:59:30 发布

阅读量426

点赞数

分类专栏： sap abap

sap abap 专栏收录该内容

75 篇文章 4 订阅

订阅专栏

*&---------------------------------------------------------------------*
*& Report ZRANDOM
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZRANDOM.
*-------------------------------------------------------------------
*Random Numbers
*-------------------------------------------------------------------
DATA : MYAMOUNT LIKE BBSEG-WRBTR.
DO 5 TIMES.
PERFORM GENERATE_RND.
ENDDO.

FORM GENERATE_RND.
   CALL FUNCTION'RANDOM_AMOUNT'
    EXPORTING
       RND_MIN   = '1'
       RND_MAX   = '100'
       VALCURR   = 'DEM'
    IMPORTING
       RND_AMOUNT = MYAMOUNT
     EXCEPTIONS
       OTHERS    =1.
    WRITE:/MYAMOUNT.
ENDFORM.          " GENERATE_RND