用RPGLE编写在IBM i上生成随机数的程序

该示例代码展示了如何在IBM i操作系统上，使用RPGLE语言编写生成随机数的程序。该程序使用了系统的伪随机数生成器，并将生成的随机数作为输入参数传递给另外一个程序进行处理。通过该示例代码，用户可以学习如何在IBM i平台上使用RPGLE语言编写程序，并学习如何使用系统提供的随机数生成器。

**free

      ctl-opt option(*srcstmt:*noext) debug;

      dcl-pr randGen int(10);

      dcl-pi randGen int(10);

          seed int(10);

      end-pi;

      dcl-proc randGen;

          dcl-s n int(10);

          dcl-ds randData likeds(rngk0020) inz(*likeds);

          n = %addr(randData);

          qsygrrc = qsys/randseed(n : %size(randData) : seed);

          return qsygrrc;

      end-proc;

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