HP XP P9500 Reference Manual page 276

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"')";
/*
* 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 do
say "YKCONMSG OP(CLOSE) failed.";
exit;
end;
else
nop;
say "#-- END YKDEMO04.";
exit;
/*
* printErrorMessage: This procedure prints all of the error messages
* in the Message structure when a CLI command failed.
*/
printErrorMessage: procedure expose DEMO_MSG.
do x = 1 to DEMO_MSG.0
say "Severity = " || DEMO_MSG.x.Severity;
say "Text
276 CLI Commands
"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. */
= " || DEMO_MSG.x.Text;
*/