Home      Mainframe Forum      Mainfarme Tutorials      IBM Manuals      Mainframe Interview Questions      Mainframe Books      IT News     SiteMap     Downloads


     
 
MAINFRAME - TIP OF THE DAY : programming pearls - The fastest algorithm can frequently be replaced by one that is almost as fast and much easier to understand.

Google
 
Web mainframegurukul.com

Welcome to the mainframegurukul forums.

You are currently viewing our mainframe forums as a guest which gives you limited access to view most discussions, articles. By joining our free community you will have access to post topics, communicate privately with other members (PM), respond to polls, upload your own photos. Registration is fast, simple and absolutely free so please, join our community today!

If you have any problems with the registration process or your account login, please contact contact support at admin@mainframegurukul.com


Control flow from one STEP to another

 
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> JCL
  View previous topic :: View next topic  
Author Message
pkaushi
Member


Joined: 06 Feb 2006
Posts: 9

PostPosted: Tue Feb 07, 2006 9:51 am    Post subject: Control flow from one STEP to another Reply with quote

Hi,

I have a query...

Think of a cobol program which generates output file say file A. Now the jcl has two steps say STEP1 and STEP2. STEP1 executes the COBOL program.

Now whenever the program Writes some records into fileA only then step2 should execute and if nothing is written to the output file (Think of ity as a dummy O/P) being created then program should terminate.

How do I handle the above case in a JCL.....
_________________
Thanks and Regards,
Prashant
Back to top
View user's profile Send private message

prasad
Member


Joined: 06 Feb 2006
Posts: 7

PostPosted: Tue Feb 07, 2006 10:30 am    Post subject: use RETURN-CODE in COBOL program Reply with quote

Hi pkaushi,

Use RETURN-CODE in cobol program. At end of the program,
if no record written to output file, move 7 to RETURN-CODE.
You can move any number to RETURN-CODE.

Code:

    IF OUT-RECORD-CNT = 0
        MOVE 7  TO RETURN-CODE
    END-IF
   


Here RETURN-CODE is predefined cobol variable. whatever
value program move into this field, same value will be return by the
jcl step.


In jcl step2 include COND parameter like
Code:
   
   //STEP2 EXEC PGM=ABCD,COND=(0,LT)   
 


so that step2 wont get executed, If step1 returned any value other than zero.

Let me know if i am not answered your question fully.


Thanks,
Prasad
Back to top
View user's profile Send private message
pkaushi
Member


Joined: 06 Feb 2006
Posts: 9

PostPosted: Tue Feb 07, 2006 10:59 am    Post subject: Reply with quote

thanks prasad its working Very Happy
_________________
Thanks and Regards,
Prashant
Back to top
View user's profile Send private message
Guest






PostPosted: Thu Feb 16, 2006 5:56 pm    Post subject: Reply with quote

HI,

Adding to Prasad's Answer you can alsoe use following code to check file is empy or not

Code:
//STEP1000 EXEC PGM=IDCAMS                       
//SYSPRINT DD SYSOUT=*                           
//INDD1    DD DSN=File name,     
//            DISP=SHR                           
//SYSIN    DD *                                   
 PRINT INFILE(INDD1) COUNT(1)                     
//*                                               
//***** IF EMPTY FILE (RC = 4), DO NOT CONTINUE   
//*                                               
// IF (STEP1000.RC=0) THEN                       
//*                                               
//*-----------------------------------------------
//*-- 2ND PART :             
//*------------------------------------------


Hope this helps
Regards
Rupesh
Back to top
Anuj Dhawan
Moderator


Joined: 09 Aug 2008
Posts: 901
Location: Mumbai, India

PostPosted: Wed Nov 26, 2008 4:18 am    Post subject: Reply with quote

Hi,

I had been using the second option over the years, IF THEN ELSE constuct are better than COND.
_________________
Anuj


//MYWALLET EXEC PGM=SPOUSE
//SYSIN DD DSN=MYWALLET.ALL,DISP=SHR
//SYSOUT DD DUMMY
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> JCL All times are GMT + 5 Hours
Page 1 of 1



 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

Related topics
 Topics   Replies   Author   Views   Last Post 
No new posts Two outputs created as a result of generation of a map 2 Krishna 1504 Mon Jul 12, 2010 5:20 pm
tony_prabu View latest post
No new posts Is it possible to throw ISPF panels from PL/I programs? 1 rangab 2909 Thu Aug 20, 2009 11:55 pm
MrSpock View latest post
No new posts How do I add sticky in this Forum ? 8 Anuj Dhawan 1654 Tue Dec 23, 2008 11:35 am
Anuj Dhawan View latest post
No new posts Pl/I for windows 0 MikeJ024 1637 Tue Jun 24, 2008 2:40 pm
MikeJ024 View latest post
No new posts solve it 9 Abhiyanta 4763 Tue Sep 11, 2007 1:12 pm
manitesh_kumar View latest post
 



This widget requires Flash Player 9 or better








Go to top of the page
 

Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  DB2 INTERVIEW QUESTIONS ||  COBOL INTERVIEW QUESTIONS  ||  JCL INTERVIEW QUESTIONS ||  JCL2 INTERVIEW QUESTIONS ||  VSAM INTERVIEW QUESTIONS ||  CICS INTERVIEW QUESTIONS  ||  Online tutorials ||  Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  SiteMap  ||  Expeditor Tutorial  ||  FILE-AID Tutorial  ||  Changeman Tutorial  ||  COBOL   ||  DB2   ||  JCL  ||  CICS  ||  VSAM  ||  DB2 Interview Questions ( 110 )   || Simple JCL Tutorials  || JCL Tutorial from MainframeGurukul.com   || Simple JCL Tutorial - Chapter1 ;|| Mainframe Forum - Tutorials  || Mainframe Tutorials

Drona Educational Forums - Mainframe Cobol DB2 CICS Board
Powered by phpBB