HP XP P9500 Reference Manual page 289

call printErrorMessage
leave /* Exit the loop. */
end
else
nop
/*
* Wait for completion of copying from the local site to
* the remote site.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.MYUR2.) MSG(DEMO_MSG.)",
/*
* Check the return code of YKEWAIT.
*/
if rc /= 0
then do
call printErrorMessage
leave /* Exit the loop. */
end
else
nop
leave /* Exit the loop. */
end
end
/* Check if 120 seconds have elapsed after starting the loop.
elapsedTime = time('e')
if elapsedTime > 120
then do
say "#-- 120 seconds have elapsed. Stop monitoring IOSHM0414I."
leave
end
else
nop
end /* do forever */
/*
* Close the EMCS console interface that was opened by the previous
* YKCONMSG OP(OPEN) call. Note that the return code for YKCONMSG with
* the OP(CLOSE) parameter is 6 if it completed successfully.
*/
address TSO "YKCONMSG OP(CLOSE) HANDLE(x'"HandlerValue"')"
/*
* Check the return code to see if it is 6 or not. Note that the return
* code for YKCONMSG with the OP(CLOSE) parameter is 6 for
* successful completion.
*/
if rc /= 6
then do
say "YKCONMSG OP(CLOSE) failed."
exit
end
else
nop
say "#-- END YKDEMO08."
exit
/*
"GOTO(DUPLEX) TIMEOUT(30)"
*/
Command details 289