IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Task Reminder in REXX


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
maheshk84

New User


Joined: 04 Jan 2006
Posts: 22
Location: Chennai

PostPosted: Fri Feb 22, 2008 9:57 pm
Reply with quote

There is a daily task to performed by my team to monitor a few jobs at 12 pm. This task is not monitored properly since many are involved in multitasking. What I need is a Task reminder which should send a message to my team.

I have constructed a small REXX pgm which will do it but consumes more CPU time. I submit this job somewhere around 9.30 as soon I enter office and continue with my work.

REXX code :
Code:

/* REXX */                                                 
I = 0                                                     
DO UNTIL I = 1                                             
  CALL DISPLAY_ROUTINE                                       
END                                                       
EXIT                                                       

DISPLAY_ROUTINE :                                         
CURRENT_TIME    = TIME()                                   
IF CURRENT_TIME = '12:00:00' THEN DO                       
  " SEND 'TIME 12 PM - MIDDAY RUNS STARTED !!' U(USERID1) " 
  " SEND 'TIME 12 PM - MIDDAY RUNS STARTED !!' U(USERID2) " 
  I = I + 1                                                 
END                                                       
RETURN                                                     


JCL to run this REXX
Code:

//STEP0010 PROC                                               
//************************************************************
//*  THIS STEP EXECUTES THE REXX PROGRAM                     
//************************************************************
//PROC0010 EXEC PGM=IKJEFT1B,                                 
//         PARM=REMINDER,COND=(4,LT)                         
//SYSPROC  DD DISP=SHR,DSN=S32469.REXX.EXEC                   
//SYSTSIN  DD DUMMY                                           
//SYSTSPRT DD SYSOUT=*                                       
//SYSOUT   DD SYSOUT=*                                       
//*                                                           
//*                                                           
//STEP0010 PEND                                               
//STEP0015 EXEC STEP0010                                           


Any better way to do it?
Back to top
View user's profile Send private message
Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Fri Feb 22, 2008 10:00 pm
Reply with quote

If you have a SCHEDULING system installed you could use that.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Fri Feb 22, 2008 10:19 pm
Reply with quote

Hello,

Or simply schedule an "appointment" with your e-mail system. . . You cold include as many "invitees" as needed. . .

You do NOT want some process "looping" all morning. This is sometimes grounds for locking an account.
Back to top
View user's profile Send private message
superk

Global Moderator


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

PostPosted: Fri Feb 22, 2008 10:22 pm
Reply with quote

Use Netview/An Automated Operator product/Connect:Direct.

Use the Unix CRON function to schedule a task to submit your job.
Use your Windows "Schedule Tasks" feature to schedule a task to submit your job.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Compile Several JCL JOB Through one r... CLIST & REXX 4
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
Search our Forums:

Back to Top