Re: Random

[John P Carr <jpcarr@xxxxxxxxxxxx>]

>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?

Here you go.

H BNDDIR('QC2LE')  

D*------------------------------------------------------
D*   Seed the Random Number Generator                   
D*------------------------------------------------------
D SeedRand      PR                  EXTPROC('srand')  
D  Seed         10U 0 VALUE             
D*                                                      
D*-------------------------------------------------------
D*   Seed the Random Number Generator                    
D*-------------------------------------------------------
D Rand          PR      10I 0 EXTPROC('rand')    
D*                                                       
D*-------------------------------------------------------
D*   Seed the Random Number Generator                    
D*-------------------------------------------------------
D RandNbr       S       10I 0                    
D Seed  S       10I 0                    
D Time          S       12  0                    
 *                                                                     
C               EVAL      *INLR      =  *ON                        
C*                                                                     
C               TIME                    TIME                       
C               EVAL      SEED       =  TIME / 100                 
C*                                                                     
C               CALLP     SEEDRAND(SEED)                           
C*                                                                     
C               DO        10                                       
C*                                                                     
C               EVAL      RANDNBR  = RAND                          
C*                                                                     
C               ENDDO                                              
C*



John Carr
www.400school.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
+---