使用IBM i (OS/400)实现随机数生成与打印

本示例展示了如何在IBM i (OS/400)环境下使用RPG（Report Program Generator）语言生成随机数，并通过显示文件打印出来。通过使用IBM i的内建函数和文件处理能力，实现了简单而有效的随机数生成与输出功能。

     ** RPGLE示例代码 **
      /free
         // 定义文件格式
         dcl-f RandomFile disk(5) usage(*output);

         // 定义变量
         dcl-s RandomNumber int(5);

         // 生成随机数
         RandomNumber = %int(%rand() * 100) + 1;

         // 写入文件
         write RandomRecord;

         // 关闭文件
         *inlr = *on;
      /end-free

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