Re: Pseudo random number routine

Scott,

thanks, that worked.

One problem: I couldn't find a way to exit the program (short of 
SysReq-2).

IIRC, F7 used to be Exit way back when...

Now, I'll boldly go... back to work.

Peter Colpaert
Application Developer
PLI - IT - Kontich, Belgium
-----
Yoda of Borg are we.  Futile is resistance, assimilated will you be.
-----



Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
25/01/2007 10:21
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Pseudo random number routine

I guess I'm too young for this, but how do you run this thing?  I 

compiled

the DSPF36 and RPG36 sources (are those the correct types?)

Yes.

but I can't find a way to start the program itself.

You have to be in the S/36 environment (If it's installed on your system, 
you can start it with STRS36 command).

To compile the display file:

  - type: SDA <enter>
  - Take option #7
  - Input library should be the library containing the QS36SRC file
    where the STREKFM member is
  - Source member = STREKFM
  - Output library = Library to compile to.
  - Display file = STREKFM

It will "schedule compilation" for the display file.  This means it 
submitted the create job to batch.  Wait for it to finish.


To compile the program, type the following, except replace "SRCLIB" and 
"OBJLIB" with the appropriate libraries for the source lib (where the 
QS36SRC file is) and the object lib, respectively.

- RPGC STREK,SRCLIB,,,,,,OBJLIB <enter>


To run the program, type:

   // LOAD STREK <enter>
   // RUN <enter>


Ahhh, the joys of the S/36 environment!