Re: random generate small numbers using Qc3GenPRNs

[Dennis <iseries@xxxxxxxxxxxx>]

Of course I meant %rem(result:999) etc.

I wrote:

> 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.
>
> -- 
> Sent from my Android phone with K-9 Mail. Please excuse my brevity.