Re: Anyone need a random number generator?

  -----------------------------<snip>------------------------------------

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

---------------------------<unsnip>-----------------------------------
To create a SYS2.FORTLIB dataset:

// job statement
//  EXEC  PGM=IEFBR14
//NEWDATA   DD   DSN=SYS2.FORTLIB,DISP=(,CATLG),UNIT=SYSDA,
//  VOL=SER=(whatever you choose),SPACE=(CYL,(10,10,90)),
//   DCB=SYS1.FORTLIB

Then go back to your JCL and delete the EXEC PGM=IEWL card, the 
SYSPRINT, the SYSUT1. Change SYSLMOD to LKED.SYSLMOD and SYSLIN to 
LKED.SYSLIN

Find A JCL REFERENCE manual and look at the DD statement parameters. If 
I get time I'll send you some excerpts from the z/OS JCL Reference that 
might also be helpful.

Rick