Re: Anyone need a random number generator?

--- In [email protected], Ron Hudson <hudson.ra@...> 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 hudson.ra@... wrote:
>
> >
> >
> > On Thu, Apr 29, 2010 at 7:30 PM, Gerhard Postpischil gerhardp@...
> > > 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
> >
>
Whenever you create a new dataset, you must specify the space parameter
and DCB.  The general format is
   SPACE=(type,(pri,sec,dir))
where
  type is basic DASD allocations - TRKS, CYLS, or blocksize
  pri is the primary number of 'types' to allocation
  sec is the secondary number of 'types' to allocate if the primary space
fills up
  dir is the number of directory blocks to allocate for the PDS.

My suggestion to you is to set up your SYSLMOD like this:
//SYSLMOD DD DSN=SYS2.FORTLIB(IRND),DISP=(NEW,CATLG),
//      UNIT=SYSDA,SPACE=(TRK,(1,1,1)),DCB=(RECFM=U,BLKSIZE=1024)

This will create a cataloged dataset SYS2.FORTLIB with member name IRND.
One track and one directory block will be allocated for the dataset.

Also, get rid of the blank lines of make the comments with //* in cols
1-3

Ed