Re: FW: Random

[boldt@xxxxxxxxxx]

Andrew wrote:
>Some of us don't know what functions are available to use in the
>C Runtime LIbrary.  Where can one find a list of what C functions are
>available on a 400 that does NOT have a C compiler, and what parameters if
>any are needed for using them.
>
>The answer to this must be in terms that an RPG programmer with
>NO "C" experience will understand and know how to use.

(Sigh)

Not more than a week ago, we had a very similar discussion
either here or on RPG400-L.

For a discussion on translating C prototypes to RPG, read
<http://www.springfieldtn.net/users/leslier/callc.html>

To see a list of function in the C runtime library, go to
<http://publib.boulder.ibm.com:80/cgi-bin/bookmgr/BOOKS/QBJAQY01/1.10>

Here's an example in RPG IV of calling rand and srand:

---------------------------------------------------------------
H dftactgrp(*no) bnddir('QC2LE')
D rand            pr            10i 0 extproc('rand')
D srand           pr                  extproc('srand')
D                               10i 0 value
D num             s             10i 0
D i               s             10i 0
C                   callp     srand(123)
C                   for       i = 1 to 10
C                   eval      num = rand
C     num           dsply
C                   endfor
C                   eval      *inlr = *on
----------------------------------------------------------------

This program displays 10 pseudo-random numbers.

Cheers!  Hans

Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.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
+---