Re: Pseudo random number routine

But you'd need an 8-inch disk drive to read it.

jstevens@xxxxxxxxxxxxxx wrote:

I had it on my S/36. Never took it to the AS/400 though. I bet it's still sitting on someone's disk somewhere though.

Jeff Stevens
Mize, Houser & Co. P.A.
913 451 1882
JStevens@xxxxxxxxxxxxxx

Nick_Radich@xxxxxxxxxxxxxx Sent by: rpg400-l-bounces@xxxxxxxxxxxx

01/24/2007 12:08 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Pseudo random number routine






I haven't seen another one for years.  But, it was written in RPG!!

Nick Radich
Sr. Programmer/Analyst
EPC Molding, Inc.
Direct  (320) 679-6683
Toll free  (800) 388-2155  ext. 6683
Fax  (320) 679-4516
nick_radich@xxxxxxxxxxxxxx

DennisRootes@xxxxxxxxxxx Sent by: rpg400-l-bounces@xxxxxxxxxxxx

01/24/07 12:01 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Subject
RE: Pseudo random number routine

There was a Star Trek game on the S/34? Do tell. Is there one for the AS/400?

message: 7
date: Wed, 24 Jan 2007 11:17:55 -0600
from: Nick_Radich@xxxxxxxxxxxxxx
subject: RE: Pseudo random number routine

Many years ago I needed a random number generator for a client that

wanted

random numbers for their Item Number. We tried REXX, but it was to slow.

So, I took the code from the old Star Trek game on a S/34,used to initially position the Klingons, modified it a bit for their purposes and

put it into Production. Games work great, they have some neat code in there.

Nick Radich
Sr. Programmer/Analyst
EPC Molding, Inc.
Direct  (320) 679-6683
Toll free  (800) 388-2155  ext. 6683
Fax  (320) 679-4516