Re: CEERAN0 not allways random?

["Beppe Costagliola" <beppecosta@xxxxxxxx>]

I've tried this code with 20,000 numbers
All numbers are different.

H DFTACTGRP(*NO) ACTGRP('QILE') BNDDIR('QC2LE')

Fnumbers   o    f  132        disk
D Seed            S             10I 0
D Random          S              8F
D Number          S             16  0
D c               S              5I 0

D CEERAN0         PR                  ExtProc('CEERAN0')
D  Seed                         10I 0 const
D  Random                        8F   const
D  fc                           12A   Options(*OMIT)

 /Free
  Seed = 0;
  for c = 1 to 20000;
    CEERAN0(Seed:Random:*OMIT);
    Seed = Random * 1234 * c;
    Number = %DecH(Random:30:29) * seed * 9999 ;
    except;
  endfor;

  *InLr = *on;
 /End-Free

Onumbers   e
O                       number        z

----- Original Message ----- 
From: "Titus Kruse" <t_kruse@xxxxxxxxx>
To: "Midrange RPG" <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, April 30, 2004 12:24 PM
Subject: CEERAN0 not allways random?


> Hi!
>
> We're using the API CEERAN0 (availible since V5R2) to add a random number
> for each record in a database file. The field with those numbers is
defined
> 16,0 packed.
>
> It seems like all numbers in the file are different. But doing an SQL
query
> over the 20,000 records grouping by the number shows, that very much
numbers
> are duplicate. Why that?
>
> Maybe is the release V5R1, where the program is running the reason for
this
> strange behaviour? Or do I use the seed parameter not correct? I've
> initialized it on first call with zero and use the return seed for next
call
> and so on.
>
>
> Titus Kruse
> Software-Entwicklung IBM iSeries
> ESW Software Warda KG (GmbH & Co.)
> Telefon: +49.40.682893.22
> Telefax: +49.40.682893.28
> E-Mail: t_kruse@xxxxxxxxx
> Web: www.esw-kg.de
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (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.