A 'wait' function for MVS REXX ?

[Joseph Cohen]

Someone out there has done this. Please help save me time and
rediscovering the wheel.....Thanks...joseph.cohen@tivoli.com

[Tjerk Santegoeds]

You might try the following to wait for 300 seconds. I have found this
to work on several sites:

Address TSO
"OPSWAIT 300"

--
Tjerk Santegoeds
Basingstoke - UK

[Ian Butler]

Joseph,
Another option you could use if OPSWAIT is not available:-
no_of_seconds = ??
Do i = 1 To no_of_seconds
done = "no"
reset_time = TIME(R)
Do While done = "no"
time_now = TIME(E)
If time_now > 1 Then
done = "yes"
End
End
Regards
Ian Butler

[bruce_...@mailexcite.com]

Ian,

I see only one problem with your code fragment. It is actually a busy-loop, so
it will continue to eat-up CPU while it is 'waiting'. A better solution is to
'put it to sleep'. Now, I'm not sure how that can be done, however, hopefully
someone else has the solution.

Bruce Goodman

> no_of_seconds = ??
> Do i = 1 To no_of_seconds
> done = "no"
> reset_time = TIME(R)
> Do While done = "no"
> time_now = TIME(E)
> If time_now > 1 Then
> done = "yes"
> End
>

-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum

[wcc...@statcan.ca]

If you are set up for OMVS, you can use the sleep function:
address syscall 'sleep 60'
will wait for 60 seconds if the user has access to OMVS.
Bill Lalonde

[Reynolds Rupert]

Ian & Joseph,

Aaagh! Looping for even 1 second is _SO_ hostile!

The userid running will hog a large chunk (maybe all) of a
CPU until resource management smacks it down into the 'sin bin'.
At that stage it will get precious few resources until it is seen
to have cleaned up its act.

You're right, you need a program that issues a STIMER
or STIMERM so that MVS knows to make you wait. There must be
dozens out there - if not I've got one that runs as a TSO command.

I reckon this should be a part of the language definition.

Rupert

----------

>This is a multi-part message in MIME format.

>no_of_seconds = ??
>Do i = 1 To no_of_seconds
> done = "no"
> reset_time = TIME(R)
> Do While done = "no"
> time_now = TIME(E)
> If time_now > 1 Then
> done = "yes"
> End

>End

[Matt Bressler]

I recommend against looping if possible. I have a small routine you can
have that issues:

STIMERM SET,
ID=WRKTIMID,
WAIT=YES,
BINTVL=WRKWAIT,
RELATED=UNRELATED,
MF=(E,WRKSTIME)

if you'd like a copy. Or indulge yourself and create your own!

Matt

At 10:47 AM 9/2/98 +1000, you wrote:
>Joseph,
>Another option you could use if OPSWAIT is not available:-