Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

JOB Needs to put in a wait state for 2 minutes.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
narasridhar

New User


Joined: 12 Oct 2006
Posts: 32
Location: India

PostPosted: Sun Oct 07, 2007 1:53 am    Post subject: JOB Needs to put in a wait state for 2 minutes.
Reply with quote

Hi All,

I have a requirement as below.

I have a REXX step in my job which is REXX script inturn submitting the other job that job is running for 2 minutes. But in the next step i am refering a files which is created by the new job which submitted by the REXX script. In the nxt step it is failing with the files missing message.

Between the two steps i need to include a wait step if any. Else please let me know any other alternative for the same.

Thanks,
Sri
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Sun Oct 07, 2007 2:01 am    Post subject: Reply to: JOB Needs to put in a wait state for 2 minutes.
Reply with quote

Hi !

The current flow is ( if I understood correctly )

job1
...step11 submitting job job2
...step12 has to wait...
...
...
...step1n

job2
... step21

Why not change to :

Job1
...step11 submitting job2

job2
...step21
...step12
...
...
...step1n


regards

e.s
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Sun Oct 07, 2007 2:32 am    Post subject: Reply to: JOB Needs to put in a wait state for 2 minutes.
Reply with quote

Just use a different approach copying inline

DSCOPY rexx

Code:

/*REXX - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
/*                                                                   */
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
Trace "O"                                                             
                                                                       
Address TSO "EXECIO * DISKR CNTL (STEM CNTL. FINIS"                   
last = cntl.0                                                         
temp = strip(cntl.last)                                               
indx = strip(word(temp,2))                                             
                                                                       
idsn = "'ENRICO.MF.A" || indx ||"'"                                   
odsn = "'ENRICO.MF.AOUT'"                                             
                                                                       
"ALLOC FI(SYSIN)  DUMMY "                                             
"ALLOC FI(SYSUT1) DA(" || idsn || ") SHR REUSE "                       
"ALLOC FI(SYSUT2) DA(" || odsn || ") SHR REUSE "                       
                                                                       
Address TSO "CALL 'SYS1.LINKLIB(IEBGENER)'"                           
                                                                       
Exit                                                                   


DSCOPY jcl

Code:

//ENRICOMF JOB (H001),'DSCOPY',NOTIFY=ENRICO,                           
//             CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)                       
//* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
//*            DSN=ENRICO.MF.JCLLIB(DSCOPY)                             
//* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
//*                                                                     
//TSO     EXEC PGM=IKJEFT01,                                           
//             REGION=0M,                                               
//             DYNAMNBR=20                                             
//SYSPROC   DD DISP=SHR,DSN=ENRICO.MF.CLIST                             
//SYSABEND  DD SYSOUT=*                                                 
//SYSPRINT  DD SYSOUT=*                                                 
//SYSTSPRT  DD SYSOUT=*                                                 
//SYSTSIN   DD *                                                       
  DSCOPY                                                               
//CNTL      DD DISP=SHR,DSN=ENRICO.MF.JCLLIB(CNTL)                     


no need to submit a job and wait
Back to top
View user's profile Send private message
narasridhar

New User


Joined: 12 Oct 2006
Posts: 32
Location: India

PostPosted: Sun Oct 07, 2007 3:37 am    Post subject: Re: Reply to: JOB Needs to put in a wait state for 2 minutes
Reply with quote

enrico-sorichetti wrote:
Just use a different approach copying inline


Thanks alot Enrico. It worked now.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Job to wait and continue based on reply yugendran COBOL Programming 5 Wed Oct 05, 2016 1:46 pm
No new posts OMEGAMON to see In-DB2 times and Wait... Archana89 IBM Tools 4 Fri Mar 04, 2016 11:28 am
No new posts Clearing restrictive state aprocon DB2 4 Fri Jan 01, 2016 2:33 am
No new posts MQ message to wait for processing mohitsaini Java & MQSeries 1 Sat Jun 20, 2015 5:39 am
No new posts How to recall (or wait for recall of)... JPVRoff PL/I & Assembler 4 Wed Feb 18, 2015 9:19 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us