Re: Random

[boothm@xxxxxxxxxxxxxxxxx]

Back in 1997 this came up.  Here's the program someone (maybe Jon Paris?) 
posted.

I hope this posts OK and doesn't jump all over the place.  If its 
unreadable and you want it, let me know and I'll send it to you as an 
attachment.

/* .............................................................. */ 
/* >Does Rexx have the ability to randomly generate a 5-digit number? + 
                                                                      + 
Here you go. Use either rn or rn2 depending on whether you want       + 
the numbers to run from 10,000 to 99,999 (rn) or to run from          + 
0 to 99,999 with leading zeroes for numbers <10,000.                 */ 
 
/* Generate a 5 digit random number */ 
/* R.N. runs from 10,000 to 99,999 */ 
   rn=RANDOM(10000,99999) 
Say rn 
 
/*   R.N. runs from 0 to 99,999, with                           */ 
/*   leading zeroes padded to make                              */ 
  /* 5 digits */ 
 /*  rn2=RANDOM(0,99999)                                        */ 
 /* rn2=RIGHT(rn2,5,"0")                                       */ 
 /*  say rn2                                                     */ 
 
 
/* .............................................................. */ 
 
 
             Exit                                                    
_______________________
Booth Martin
boothm@earth.goddard.edu
http://www.spy.net/~booth
_______________________




"Al Barsa, Jr." <barsa2@ibm.net>
Sent by: owner-midrange-l@midrange.com
02/11/2000 08:47 PM
Please respond to MIDRANGE-L

 
        To:     MIDRANGE-L@midrange.com
        cc: 
        Subject:        Re: Random


At 10:43 AM 02/11/2000 -0600, you wrote:
>I recently changed jobs and I can't find the source code for the random
>number generator.
>I know it was published on Midrange or News some years ago.
>Does anyone know where I can get it?

There is a TAA Tool called Generate Random Number (GENRANNBR).

Al


+--------------------------------------------------+
| Please do not send private mail to this address. |
| Private mail should go to barsa@ibm.net.         |
+--------------------------------------------------+

Al Barsa, Jr. - Account for Midrange-L
Barsa Consulting, LLC. 
400 > 390

Phone:                           914-251-1234
Fax:                             914-251-9406
http://www.barsaconsulting.com
http://www.taatool.com

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@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
+---




+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@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
+---