Portal | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
swapnil781

New User

Joined: 29 Jul 2009
Posts: 10
Location: Bangalore

 Posted: Tue Nov 15, 2016 6:17 pm    Post subject: RANDOM Function in COBOL Hi, I am trying to write a new COBOL program that can estimate PI by simulating ‘Buffon’s needle’ experiment. I am trying to use the RANDOM function but not able to get the desired results. Requires help for more inputs on RANDOM function, I tried in the Manual but did not get the required help. Inputs in pgm. Distance-between- lines (eg. 100 for 100 mm.) Needle-length (eg.40 for 40 mm) Needle-drops (eg 1000 ) Buffons Needle formula Pi = 2 * L /(X * P) To calculate the value 'P' I am using RANDOM function but not able to get the same.

Akatsukami

Global Moderator

Joined: 03 Oct 2009
Posts: 1789
Location: Bloomington, IL

 Posted: Tue Nov 15, 2016 6:25 pm    Post subject: Duplicate of thread on another board; locked.
Robert Sample

Global Moderator

Joined: 06 Jun 2008
Posts: 8555
Location: Dubuque, Iowa, USA

 Posted: Tue Nov 15, 2016 6:26 pm    Post subject: Reply to: RANDOM Function in COBOL Is this for IBM's contest? There was the exact same topic on the Beginner's and Student's Forum the other day. I will repeat my comments from that forum: The Enterprise COBOL Language Reference manual tells you plenty about the seed for RANDOM: The seed value can be whatever you want between 0 and 2147483645 (in COBOL 5.1). The seed value is only needed for the first use of RANDOM; after that, if no parameter is passed to RANDOM the next value in the current sequence will be returned. If you don't specify a seed value the first call, RANDOM uses zero. For any given seed value, the pseudorandom sequence returned will be the same. So for simplicity of testing you probably want to use a constant for the seed value; for your actual run(s) you probably want to use something that will vary (based on time, for example -- calculate seconds elapsed today / this week / this month or this year). Note that the value returned by RANDOM needs to be stored in a COMP-1 or COMP-2 variable since it represents a floating point value between 0 and 1.
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics COBOL reading from SYSIN jzhardy COBOL Programming 1 Mon Sep 21, 2020 2:37 pm how to read accounting information in... jzhardy COBOL Programming 1 Mon Sep 21, 2020 9:57 am DB2 - row_number function - Need 1st ... Q5P418 DB2 5 Wed Sep 09, 2020 8:35 am NOT IN clause in COBOL pgm mramvivek COBOL Programming 8 Thu Aug 20, 2020 4:48 am Restart logic by using cursor name in... Twinkle22 Mainframe Interview Questions 1 Wed Jul 29, 2020 11:26 am

 © 2003-2020 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us