Microfocus Cobol "SLEEP" routine
in [Cobol]
|
Prev: COBOL dynamic allocation (putenv) of output-file won't release extra space when closed
Next: Web Services and COBOL (Fairly long post, but I don't have time to write a proper article on it)
From: C C on 15 May 2007 08:20 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.
From: Steve Rainbird on 15 May 2007 08:52 "C C" <someone(a)atsbcglobal.net> wrote in message news:yAh2i.4627$UU.2661(a)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
From: Thomas on 15 May 2007 08:56 On 15 Mai, 14:20, "C C" <some...(a)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
From: C C on 15 May 2007 09:28 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(a)rainbird.me.nospam.uk> wrote in message news:5atoomF2qeibjU1(a)mid.individual.net... > "C C" <someone(a)atsbcglobal.net> wrote in message > news:yAh2i.4627$UU.2661(a)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 > > >
From: Vaclav Snajdr on 15 May 2007 09:48
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(a)rainbird.me.nospam.uk> wrote in message > news:5atoomF2qeibjU1(a)mid.individual.net... >> "C C" <someone(a)atsbcglobal.net> wrote in message >> news:yAh2i.4627$UU.2661(a)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 >> >> >> -- Vaclav Snajdr |