Re: Anyone need a random number generator?

On Thu, Apr 29, 2010 at 7:30 PM, Gerhard Postpischil
<[email protected]>wrote:

> The // without anything else is an end of job card
>

I think I found that one - here is the current state of my deck:

//MYLIB         JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=HUDSON
//COMPILE       EXEC FORTHC,REGION.FORT=384K
//FORT.SYSLIN   DD DSNAME=MYLIB,DISP=(MOD,PASS)
//FORT.SYSABEND DD SYSOUT=A
//FORT.SYSIN    DD *
C RANDOM NUMBER GENERATOR
      FUNCTION IRND(ISEED)
      INTEGER IY
      IY = IABS(MOD(31421 * ISEED + 6927,2**15))
      IRND = IY
      RETURN
      END
//LKED          EXEC PGM=IEWL,PARM='LIST,LET,NCAL,MAP'
//SYSPRINT      DD SYSOUT=A
//SYSLMOD       DD DSN=SYS2.FORTLIB(IRND),UNIT=SYSDA,DISP=(NEW,KEEP)
//SYSUT1        DD UNIT=SYSALLDA,SPACE=(TRK,(15,15))
//SYSLIN        DD DSN=MYLIB,DISP=(OLD,DELETE)
//

My current problem is the link step never happens because the system is
unhappy about not having a sys2.fortlib to put the IRND member in..

I even tried saying its "New" The last error pointed to a space parameter
but I don't know what to put.

Ron