Is there a valid function to move Dynam/T controlled volumes from one vault to another in the Dynam Catalog ?
To be able to do this either through BATCH or via ONLINE CUI do the following Steps.
EXAMPLE:
to move volume number GL0001 to a new VAULT Location "X":
1 - defined the new vault "X" with program DYNCAT
// EXEC DYNCAT,SIZE=256K
VAULT VLTLOC=X DESC='Test'
(online in CUI with command):
DYNCAT VAULT VLTLOC=X DESC='Test'
2 - alter the volser to put it in vault "X" with program DYNCAT
// EXEC DYNCAT,SIZE=256K
ALTER 'the.DSN.name’ VER=001 PERM=YES EXP=PERM VLT=X
(PERM and EXP should be used as needed by customer)
(online in CUI with command):
DYNCAT ALTER 'the.DSN.name' VER=001 PERM=YES EXP=PERM VLT=X
.
after that GL0001 looks like:
Volser: GL0001 Volseq: 1
Files: 1 Vault: X
.
Data Set: the.DSN.name
Version Vol Initial Create Create
Cmd Number Seq Volser Date Time Job Name Expires Vlt
___ 00001 0001 GL0001(V) 21/04/2016 07:37 FAVER2 PERM X
3 - run TDYNVLT MOVEMENT, VERIFY which creates the following reports:
// EXEC TDYNVLT,SIZE=256K
MOVEMENT
VERIFY
CA L O C A T I O N M O V E M E N T E X C E P T I O N R E P O R T
-----------------------------------------------------------------------------------------------
LOC
DATA SET NAME VRS VOLSER V SLOT EXCEPTION DESCRIPTION
-----------------------------------------------------------------------------------------------
the.DSN.name 1 GL0001 X VERSION PERMANENT
*** TOTAL VOLUMES 1
.
followed by INVENTORY which now shows:
// EXEC TDYNVLT,SIZE=256K
INVENTORY
VAULT A
-----------------------------------------
LOC
VOLSER VOLSQ V SLOT DATA SET NAME
-----------------------------------------
GL0000 1 A the.DSN.name
GL0002(V) 1 A the.DSN.name
GL0003(V) 1 A the.DSN.name
*** TOTAL VOLUMES VAULT A 3
.
VAULT X TEST
----------------------------------------
LOC
VOLSER VOLSQ V SLOT DATA SET NAME
----------------------------------------
GL0001(V) 1 X the.DSN.name
*** TOTAL VOLUMES VAULT X 1