Microfocus Cobol "SLEEP" routine

Hello.

Is there a way in MF Cobol to pause program execution (sleep) for, let's
say, 5 minutes???  My workaround is to call the AIX command "sleep 300".  I
need a routine in Cobol itself so I may vary the time to pause in some
programs.

Thanks in advance.

"C C" <someone@atsbcglobal.net> wrote in message
news:yAh2i.4627$UU.2661@newssvr19.news.prodigy.net...
> Hello.
>
> Is there a way in MF Cobol to pause program execution (sleep) for, let's
> say, 5 minutes???  My workaround is to call the AIX command "sleep 300".
> I need a routine in Cobol itself so I may vary the time to pause in some
> programs.
>
> Thanks in advance.
>


Not that I know of.

I use

call "system" using ws-sleep-call


Where ws-sleep-call is defined as

01  ws-mss-sleep-call.
03                                 pic x(6) value "sleep ".
03  ws-mss-sleep         pic 9(15).999.
03                                 pic x value x"00".

Works for me.

--
Steve

On 15 Mai, 14:20, "C C" <some...@atsbcglobal.net> wrote:
> Hello.
>
> Is there a way in MF Cobol to pause program execution (sleep) for, let's
> say, 5 minutes???  My workaround is to call the AIX command "sleep 300".  
I
> need a routine in Cobol itself so I may vary the time to pause in some
> programs.
>
> Thanks in advance.

Hello,

I don't know a commando for sleep.

Either you write a loop with perform varying... or you use a loop with
checking out the time while it is looping.
But in both solutions the program/machine is (very) busy and not
sleeping!

Thomas

Thanks.  That's what I'm doing right now.  I just want to avoid having to
call "system".  In AIX, a new-line is output by the system thus online
sessions experience a shift on their screen.  This behavior still occurs
even if my call "system" script re-directs output to /dev/null.


"Steve Rainbird" <news.nospam@rainbird.me.nospam.uk> wrote in message
news:5atoomF2qeibjU1@mid.individual.net...
> "C C" <someone@atsbcglobal.net> wrote in message
> news:yAh2i.4627$UU.2661@newssvr19.news.prodigy.net... 
>
>
> Not that I know of.
>
> I use
>
> call "system" using ws-sleep-call
>
>
> Where ws-sleep-call is defined as
>
>      01  ws-mss-sleep-call.
>           03                                 pic x(6) value "sleep ".
>           03  ws-mss-sleep         pic 9(15).999.
>           03                                 pic x value x"00".
>
> Works for me.
>
> --
> Steve
>
>
>

it is possible to use "accept with timeout xyz" instead call system ...
(in background programs too)



C C wrote:

> Thanks.  That's what I'm doing right now.  I just want to avoid having to
> call "system".  In AIX, a new-line is output by the system thus online
> sessions experience a shift on their screen.  This behavior still occurs
> even if my call "system" script re-directs output to /dev/null.
>
>
> "Steve Rainbird" <news.nospam@rainbird.me.nospam.uk> wrote in message
> news:5atoomF2qeibjU1@mid.individual.net... 

--
Vaclav Snajdr

"C C" <someone@atsbcglobal.net> wrote in message
news:Pzi2i.3295$zj3.230@newssvr23.news.prodigy.net...
> Thanks.  That's what I'm doing right now.  I just want to avoid having to
> call "system".  In AIX, a new-line is output by the system thus online
> sessions experience a shift on their screen.  This behavior still occurs
> even if my call "system" script re-directs output to /dev/null.
>
>
> "Steve Rainbird" <news.nospam@rainbird.me.nospam.uk> wrote in message
> news:5atoomF2qeibjU1@mid.individual.net... 
>
>


Have you tried call "SYSTEM" there is a difference but I can't remember
offhand what it is.

Or maybe even CBL_EXEC_RUN_UNIT although I have never used this.

--
Steve

I think "TIME-OUT" needs a SCREEN SECTION.  I don't want SCREEN SECTION in
the sleep functionality I am trying to implement in programs under cron or
batch control.

"Vaclav Snajdr" <snajdr.vaclav@t-online.de> wrote in message
news:f2cdof$tbi$01$1@news.t-online.com...
> it is possible to use "accept with timeout xyz" instead call system ...
> (in background programs too)
>
>
>
> C C wrote:
> 
>
> --
> Vaclav Snajdr

Why just not to call it directly ?

CALL 'sleep' USING BY VALUE 300.

Regards,
Sergey


"C C" <someone@atsbcglobal.net> wrote in message
news:yAh2i.4627$UU.2661@newssvr19.news.prodigy.net...
> Hello.
>
> Is there a way in MF Cobol to pause program execution (sleep) for, let's
> say, 5 minutes???  My workaround is to call the AIX command "sleep 300".
> I need a routine in Cobol itself so I may vary the time to pause in some
> programs.
>
> Thanks in advance.
>

I don't know which versions it is and is not in, but check your documentatio
n
for the Micro Focus callable service

CBL_THREAD_SLEEP

P.S.  I haven't actually used it myself, so "YMMV"

--
Bill Klein
wmklein <at> ix.netcom.com
"C C" <someone@atsbcglobal.net> wrote in message
news:yAh2i.4627$UU.2661@newssvr19.news.prodigy.net...
> Hello.
>
> Is there a way in MF Cobol to pause program execution (sleep) for, let's s
ay,
> 5 minutes???  My workaround is to call the AIX command "sleep 300".  I nee
d a
> routine in Cobol itself so I may vary the time to pause in some programs.
>
> Thanks in advance.
>

William M. Klein wrote:
> I don't know which versions it is and is not in, but check your documentat
ion
> for the Micro Focus callable service
>
>    CBL_THREAD_SLEEP
>
> P.S.  I haven't actually used it myself, so "YMMV"
>
Out of curiosity I went looking, searching on 'WAIT', 'SLEEP' - no luck.
Never thought of CBL_THREAD......

Here's the reference to it in Net Express V 5.0 :-

http://supportline.microfocus.com/s...ndx.ht
m

Jimmy