|
View previous topic :: View next topic
|
| Author |
Message |
die7nadal
Active User
Joined: 23 Mar 2005
Posts: 156
|
|
|
|
I want to Release a Job automatically at a predefined time, using MVS commands
I have a JES2 command
/*$TA,T=15.00,'$VS,"$A,B683NC2"'
that my friend suggested, but this doesn't work, I want to know if its syntactically correct.
Any form of help will be appreciated, if you have already discussed in the forum please provide the link. |
|
| Back to top |
|
 |
Prandip
New User
Joined: 04 Mar 2005
Posts: 84
Location: In my tiny cubicle ...
|
|
| Back to top |
|
|
Ashish Bharatiya
New User
Joined: 23 Mar 2005
Posts: 5
Location: Mumbai
|
|
|
|
Hi,
I wanted to know if I have submitted a job using TYPRUN=HOLD and want to release the same for execution depending on the output of a previous job, what should I quote in the previous job so as to start the execution of the HOLD job.
Thanx |
|
| Back to top |
|
|
die7nadal
Active User
Joined: 23 Mar 2005
Posts: 156
|
|
|
|
Ashish,
If you want a number of Jobs successivley u can code this step
at the end of each job, where "MNT7.VANANDA.SVO.CMPJCL(B504)" contains my next JOB to run.
//CB504 EXEC PGM=IKJEFT1B,DYNAMNBR=99
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
SUB 'MNT7.VANANDA.SVO.CMPJCL(B504)'
//*
If you want to run a Job successively based on the CC of a previous JOB
Use
//TESTE37 IF (JS10.ABENDCC=SE37) THEN
//*
//CB504 EXEC PGM=IKJEFT1B,DYNAMNBR=99
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
SUB 'MNT7.VANANDA.SVO.CMPJCL(B504)'
//*
// ELSE
//*
//CB504 EXEC PGM=IKJEFT1B,DYNAMNBR=99
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
SUB 'MNT7.VANANDA.SVO.CMPJCL(B504)'
//*
//*
//TESTE37E ENDIF |
|
| Back to top |
|
|
Ashish Bharatiya
New User
Joined: 23 Mar 2005
Posts: 5
Location: Mumbai
|
|
|
|
Hi,
I tried using your code but couldn't submit the job. Below I have given my code which I have used for testing.
//TESTJOBA JOB (RFNA-CUSTSRP,TEST),'COPY GDG BASE',CLASS=Q,
// MSGCLASS=X
//*JCL TO COPY MULTIPLE VERSIONS OF A GDG INTO A FLATFILE.
//STEP002 EXEC PGM=IDCAMS
//SYSIN DD *
SET MAXCC=8
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
//TESTE37 IF (STEP002.RC=8) THEN
//STEP003 EXEC PGM=IKJEFT1B
//SYSIN DD *
SUB 'G1CS00AT.TEST.JCL(TESTJOBB)'
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
//TESTE37E ENDIF
Also if you can provide any documentation for IKJEFT1B will be of great help.
Thanx. |
|
| Back to top |
|
|
die7nadal
Active User
Joined: 23 Mar 2005
Posts: 156
|
|
|
|
I dont have any documentation for IKJEFT1B
If you have used the below JCL it will not work b'cos the INSTREAM data should be present in //SYSTSIN DD and not in //SYSIN DD, try giving that in //SYSTSIN DD and if it still didnt work let me know the error u are getting.
STEP003 EXEC PGM=IKJEFT1B
//SYSIN DD *
SUB 'G1CS00AT.TEST.JCL(TESTJOBB)'
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD * |
|
| Back to top |
|
|
Ashish Bharatiya
New User
Joined: 23 Mar 2005
Posts: 5
Location: Mumbai
|
|
|
|
Thanx die7nadal
I was able to submit my job..
Regards, |
|
| Back to top |
|
|
|
|
