Re: random generate small numbers using Qc3GenPRNs

[Dennis <iseries@xxxxxxxxxxxx>]

In your situation, I would use %rem(result) or %rem(result)+1 - which is ultimately what you have done, but expessed in a semi-portable way.  You seem to imply you've used a DS or MOVE or something similar.

jfranz@xxxxxxxxxxxx wrote:

> I'm using IBM's api Qc3GenPRNs to generate 3 digit random numbers
> (repeats are 
> ok). 
> Using IBM's example it functions well, and you can pass it the "max"
> number so 
> can be used for any (realistic) # digits. 
> However, I find in small #digits like 3 (max 999) it consistently
> returns higher 
> numbers (over 500) than lower numbers. This causes a problem -
> regulatory 
> requirement to randomize a group of records & select all that are <=
> xxx (varies 
> from state to state). The last statement of the pgm takes the huge #
> generated 
> (** 64) and divides by the max (999) - i see that as the problem, but
> my math 
> brain is limited. I've resolved the issue (i think) by using the last
> xxx digits 
> (truncated) of the huge#, and not dividing. does this make sense? I
> need to be 
> able to say this is "standard" solution. 
> Jim Franz 
>
> -- 
> 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.