Re: Re: Anyone need a random number generator?

On Thu, Apr 29, 2010 at 9:15 PM, cedarlakebuzzards <
cedarlakebuzzards-/[email protected]> wrote:

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

I did not have a DCB parameter - what is that good for. My track sizes were
somewhat
larger.


>
> 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
>
> I think the blank lines may be because of line folding in the email... see
the wiki.
Ron.


> Ed
>  
>