How to stop Do loop not meeting stopping criterion automaticlly

[Luke]

Hi,
If a Do loop in IML procedure never reaches its stopping criterion, it will keep running. Anyone knows how to stop the IML procedure automatically after a specified time and jump to next procedure?
Thanks in advance.

Luke

[Hutch_sas]

You can program a time limit in the loop itself:

proc iml;
t0 = time(); /* units of the time() function are seconds */
time_limit = 5;
do while( (time()-t0)< time_limit);
x = 1; /* do your loop */
end;
print time_limit "elapsed time " (time() - t0);