IBM System storage DS6000 Series, Redbook

Page: 378 / 578

354
IBM System Storage DS6000 Series: Copy Services with IBM System z
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 DD DDNAME=SYSIN
CGROUP DEVN (X'2C00') +
PRIM (X'2C00' 27131 X'0C') +
SEC (X'3C00' 73081 X'0C') +
FREEZE
CGROUP DEVN (X'2D00') +
PRIM (X'2D00' 27131 X'0D') +
SEC (X'3D00' 73081 X'0D') +
FREEZE
//* -------------------------------------------------------------- ***
//RUN EXEC PGM=IKJEFT01
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DDNAME=SYSIN
CGROUP DEVN (X'2C00') +
PRIM (X'2C00' 27131 X'0C') +
SEC (X'3C00' 73081 X'0C') +
RUN
CGROUP DEVN (X'2D00') +
PRIM (X'2D00' 27131 X'0D') +
SEC (X'3D00' 73081 X'0D') +
RUN
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 EXEC PGM=IKJEFT01
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DDNAME=SYSIN
RSESSION SNBR(01) VOLSER(XX2C00) +
ACTION(STOP) +
LSSTYPE(CKD) LSSNBR(0C) +
ESSSERIAL(27131) +