call printErrorMessage
exit
end
else
nop
call "YKLOAD" "STEM(DEMO_INFO.MYUR1.) PREFIX(BCM.DEMO) GROUP(MYUR1)",
/*
* Check the return code of YKLOAD.
*/
if result /= 0
then do
call printErrorMessage
exit
end
else
nop
call "YKLOAD" "STEM(DEMO_INFO.MYUR2.) PREFIX(BCM.DEMO) GROUP(MYUR2)",
/*
* 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.)",
/*
* 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.)",
/*
* Check the return code of YKEWAIT.
288 CLI Commands
"DAD(PRIM) MSG(DEMO_MSG.)"
"DAD(PRIM) MSG(DEMO_MSG.)"
"GOTO(DUPLEX) TIMEOUT(0) NOINVALIDCHECK"
"GOTO(DUPLEX) TIMEOUT(0) NOINVALIDCHECK"