在IBM i（OS/400）中用RPG程序生成随机数

本示例展示了如何在IBM i（OS/400）中使用RPG程序生成随机数（Random Number）。程序使用系统提供的随机函数进行实现。

     /FREE
      // 声明随机数变量
      DCL VAR(&RANDNUM) TYPE(*DEC) LEN(10 0)

      // 初始化随机数种子
      CALLP SETSRANDOM(VALUE: %INT(%TIME()))

      // 生成随机数
      CALLP GETSRANDOM(NUMBER: &RANDNUM)

      // 输出随机数
      DSPFMT '随机数为：&RANDNUM'

      *INLR = *ON
     /END-FREE

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com