HP P9000, Справочное руководство

Страница: 279 / 399

/*
* Resume the host I/O.
*/
address TSO "YKRUN STEM(DEMO_INFO.) MSG(DEMO_MSG.)";
/*
* Wait for the TC-Sync copy group to become fully
* suspended.
*/
address TSO "YKEWAIT STEM(DEMO_INFO.) MSG(DEMO_MSG.)",
"GOTO(SUSPEND) TIMEOUT(30)";
/* Check if the TC-Sync copy group is suspended. */
if rc /= 0
then do
call printErrorMessage;
/*
* Close the EMCS console interface that was opened by
* the previous YKCONMSG OP(OPEN) call. Note that the
* return code for YKCONMSG with 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
* OP(CLOSE) is 6 for successful completion.
*/
if rc /= 6
then
say "YKCONMSG OP(CLOSE) failed.";
else
nop;
exit;
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 IEA494I.";
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
* OP(CLOSE) parameter is 6 if it completed successfully.
*/
address TSO "YKCONMSG OP(CLOSE) HANDLE(x'"HandlerValue"')";
Command details 279