re: Random Number generator

[Peter Coffin <phcoffin@xxxxxxxxxx>]

Booth writes:

> I need to generate a random 5-digit number on an AS/400.


The following is adapted from some that I found on one of the magazine
websites, but I can't remember which one... It might be usable if you don't
need something that is *very* random. This is part of a project I'm doing
in idle hours, so it's not something I've even really tested yet.

.....CL0N01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHiLoEqComments+++++++......
     C           *ENTRY    PLIST
     C                     PARM           SHTDWN  1
     C                     PARM           SEED    99
     C                     PARM           BGNNBR  60
     C                     PARM           ENDNBR  60
     C                     PARM           RNDNBR  60
     C           SHTDWN    IFEQ 'Y'
     C                     SETON                     LR
     C                     RETRN
     C                     ENDIF
     C           SEED      IFEQ *ZERO
     C                     TIME           TIME   120
     C           TIME      MULT .000000001SEED
     C                     ENDIF
     C           BGNNBR    IFEQ 0
     C           ENDNBR    ANDEQ0
     C           ENDNBR    ORLT BGNNBR
     C                     Z-ADD1         BGNNBR
     C                     Z-ADD999999    ENDNBR
     C                     ENDIF
     C           ENDNBR    SUB  BGNNBR    RANGE   60
     C                     ADD  1         RANGE
     C                     MULT 9821      SEED
     C                     ADD  .211327   SEED
     C           SEED      MULT RANGE     RNDNBR
     C                     ADD  BGNNBR    RNDNBR
     C                     RETRN

Peter H. Coffin
phcoffin@us.ibm.com
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---