Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
How to restart a step within a PROC. ( PROC has > 1 step)

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

New User


Joined: 31 Oct 2006
Posts: 48
Location: Chennai

PostPosted: Fri Jul 27, 2007 1:26 am    Post subject: How to restart a step within a PROC. ( PROC has > 1 step)
Reply with quote

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
View user's profile Send private message

Douglas Wilder

Active User


Joined: 28 Nov 2006
Posts: 305
Location: Deerfield IL

PostPosted: Fri Jul 27, 2007 1:41 am    Post subject:
Reply with quote

On the job card add RESTART=T1.S020
Back to top
View user's profile Send private message
op

New User


Joined: 31 Oct 2006
Posts: 48
Location: Chennai

PostPosted: Fri Jul 27, 2007 7:53 pm    Post subject: Re: How to restart a step within a PROC. ( PROC has > 1 s
Reply with quote

We tried that option and it didn't work.

Could anyone give me a sloution please?
Back to top
View user's profile Send private message
superk

Moderator Team Head


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

PostPosted: Fri Jul 27, 2007 8:08 pm    Post subject: Re: How to restart a step within a PROC. ( PROC has > 1 s
Reply with quote

That is the correct solution. RESTART=JOBSTEP.PROCSTEP. Look it up:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2B660/20.23?DT=20050713232151
Back to top
View user's profile Send private message
Douglas Wilder

Active User


Joined: 28 Nov 2006
Posts: 305
Location: Deerfield IL

PostPosted: Fri Jul 27, 2007 9:45 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Douglas Wilder

Active User


Joined: 28 Nov 2006
Posts: 305
Location: Deerfield IL

PostPosted: Fri Jul 27, 2007 10:01 pm    Post subject:
Reply with quote

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
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
No new posts it is possible output a SET value fro... Martylin JCL & VSAM 5 Fri Sep 22, 2017 7:08 am
No new posts LIBDEF not working in called proc packerm CLIST & REXX 0 Fri Sep 15, 2017 7:22 pm
No new posts Restart=Step not working ALAK SAHA JCL & VSAM 6 Fri Jun 30, 2017 6:28 pm
No new posts REXX to view the PGM or PROC jackzhang75 CLIST & REXX 11 Tue Jun 20, 2017 1:20 am
No new posts Validate date and numeric fields and ... Rick Silvers DFSORT/ICETOOL 6 Thu May 11, 2017 6:51 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us