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
--

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.