Kelly, AFAIK you must call the CEERAN0 API to get random numbers in ILE/Cobol (at least up thru V4R5). Try this link at News400: http://www.as400network.com/Forums/Search_Results.cfm?CFApp=19#Message57169 if this doesn't work, look at http://www.as400network.com/as400forums/ and access the Cobol forum, then search for "random". If your still having a problem, let me know and I'll send it to you. Terry -----Original Message----- From: Kelly Cookson [mailto:email@example.com] Sent: Friday, August 24, 2001 9:10 AM To: COBOL400-L@midrange.com Subject: RANDOM function with COBOL400? Newbie question. I have to generate a list of randomly selected employees for drug testing. I was thinking of using the RANDOM function. Unless someone has a better idea! :) I can't seem to get the RANDOM function coded properly. When I code the following line using SEU: COMPUTE X = FUNCTION RANDOM. SEU highlights the line and gives the following error message: "ANS COBOL reserved word FUNCTION will be accepted as a nonreserved word. A period is required before RANDOM. Line rejected." I tried coding the variation: COMPUTE X = RANDOM. and got the error message: "RANDOM not arithmetic expression. Line rejected." What am I missing here? How do I use the RANDOM function in COBOL400? Thanks in advance. Kelly __________________________________________________ Do You Yahoo!? Make international calls for as low as $.04/minute with Yahoo! Messenger http://phonecard.yahoo.com/ _______________________________________________ This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list To post a message email: COBOL400-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/cobol400-l or email: COBOL400-Lfirstname.lastname@example.org
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.