Re: Anyone need a random number generator?

even adding a space parameter - still no sys2.fortlib shows in listcat (no
prefix)

: ^ |



On Thu, Apr 29, 2010 at 7:45 PM, Ron Hudson <[email protected]> wrote:

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