|
>> "I need to generate a random 5-digit number on an AS/400. What is good? Is this a Rexx job?" << No need for Rexx if you can use RPG IV (V3R2 or later) for the job. The following prototypes map to the C "rand" and "srand" functions. Examples of use are shown below. * Protos for C Random number functions D GetRandom PR 10U 0 ExtProc('rand') D SetRandom PR ExtProc('srand') D Seed 10U 0 Value * To seed the random number generator to start a new sequence use * the SetRandom function. * Initial seed could be formed by (say) adding job number to the date C CallP SetRandom(JobNumber + Today) * To obtain the next random number in the sequence use GetRandom C Eval NextNumber = GetRandom The only other thing you need is to ensure that you specify the binding directory QC2LE to the CRTBNDRPG command. Jon Paris - AS/400 AD Market Support - paris@ca.ibm.com Phone: (416) 448-4019 - Fax: (416) 448-4414 +--- | 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 +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.