Withdraw Flashcopy Relationships - IBM System storage DS6000 Series Redbook

Example 24-35 Remove session from LSS with ICKDSF
//* -------------------------------------------------------------- ***
//CLOSESS EXEC PGM=ICKDSF
//SYSPRINT DD SYSOUT=*
//DD01
//SYSIN
PPRCOPY DDNAME(DD01) DEFSESS
/*
Now, in the next steps, we will remove the FlashCopy relationships, and later we will delete
the Global Copy pairs that belonged to the Global Mirror session we just deleted.

24.5.13 Withdraw FlashCopy relationships

Example 24-36 shows an ICKDSF example for removing the FlashCopy relationships
between the B and C volumes.
Example 24-36 Withdraw FlashCopy relationships between B and C volumes with ICKDSF
//* -------------------------------------------------------------- ***
//* FLASHCOPY WITHDRAW (B -> C VOLUME RELATIONSHIP) inband
//* -------------------------------------------------------------- ***
//* SRCVOL (X'LSS' X'CCA' X'SSID' SERIAL#)
//* TGTVOL (X'LSS' X'CCA' DEVICE#)
//* -------------------------------------------------------------- ***
//WITHDRW EXEC PGM=ICKDSF
//SYSPRINT DD SYSOUT=*
//DD01
//DD02
//DD03
//DD04
//SYSIN
FC DDNAME(DD01)
SRCVOL
TGTVOL
FC DDNAME(DD02)
SRCVOL
TGTVOL
FC DDNAME(DD03)
SRCVOL
TGTVOL
FC DDNAME(DD04)
SRCVOL
TGTVOL
Note that we execute the FLASHCOPY WITHDRAW (or FC WD) command at the local site,
to the Global Copy primary volumes. The primary volumes are identified by the JCL DD
statement that is pointed to by the DDNAME parameter of the FC command; see
Example 24-36. This is an inband FlashCopy command. Through the SRCVOL and the
TGTVOL parameters, we identify the FlashCopy source and target volumes at the remote
site. This command will end the FlashCopy relationship between the B and C volumes.
326
IBM System Storage DS6000 Series: Copy Services with IBM System z
DD UNIT=3390,VOL=SER=AA6000,DISP=SHR
DD *
SESSNO(001)
CLOSE
DD UNIT=3390,VOL=SER=AA6000,DISP=SHR
DD UNIT=3390,VOL=SER=AA6001,DISP=SHR
DD UNIT=3390,VOL=SER=AA6002,DISP=SHR
DD UNIT=3390,VOL=SER=AA6003,DISP=SHR
DD *
WD
(X'00',X'00',0002,AAVCA)
(X'01',X'00',0003)
WD
(X'00',X'01',0002,AAVCA)
(X'01',X'01',0003)
WD
(X'00',X'02',0002,AAVCA)
(X'01',X'02',0003)
WD
(X'00',X'03',0002,AAVCA)
(X'01',X'03',0003)
-
-
/* WITHDRAW
/* B VOLUME
/* C VOLUME
/* WITHDRAW
/* B VOLUME
/* C VOLUME
/* WITHDRAW
/* B VOLUME
/* C VOLUME
/* WITHDRAW
/* B VOLUME
/* C VOLUME
***
***
***
*/ -
*/ -
*/
*/ -
*/ -
*/
*/ -
*/ -
*/
*/ -
*/ -
*/