Re: Anyone need a random number generator?
Ron Hudson <[email protected]>
| Newsgroups | gmane.comp.emulators.turnkey-mvs |
|---|---|
| Message-ID | <[email protected]> |
Ok. Now it has begun working... I changed the Disp=(new,catlg) for sys2.fortlib and now I have a sys2.fortlib I compiled and it worked and I verifed that irnd() was not in sys1.fortlib Are there any other functions/subprograms I should think about? : ^ ) (remember our wiki) On Thu, Apr 29, 2010 at 8:19 PM, Ron Hudson <[email protected]> wrote: > 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 >> > >