利用IBM i (OS/400)实现随机数生成器

本示例演示如何在IBM i (OS/400)环境中使用RPG编程语言创建一个简单的随机数生成器。通过该生成器，用户可以获取一个指定范围内的随机整数，用于各种应用场景，如密码生成或抽奖活动。

     // RPGLE示例代码
     ctl-opt dftactgrp(*no) main(Main);

     dcl-pr Main;
       *n char(10);
     end-pr;

     dcl-pr RandomNumber Int(10);
       MinValue Int(10) Const;
       MaxValue Int(10) Const;
     end-pr;

     dcl-proc Main;
       dcl-s MinVal Int(10) inz(1);
       dcl-s MaxVal Int(10) inz(100);
       dcl-s Result Int(10);

       // 调用随机数生成器
       Result = RandomNumber(MinVal: MaxVal);

       // 打印生成的随机数
       dsply ('随机数为：' + %char(Result));

     end-proc;

     dcl-proc RandomNumber;
       dcl-pi *n;
         MinValue Int(10) Const;
         MaxValue Int(10) Const;
       end-pi;

       dcl-s RandomNum Int(10);

       // 通过系统提供的API获取随机数
       callp RandomNum = %int(%random() * (MaxValue - MinValue + 1) + MinValue);

       // 返回随机数
       return RandomNum;
     end-proc;

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