RE: Randomizing records in a file

Did you get an answer?

This will create random numbers.

d wrkNumber s 15 0
/FREE
exec sql
set :wrkNumber =
rand(digits(MICROSECOND(CURRENT_TIMESTAMP) + day(CURRENT_TIMESTAMP)))
* 1000000000000000 ; // because sql rand returns values < 1

*inlr = *on ;
Return ;
/end-free


This will create smaller random numbers (not my code, I tested it and it works though)
http://www.mysamplecode.com/2011/06/rpgle-generate-random-number-use-rand.html






-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Albert York
Sent: Tuesday, June 05, 2012 1:33 PM
To: RPG programming on the IBM i / System i
Subject: Re: Randomizing records in a file

I'm sorry. I can't get too detailed as there are confidentiality issues.

On Tue, Jun 5, 2012 at 10:17 AM, John Yeung <gallium.arsenide@xxxxxxxxx> wrote:

On Mon, Jun 4, 2012 at 8:18 PM, Albert York <alfromme@xxxxxxxxx> wrote:

In my case I have a list of letter sequences that I need to replace
with a randomly selected sequence.

This is remarkably unenlightening.  It amounts to

Q:  Why do you need to generate random numbers?

A:  Because I need random numbers.

You certainly have no obligation to provide a meaningful description
of your use case, especially since your immediate technical question
was already answered and I stated upfront I was just being nosy.  But
you might as well not have responded at all.

John
--