RE: FW: Random

["Martin, Booth" <BoothM@xxxxxxxxxxx>]

Let me scream, holler, rant and rave yet again....  

You guys may think it is progress to be sticking all this stuff into RPG,
and probably it is.  But a few years from now when RPG is cluttered up with
all sorts of specialized little tricks, where will the programmers to
maintain it be found? What qualified C programmer is going to be doing RPG
maintenance work?

Jon thinks 10000.01 is a pain in the butt... wait til this stuff starts
hitting the update fan.

Sorry.  I'll be quiet now. No need to call the authorities.


-----Original Message-----
From: boldt@ca.ibm.com [mailto:boldt@ca.ibm.com]
Sent: Monday, February 14, 2000 1:34 PM
To: boothm@goddard.edu
Subject: Re: FW: Random




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