Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Split one existing proc depending on the return codes.

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

New User


Joined: 30 Mar 2006
Posts: 2

PostPosted: Wed Apr 16, 2008 1:43 pm    Post subject: Split one existing proc depending on the return codes.
Reply with quote

how can i split one existing proc depending on the return codes.there is a check for return codes for every step and i need to split it how can i go ahead.

for example if there are 20 steps in my proc and i split it to 2 procs with 10 steps each and here the 11th step is having a condition check of (5,LT)
then will the JCL run 11th step from the second proc.
Back to top
View user's profile Send private message

mkk157

Active User


Joined: 17 May 2006
Posts: 310

PostPosted: Wed Apr 16, 2008 2:12 pm    Post subject:
Reply with quote

hi Pratik,

welcome to the forums.

There is no need to split the proc into 2 different proc's, If your requirement is to add a condition at the step11.


see the below example for more understanding.

//STEP0010 EXEC PGM=SORT
//SORTIN DD DSN=INPUT-FILE-NAME-1
//SORTOUT DD DSN=OUTPUT-FILE-NAME-1
//SYSIN DD DSN=SORT-CARD-LOCATION
//CHECK0010 IF (STEP0010.RC NE 0) THEN
//*
//STEP0015 EXEC @SPWARN
//CHECK0010 ENDIF
//*
//STEP0020 EXEC PGM=SORT
//SORTIN DD DSN=INPUT-FILE-NAME-2
//SORTOUT DD DSN=OUTPUT-FILE-NAME-2
//SYSIN DD DSN=SORT-CARD-LOCATION
//CHECK0020 IF (STEP0020.RC NE 0) THEN
//*
//STEP0025 EXEC @SPWARN
//CHECK0020 ENDIF
//*
//* sTEPS FROM 3 TO 9
//*
//STEP0100 EXEC PGM=SORT
//SORTIN DD DSN=INPUT-FILE-NAME-10
//SORTOUT DD DSN=OUTPUT-FILE-NAME-10
//SYSIN DD DSN=SORT-CARD-LOCATION
//CHECK0100 IF (STEP0100.RC NE 0 AND STEP0100.RC LT 5) THEN
//*
//STEP0105 EXEC @SPWARN
//CHECK0100 ENDIF
//*
//CHECKIT IF (STEP0100.RC LT 5) THEN
//*
//STEP0110 EXEC PGM=SORT
//SORTIN DD DSN=INPUT-FILE-NAME-11
//SORTOUT DD DSN=OUTPUT-FILE-NAME-11
//SYSIN DD DSN=SORT-CARD-LOCATION
//CHECK0110 IF (STEP0100.RC NE 0 AND STEP0100.RC LT 5) THEN
//*
//STEP0115 EXEC @SPWARN
//CHECK0110 ENDIF
//*
//CHECKIT ENDIF


Please get back to us, If u have any further queries.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Apr 16, 2008 3:24 pm    Post subject:
Reply with quote

Why not try it out and see what happens ?
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 How to Capture the Max return code of... anilkumar922 All Other Mainframe Topics 0 Thu Jan 12, 2017 12:02 pm
No new posts DFHWS2LS return value divated CICS 4 Mon Nov 07, 2016 5:44 pm
No new posts How to split the records using the am... vnktrrd DFSORT/ICETOOL 24 Fri Oct 28, 2016 7:33 pm
No new posts how to split records based on specifi... Venkata Ramayya DFSORT/ICETOOL 6 Wed Sep 28, 2016 3:20 am
No new posts Increase the screen size after split mistah kurtz TSO/ISPF 2 Fri Sep 02, 2016 6:39 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us