Example 26-16 Simulate primary site failure through CGROUP FREEZE
//* ---------------------------- TSO ------------ FAILO (2) ----- ***
//* SIMULATE PRIMARY FAILURE WITH CGROUP FREEZE/RUN
//* HARDER PRIMARY FAILURE THROUGH VARY OFFLINE,FORCE
//* -------------------------------------------------------------- ***
//FREEZE EXEC PGM=IKJEFT01
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN
CGROUP
CGROUP
//* -------------------------------------------------------------- ***
//RUN
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN
CGROUP
CGROUP
CGROUP FREEZE immediately removes the paths between the primary and secondary
LSSs. An immediate CGROUP RUN command would end a potential extended long busy
(ELB) timer. Note that ELB is not possible and not useful for Global Copy.
26.4.2 Stop a Global Mirror session
When the local storage disk subsystem is still operational, you may explicitly stop the Global
Mirror session; see Example 26-17.
Example 26-17 Stop Global Mirror session when local site is still accessible
//* ------------------ TSO --------------------------------------- ***
//* Terminate GM session number X'01'
//* -------------------------------------------------------------- ***
//TERM
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN
RSESSION
354
IBM System Storage DS6000 Series: Copy Services with IBM System z
DD DDNAME=SYSIN
DEVN (X'2C00')
PRIM (X'2C00' 27131 X'0C')
SEC (X'3C00' 73081 X'0C')
FREEZE
DEVN (X'2D00')
PRIM (X'2D00' 27131 X'0D')
SEC (X'3D00' 73081 X'0D')
FREEZE
EXEC PGM=IKJEFT01
DD DDNAME=SYSIN
DEVN (X'2C00')
PRIM (X'2C00' 27131 X'0C')
SEC (X'3C00' 73081 X'0C')
RUN
DEVN (X'2D00')
PRIM (X'2D00' 27131 X'0D')
SEC (X'3D00' 73081 X'0D')
RUN
EXEC PGM=IKJEFT01
DD DDNAME=SYSIN
SNBR(01) VOLSER(XX2C00)
ACTION(STOP)
LSSTYPE(CKD) LSSNBR(0C)
ESSSERIAL(27131)
***
***
+
+
+
+
+
+
+
+
+
+
+
+
***
+
+
+
+