Random Numbers in RPG IV

["Jon Paris - jonp@xxxxxxxxxxxx - AS/400 AD" <jonp@xxxxxxxxxxxx>]

 >I remember a few months ago there was a thread on the MIDRANGE-L
 >list regarding generating random numbers in ILE RPG. I only have
 >some postings of that thread that dealt with using date/timestamps to
 >generate "pseudo" random numbers.

The following code works nicely. It uses the C rand and srand functions.
When compiling you must specify the binding directory QC2LE in order to
pick-up the C run-time library.

Spacing is probably not accurate - I cut this from a presentation not
directly from "live" code!

  D GetRandom   PR       10U   ExtProc('rand')
  D SetRandom   PR             ExtProc('srand')
  D   Seed               10U   Value
   * Get next random number
  C      Eval      NextNumber = GetRandom
   * Seed generator for new sequence (could form seed from date + time)
  C      CallP     SeedRandom( MySeed )

Hope this helps.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *