|
View previous topic :: View next topic
|
| Author |
Message |
narasridhar
New User
.jpg)
Joined: 12 Oct 2006
Posts: 32
Location: India
|
|
|
|
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 |
|
 |
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
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 |
|
|
narasridhar
New User
Joined: 12 Oct 2006
Posts: 32
Location: India
|
|
|
|
| enrico-sorichetti wrote: |
| Just use a different approach copying inline |
Thanks alot Enrico. It worked now. |
|
| Back to top |
|
|
|
|
