|
View previous topic :: View next topic
|
| Author |
Message |
Subs M
New User
Joined: 15 May 2014
Posts: 3
Location: India
|
|
|
|
Hello,
I am mentioning two steps in a JCL that I am creating at the moment. Step 1 produces a PS file. Step 2 copies the PS file to a GDG. Both the files have the same attributes. Hence, I am referring back the parameters using REFDD and DCB. The dataset in step 2 is created correctly using the parameters from Step 1. However, the unused space is not released, though the SPACE parameter has a RLSE in it. The SPACE parameter in step 1 has a SPACE=(nnn,(prim,sec),RLSE). Please advise if it is the way that the system would work that it does not release the unused space if referred back using REFDD? I tried with LIKE, still did not release the unused space.
To sum up, the unused space gets released only on the dataset that has been coded with the SPACE parameter(of course with RLSE). Please advise if I am missing something.
Thanks.
Subs. |
|
| Back to top |
|
 |
Marso
REXX Moderator
Joined: 13 Mar 2006
Posts: 1353
Location: Israel
|
|
|
|
Hello Subs,
My guess is that this is the reason:
| z/OS V1R9.0 MVS JCL Reference wrote: |
| RLSE is supported only for sequential, partitioned, and VSAM extended format data sets. |
Pointer to the documentation: RLSE (Partial Release) |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
post the jcl snippet used !
it will save the good soul willing to recreate the problem
from the hassle of retyping 
or at least the two DD as You coded them
You can obfuscate the DSNAMES |
|
| Back to top |
|
|
Gnanas N
Active Member
Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India
|
|
|
|
I re-created the situation with PS data sets.
| Code: |
//STEP5 EXEC PGM=DFSORT
//SORTIN DD *
1
/*
//SORTOUT DD DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(1000,995),RLSE),
// DSN=TEST.S
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
/*
//STEP10 EXEC PGM=DFSORT
//SORTIN DD DISP=SHR,DSN=TEST.S
//SORTOUT DD DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// REFDD=*.STEP5.SORTOUT,
// DSN=TEST.SS
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
/* |
Data Set Information: TEST.S
| Code: |
1st extent tracks . : 1
Secondary tracks . : 995
Current Allocation
Allocated tracks . : 1
Allocated extents . : 1 |
Data Set Information: TEST.SS
| Code: |
1st extent tracks . : 1000
Secondary tracks . : 995
Current Allocation
Allocated tracks . : 1,000
Allocated extents . : 1 |
|
|
| Back to top |
|
|
Subs M
New User
Joined: 15 May 2014
Posts: 3
Location: India
|
|
|
|
Hi Enrico,
Please find the piece of the JCL.
| Code: |
//JOB STATEMENT
//*
//PROC0020 EXEC PGM=IEFBR14
//DD1 DD DSN=PS.FILE,
// AVGREC=K,DISP=(NEW,CATLG),
// SPACE=(02004,(00100,00100),RLSE),
// RECFM=VB,LRECL=2004,
// BLKSIZE=0
//*
//PROC0040 EXEC PGM=IEBGENER,COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD DSN=PS.FILE,DISP=SHR
//SYSUT2 DD DSN=GDG.FILE(+1),
// DISP=(NEW,CATLG),
// REFDD=*.PROC0020.DD1,
// DCB=*.PROC0020.DD1
//*
|
|
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
| Back to top |
|
|
Subs M
New User
Joined: 15 May 2014
Posts: 3
Location: India
|
|
|
|
I thought RLSE would be carried with the SPACE parameter.
If the unused space will not be released, then I shall code the SPACE parameters individually.
Thanks everyone. |
|
| Back to top |
|
|
|
|
