then do
call printErrorMessage;
exit;
end;
else
nop;
/*
* Use YKEWAIT to wait until "MYTCS" is fully established.
* The value for TIMEOUT is arbitrary. In this example, 30 minutes is
* used just for instance.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.) MSG(DEMO_MSG.) GOTO(DUPLEX)",
"TIMEOUT(30)";
/*
* Unlike when TIMEOUT(0) parameter was used, check the return code
* to see if it is 0 or not because any non-zero return code for
* YKEWAIT indicates that the copy pair state transition did not
* happen as expected.
*/
if rc /= 0
then do
call printErrorMessage;
exit;
end;
else
nop;
call printCopyGroupStatus;
/*
* Suspend all copy pairs in MYTCS copy group.
* Like YKMAKE, use SELECT(COND) to let YKSUSPND skip a copy pair
* which is already being suspended.
* Although you can omit specification of FORWARD/REVERSE parameter,
* it is strongly recommended to specify the parameter to clarify
* your intention.
*/
address TSO "YKSUSPND STEM(DEMO_INFO.) MSG(DEMO_MSG.) FORWARD",
"SELECT(COND)";
/*
* Check the return code to see if it is 0 or not.
*/
if rc /= 0
then do
call printErrorMessage;
exit;
end;
else
nop;
/*
* Wait until all copy pairs in MYTCS copy group become suspended.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.) MSG(DEMO_MSG.) GOTO(SUSPEND)",
"TIMEOUT(30)";
/*
* Check the return code to see if it is 0 or not.
*/
if rc /= 0
then do
Command details 267
To Next Page
Loading...
