IBM System storage DS6000 Series Redbook page 388

Example 26-31 Delete Global Copy volume pairs
//* ------------------ TSO ---------------- CLEANUP (5) ---------- ***
//* Delete Global Copy volumes pairs
//*
//*
//*
//*
//*
//*
//*
//* -------------------------------------------------------------- ***
//DPAIR
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN
//SYSTSIN
CQUERY
CQUERY
CQUERY
CDELPAIR DEVN(X'2C00')
CDELPAIR DEVN(X'2D00')
CDELPAIR DEVN(X'2D01')
CQUERY
CQUERY
CQUERY
You may check the status of the Global Copy primary volumes before and after the
CDELPAIR command sequence. Example 26-32 and Example 26-33 show the CQUERY
commands and their formatted output.
Example 26-32 CQUERY before deleting the Global Copy pair
READY
CQUERY
CQUERY FORMATTED LVL 3
VOLUME REPORT
************** PPRC REMOTE COPY CQUERY - VOLUME ********************
*
*
*DEVICE
*------ --------- ---------- ----------- ---------
* 2C00 PRIMARY.. PENDING.XD
*
* PATHS PFCA SFCA STATUS: DESCRIPTION
* ----- --------- ------ -------------------
* 4
*
*
*
* SUBSYSTEM
* ----------- ----------------
364
IBM System Storage DS6000 Series: Copy Services with IBM System z
DELETE PRIMARY X'2C00'
X'2D00'
X'2D01'
PRIM(X'2C00' 27131 X'00' X'0C')
SSID ##### CCA
EXEC PGM=IKJEFT01
DD DDNAME=SYSIN
DD DDNAME=SYSIN
DEVN(X'2C00')
DEVN(X'2D00')
DEVN(X'2D01')
PRIM(X'2C00' 27131 X'00' X'0C')
SEC (X'3C00' 73081 X'00' X'0C')
PRIM(X'2D00' 27131 X'00' X'0D')
SEC (X'3D00' 73081 X'00' X'0D')
PRIM(X'2D00' 27131 X'01' X'0D')
SEC (X'3D00' 73081 X'01' X'0D')
DEVN(X'2C00')
DEVN(X'2D00')
DEVN(X'2D01')
DEVN(X'2C00')
LEVEL STATE PATH STATUS SERIAL#
CRIT(NO)....... CGRPLB(NO). 000000027131 000000073081*
0030 0030 13 PATH ESTABLISHED...
0130 0130 13 PATH ESTABLISHED...
0230 0230 13 PATH ESTABLISHED...
0331 0330 14 (UNDETERMINED).....
WWNN
LSS
+
+
+
+
+
+
(PRIMARY) (SECONDARY) *
SSID CCA LSS SSID CCA LSS*
ACTIVE.. 2C00 00 0C
LIC LEVEL
-----------
***
***
***
***
***
***
***
***
SERIAL# *
--------- *
3C00 00 0C *
*
*
*
*
*
*
*
*