|
View previous topic :: View next topic
|
| Author |
Message |
op
New User
Joined: 31 Oct 2006
Posts: 48
Location: Chennai
|
|
|
|
How to restart the JOB from a STEP within the PROC.
The PROC has more than one steps.
Example
//TEST1 PROC
//S010 EXEC DELETE,
// D01='A4XYR31.TEST1.T1'
//S020 EXEC DELETE,
// D01='A4XYR31.TEST1.T3'
// PEND
//T1 EXEC TEST1
How to restart from step S020 in the proc TEST1 |
|
| Back to top |
|
 |
Douglas Wilder
Active User
.jpg)
Joined: 28 Nov 2006
Posts: 305
Location: Deerfield IL
|
|
|
|
| On the job card add RESTART=T1.S020 |
|
| Back to top |
|
|
op
New User
Joined: 31 Oct 2006
Posts: 48
Location: Chennai
|
|
|
|
We tried that option and it didn't work.
Could anyone give me a sloution please? |
|
| Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
| Back to top |
|
|
Douglas Wilder
Active User
Joined: 28 Nov 2006
Posts: 305
Location: Deerfield IL
|
|
|
|
Delete is evidently a proc.
According to IBM:
"The step identified by procstepname must contain the PGM keyword rather than invoke a procedure. "
Since you did not give us your Delete Proc I madeup one of my own for testing.
You will need to change you instream proc.
Try this:
| Code: |
//JOBNAMEX JOB 12345678,'TEST RESTART',CLASS=Q,TIME=1,
// RESTART=T1.S015,
// MSGCLASS=G,NOTIFY=&SYSUID,REGION=4096K,COND=(0,NE)
//**********************************************************
//DELETE PROC D01=DUMMY
//D010 EXEC PGM=IEFBR14
//D01 DD DSN=&D01,
// DISP=(MOD,DELETE,DELETE),SPACE=(TRK,1)
// PEND
//*
//TEST1 PROC
//S010 EXEC DELETE,
// D01='A4XYR31.TEST1.T1'
//S015 EXEC PGM=IEFBR14
//S020 EXEC DELETE,
// D01='A4XYR31.TEST1.T3'
// PEND
//*
//T1 EXEC TEST1
// |
I hope this helps. |
|
| Back to top |
|
|
Douglas Wilder
Active User
Joined: 28 Nov 2006
Posts: 305
Location: Deerfield IL
|
|
|
|
I found another solution:
| Code: |
//JOBNAMEX JOB 12345678,'TEST RESTART',CLASS=Q,TIME=1,
// RESTART=S020.D010,
// MSGCLASS=G,NOTIFY=&SYSUID,REGION=4096K,COND=(0,NE)
//**********************************************************
//DELETE PROC D01=DUMMY
//D010 EXEC PGM=IEFBR14
//D01 DD DSN=&D01,
// DISP=(MOD,DELETE,DELETE),SPACE=(TRK,1)
// PEND
//*
//TEST1 PROC
//S010 EXEC DELETE,
// D01='A4XYR31.TEST1.T1'
//S020 EXEC DELETE,
// D01='A4XYR31.TEST1.T3'
// PEND
//*
//T1 EXEC TEST1
// |
This still leaves open the question of what you could do if your JCL called proc test1 twice. |
|
| Back to top |
|
|
|
|
