Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
WAIT or SLEEP utility in REXX for delay

 
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
raak

Active User


Joined: 23 May 2006
Posts: 166
Location: chennai

PostPosted: Fri Dec 29, 2006 12:25 pm    Post subject: WAIT or SLEEP utility in REXX for delay
Reply with quote

i have a requirement in which i have to submit three jobs at a time interval of 10 minutes each. i am using a rexx routine to submit these jobs. is there any command or utility by which i can make the rexx routine to wait for 10 minutes before the second job gets submitted?

is there any WAIT or SLLEP command in rexx ?
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Fri Dec 29, 2006 2:53 pm    Post subject: Re: any wait utility
Reply with quote

Use the Elapsed Time function TIME(E). Read more about it here.

Of course, there's always the Unix SLEEP command, if you would prefer to call it instead. Here's one such example.

Here's a few of my own:

Code:

/* REXX WAIT */                                 
Parse Arg secs .                                 
If Datatype(secs) <> 'NUM' Then secs = 60       
rc = Time(R)                                     
Do Forever                                       
  n = Time(E)                                   
  If n >= secs Then Leave                       
End                                             
Exit 0                                           


Code:

/* REXX */                                                 
Say "Enter Number of Seconds"                             
Parse Pull seconds                                         
If seconds = "" Then seconds = 5                           
seconds = Abs(seconds)                                     
seconds = Trunc(seconds,0)                                 
"ALLOC DD(stdout) DA(*) REU"                               
"ALLOC DD(stderr) DA(*) REU"                               
"ALLOC DD(stdin) DUMMY REU"                               
"CALL *(AOPBATCH) 'sleep "seconds"'"                       
Exit 0
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts Table(Unicode(Graphic) table) loading... muralikrishnan_new DB2 0 Thu Oct 05, 2017 5:10 pm
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 5 Wed Oct 04, 2017 6:54 am
No new posts VSAM RLS Wait time blayek JCL & VSAM 2 Mon Oct 02, 2017 9:05 pm
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 47 Fri Sep 29, 2017 1:08 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us