call printErrorMessage
exit
end
else
nop
call "YKLOAD" "STEM(DEMO_INFO.MYUR1.) PREFIX(BCM.DEMO) GROUP(MYUR1)",
"DAD(PRIM) MSG(DEMO_MSG.)"
/*
* 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)",
"DAD(PRIM) MSG(DEMO_MSG.)"
/*
* 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.
288 CLI Commands
Содержание P9000
Страница 302: ...YKDEMO12 302 CLI Commands ...