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
 

 

Need to execute a step more than once.

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

New User


Joined: 05 Feb 2008
Posts: 24
Location: Coimbatore

PostPosted: Wed Apr 23, 2008 10:16 am    Post subject: Need to execute a step more than once.
Reply with quote

Hi,

i have a case in which i want to execute a step in a jcl more than once.
i.e.) i have 5 input files and i need to create 5 output files corressponding to each input files using the same easytrieve program.

Here's the jcl step:

//P020 EXEC PGM=EZTPA00,REGION=4M,TIME=(15,00),COND=(0,NE)
//*
//EZTVFM DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE)
//*
//FILEIN DD DSN=INPUT.FILE.1,DISP=SHR
//*
//FILEOUT DD DSN=OUTPUT.FILE.1,
// DISP=(,CATLG,DELETE),
// UNIT=DISK,SPACE=(CYL,(10,20),RLSE),
// DCB=(LRECL=122,DSORG=PS,RECFM=FB)
//*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DISPFILE DD SYSOUT=*
//SYSIN DD DSN=AAA.BBB.CCC(EZTVPGM1),DISP=SHR
//*

Someone please help me on this.

Thanks in advance.

R's,
Prema.
Back to top
View user's profile Send private message

ksk

Active User


Joined: 08 Jun 2006
Posts: 356
Location: New York

PostPosted: Wed Apr 23, 2008 10:21 am    Post subject:
Reply with quote

Hi,

Either process 5 files in your single Easytreive program. Or you have to execute this program in 5 steps as your input file is different in each case.

Please correct me if I am worng.

KSK
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Apr 23, 2008 10:25 am    Post subject:
Reply with quote

Hello,

Your requirement would work well if you made a PROCedure for this step and used a symbolic parameter for the .n part of the dsn.

The jobstream would execute this proc 5 times with different .n value for each execution.
Back to top
View user's profile Send private message
Premdev

New User


Joined: 05 Feb 2008
Posts: 24
Location: Coimbatore

PostPosted: Wed Apr 23, 2008 1:24 pm    Post subject:
Reply with quote

Got it now. Thanx icon_smile.gif
Back to top
View user's profile Send private message
samuel_Inba

New User


Joined: 03 Jan 2008
Posts: 53
Location: Chennai

PostPosted: Thu Apr 24, 2008 8:46 am    Post subject:
Reply with quote

hi Premdev,
Can you provide the listing for your requirement which worked out..I have got a simillar kind of work...Will me more helpful if you could share the template of your solution.


Thanks.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Apr 24, 2008 8:56 am    Post subject:
Reply with quote

Hello,

You could use something like:
Code:

//THEPROC PROC
//P020    EXEC PGM=SOMEPGM,REGION=4M,TIME=(15,00),COND=(0,NE)
//FILEIN  DD DSN=INPUT.FILE.&FILNUM,DISP=SHR
//FILEOUT DD DSN=OUTPUT.FILE.&FILNUM,
// DISP=(,CATLG,DELETE),
// UNIT=DISK,SPACE=(CYL,(10,20),RLSE),
// DCB=(LRECL=122,DSORG=PS,RECFM=FB)

To execute the PROC for multiple files:
Code:
//somejob  JOB
//FIRST    EXEC THEPROC,FILNUM=1
//SECOND   EXEC THRPROC,FILNUM=2
etc. . .
Back to top
View user's profile Send private message
samuel_Inba

New User


Joined: 03 Jan 2008
Posts: 53
Location: Chennai

PostPosted: Thu Apr 24, 2008 8:58 am    Post subject:
Reply with quote

Thanks a lot for your Immediate response. icon_smile.gif
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Apr 24, 2008 10:46 am    Post subject: Reply to: Need to execute a step more than once.
Reply with quote

You're welcome icon_smile.gif
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 Restart=Step not working ALAK SAHA JCL & VSAM 6 Fri Jun 30, 2017 6:28 pm
No new posts Validate date and numeric fields and ... Rick Silvers DFSORT/ICETOOL 6 Thu May 11, 2017 6:51 pm
No new posts Execute TSO ACF commands from COBOL-I... supreethi.srid TSO/ISPF 0 Tue Feb 21, 2017 5:19 pm
No new posts execute APP if they are not ADDRESS T... italo_pm CLIST & REXX 3 Fri Aug 12, 2016 2:15 am
No new posts Converting multiple VB files to FB fi... Viswanath Reddy JCL & VSAM 6 Mon Aug 08, 2016 11:49 pm


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