Re: Compile and run later

> Ron Hudson wrote:

><snip>

> > And here is the JCL for creating HUDSON.GO.LOAD(PDS)

> > //MKLIB    JOB (MKLIB),'-HUDSONRA-',
> > //         CLASS=A,
> > //         MSGCLASS=A,
> > //         MSGLEVEL=(1,1)
> > //* *************************************************************
> > //DO       EXEC PGM=IEFBR14
> > //DD00     DD  DISP=(NEW,CATLG,),DSN=HUDSON.GO.LOAD(TEMP),
> > //          SPACE=(CYL,(5,5,89)),VOL=SER=(PUB000),
> > //          DCB=SYS1.LINKLIB,UNIT=SYSALLDA

It is a little odd to me that you would specify a member name on the creation of the PDS in the JCL above.  It may work fine, I've just don't believe I've ever seen it before.

Your problem with disappearing space maybe as posted earlier, there is JCL which releases the unused space.  Whenever you submit a job which uses a cataloged procedure, in this case FORTHCL, the job incorporates the JCL in the procedure.

From FORTHCL:

//SYSLMOD  DD  DSNAME=&GOSET(MAIN),UNIT=SYSDA,DISP=(,PASS),            
//             SPACE=(3072,(30,10,1),RLSE)

That RLSE in the PROC is most likely shrinking your PDS.  The sysout from the execution of your compile and link will probably give the clearest indication of what actually occurred.

Phil