Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Restart step which is in IF condition
Goto page Previous  1, 2
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL
Author Message
P.RAJESH

New User


Joined: 20 Mar 2008
Posts: 23
Location: chennai

PostPosted: Mon Jul 14, 2008 10:29 am    Post subject:
Reply with quote

hi,

I prefer to place the if condition in procedure premenentaly.

your quote : how do you override the PROC

I am not clear with the above sentence.

I feel happy if you describe with an exmaple ?

Please....
Back to top
View user's profile Send private message
References
PostPosted: Mon Jul 14, 2008 10:29 am    Post subject: Re: Reply with quote

gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 445

PostPosted: Mon Jul 14, 2008 11:16 am    Post subject:
Reply with quote

Hi Rajesh,

let's start from scratch, hereunder is a PROC
Code:
//A       PROC                                                         
//*                                                                     
//**********************************************************************
//*                                                                     
//STEP01   EXEC PGM=IEFBR14                                             
//*                                                                     
//**********************************************************************
//*                                                                     
//CHECK01  IF (STEP01.RC = 0) THEN                                     
//*                                                                     
//STEP02   EXEC PGM=IEBGENER                                           
//*                                                                     
//CHECK01  ENDIF                                                       
//*                                                                     
//**********************************************************************
//CHECK02  IF (STEP02.RC = 0) THEN                                     
//*                                                                     
//STEP03   EXEC PGM=IEFBR14                                             
//*                                                                     
//CHECK02  ENDIF                                                       
//*                                                                     
//**********************************************************************
//CHECK03  IF (STEP03.RC = 0) THEN                                     
//*                                                                     
//STEP0004 EXEC PGM=IEFBR14                                             
//*                                                                     
//CHECK03  ENDIF                                                       
//*                                                                     
//**********************************************************************




Now are you saying I should set it up this way to enable restarts not to flush
Code:
//A       PROC                                                         
//*                                                                     
//**********************************************************************
//*                                                                     
//STEP01   EXEC PGM=IEFBR14                                             
//*                                                                     
//**********************************************************************
//*                                                                     
//CHECK01  IF (STEP01.RC = 0) | (ŽSTEP01.RUN) THEN                     
//*                                                                     
//STEP02   EXEC PGM=IEBGENER                                           
//*                                                                     
//CHECK01  ENDIF                                                       
//*                                                                     
//**********************************************************************
//CHECK02  IF (STEP02.RC = 0) | (ŽSTEP02.RUN) THEN                     
//*                                                                     
//STEP03   EXEC PGM=IEFBR14                                             
//*                                                                     
//CHECK02  ENDIF                                                       
//*                                                                     
//**********************************************************************
//CHECK03  IF (STEP03.RC = 0) | (ŽSTEP03.RUN) THEN                     
//*                                                                     
//STEP0004 EXEC PGM=IEFBR14                                             
//*                                                                     
//CHECK03  ENDIF                                                       
//*                                                                     
//**********************************************************************



Gerry
Back to top
View user's profile Send private message
P.RAJESH

New User


Joined: 20 Mar 2008
Posts: 23
Location: chennai

PostPosted: Tue Jul 15, 2008 9:31 am    Post subject:
Reply with quote

Hi Gerry,

Exactly that's what i am saying.....

To avoide restart problems of step if it is bounded under IF condition.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 445

PostPosted: Tue Jul 15, 2008 9:49 am    Post subject:
Reply with quote

Hi Rajesh,

well I'm afraid this is not a good option, what happens when STEP02 is restarted and fails, STEP03 flushes but STEP04 will now run.

Don't like this idea at all.

So back to my original question, can you override IF conditions in a PROC withou changing the PROC ?


Gerry
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 2910
Location: Brussels once more ...

PostPosted: Tue Jul 15, 2008 12:02 pm    Post subject:
Reply with quote

Looks like that old peach of an argument - do I use IF/THEN/ELSE or COND= for ease of functionality ..........
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL All times are GMT + 6 HoursGoto page Previous  1, 2
Page 2 of 2