MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

ADRDSSU (Compress PDS datasets)

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Data Management
View previous topic :: View next topic  
Author Message
Jim Oates
Beginner


Joined: 06 Mar 2012
Posts: 9
Topics: 3

PostPosted: Mon Apr 09, 2012 2:28 pm    Post subject: ADRDSSU (Compress PDS datasets) Reply with quote

How can a single job check for five HLQ's and compress (and release space) for various PDS datasets? The list of PDS datasets and volumes will change each time the scheduled (not manual) job is executed.

Based on the documentation for ADRDSSU (DF/DSS) it seems a series of steps are required for each HLQ just to generate the INCLUDE (FILTERDD) and DYNAM information for the selection. Then one step per volume is required for the COMPRESS. Surely I am missing something obvious.


ExampleAssume the following HLQ's are scanned at each execution.
1. P.DABC.X+
2. P.DXYZ.X+
3. P.DJKL.X+

This week
    HLQ 1 returns 3 datasets on 3 vols VOL1, VOL2, VOL3
    HLQ 2 returns 2 datasets on 2 volumes on VOL1 and VOL4
    HLQ 3 returns 2 datasets on 2 volumes VOL3 and VOL5


At this point it seems five compress steps, one for each volume, are required.
VOL1 2 DSNs
VOL2 1 DSN
VOL3 2 DSNs
VOL4 1 DSN
VOL5 1 DSN


What I have so far.

    1. A step to find all PDS datasets to be compressed that match one of the five HLQ's. (SAVELIST EXEC ACBJBAOB - one step per HLQ.)

    2. A step to generate a report from the above list. (GENREP EXEC ACBJBAOB - one step for each HLQ.)

    3. A program to create a FILTERDD DSN containing the INCLUDE statements and the DYNAM entry for each volume.
Back to top
View user's profile Send private message
Jim Oates
Beginner


Joined: 06 Mar 2012
Posts: 9
Topics: 3

PostPosted: Mon Apr 09, 2012 3:31 pm    Post subject: Reply with quote

Never mind. My last tests were hampered by a formatting error in the FILTERDD dataset.

For the compress, this worked.
//CLEANUP EXEC PGM=ADRDSSU,REGION=0M
//FILTER1 DD DISP=SHR,DSN=P.DABC.COMPRESS.FILTER1
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COMPRESS FILTERDD(FILTER1) DYNAM('ABCT27')
COMPRESS FILTERDD(FILTER1) DYNAM('ABCT02')
//

Where one compress statement per volume was added.
Back to top
View user's profile Send private message
papadi
Supermod


Joined: 20 Oct 2009
Posts: 594
Topics: 1

PostPosted: Tue Apr 10, 2012 12:51 pm    Post subject: Reply with quote

Good to hear it is working - thanks for letting us know Smile

d
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Data Management All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group