Re: CEERAN0 not allways random?

["Beppe Costagliola" <beppecosta@xxxxxxxx>]

In the past I had to generate unique names (1 char + 9 char/number) and this
is part of the code I used.

Beppe.


----- Original Message ----- 
From: "Titus Kruse" <t_kruse@xxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, April 30, 2004 2:17 PM
Subject: Re: CEERAN0 not allways random?


> >
> >  /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;
>
> Hmm, why do you take the random number for the new seed? Here my coding:
>
> >   Seed = 0;
> >   for c = 1 to 20000;
> >     CEERAN0(Seed:Random:*OMIT);
> >     Number = %Dec(Random) * 10 ** 16;
> >   except;
> >   endfor;
>
>
>
> _______________________________________________
> 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.