I tried the example (JOB4) however it worked to a certain extent. All the dsns
were moved to a volume othere than what was specified and to a storage pool
which is not the same. The dsns are SMS managed. Could this be the reason?
Below is the job I ran:
//STEP1 EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COPY DATASET( -
INCLUDE(PROD03.**)) /* FILTER ON DS W/1ST LEV Q USER1 */ -
OUTDYNAM(SLU340) /* ALLOC VOL 338001 DYNAMICALLY */ -
DELETE CATALOG FORCE -
SPHERE -
TGTALLOC(SOURCE) -
TGTGDS(SOURCE) -
CANCELERROR -
OPT(4) -
ALLDATA(*) ALLEXCP
/*
--------------------------------------------
On Wed, 5/6/15, Mike Schwab <[email protected]> wrote:
Subject: Re: Primary allocation of a dataset
To: [email protected]
Received: Wednesday, May 6, 2015, 8:44 PM
To consolidate a multi volume dataset
to one (or fewer) volume(s)
http://www-01.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.adru000/r2250.htm?lang=en
//JOB4 JOB accounting
information,REGION=nnnnK
//STEP1 EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
COPY DATASET( -
INCLUDE(data.set.name)) /* FILTER ON
DS W/1ST LEV Q USER1 */ -
OUTDYNAM(volser) /* ALLOC VOL
338001 DYNAMICALLY */ -
DELETE CATALOG FORCE -
TGTALLOC(SOURCE)
/*
A single volume dataset you can just do a dataset
consolidate.
http://www-01.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.adru000/cnsex.htm?lang=en
//JOB1
JOB accounting
information,REGION=nnnnK
//STEP1 EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=A
//DASD DD
UNIT=3390,VOL=(PRIVATE,SER=volser),DISP=OLD
//SYSIN DD *
CONSOLIDATE DATASET(INCLUDE(data.set.name) -
EXCLUDE(data.set.name)) -
PHYSINDDNAME(DASD)
/*
On Wed, May 6, 2015 at 5:21 PM, Paul Gilmartin
<[email protected]>
wrote:
> On 2015-05-06 16:18, Mike Schwab wrote:
>> I would be more worried about specifying enough
space for the current
>> contents and calculating a nice secondary space
value. 10% for a 16
>> extent type. Maybe 1% for a 1## extent type.
>>
> Oh, be done with it! HMIGRATE it; HRECALL
it. HSM coalesces everything
> into one neat extent and RLSEs everything else.
(But I wish there were a
> way to achieve this with half the I/Os.)
>
> -- gil
>
>
----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access
instructions,
> send email to [email protected]
with the message: INFO IBM-MAIN
--
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access
instructions,
send email to [email protected]
with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
