/*
* Check the return code of YKLOAD.
*/
if result /= 0
then do
call printErrorMessage
exit
end
else
nop
/*
* Check the status of MYTCHS to confirm the ready status for operations
* in 2DC configuration with HyperSwap and UR.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.MYTCHS.) MSG(DEMO_MSG.)",
"GOTO(DUPLEX) TIMEOUT(0) NOINVALIDCHECK"
/*
* Check the return code of YKEWAIT.
*/
if rc /= 0
then do
call printErrorMessage
exit
end
else
nop
/*
* Check the status of MYUR1 to confirm the ready status for operations
* in 2DC configuration with HyperSwap and UR.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.MYUR1.) MSG(DEMO_MSG.)",
"GOTO(DUPLEX) TIMEOUT(0) NOINVALIDCHECK"
/*
* Check the return code of YKEWAIT.
*/
if rc /= 0
then do
call printErrorMessage
exit
end
else
nop
/*
* Check the status of MYUR2 to confirm the ready status for operations
* in 2DC configuration with HyperSwap and UR.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.MYUR2.) MSG(DEMO_MSG.)",
"GOTO(HOLD) TIMEOUT(0) NOINVALIDCHECK"
/*
* Check the return code of YKEWAIT.
*/
if rc /= 0
then do
call printErrorMessage
exit
end
Command details 285