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 Copy one file into nine files in one step

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

Active User


Joined: 22 Mar 2009
Posts: 157
Location: South Africa

PostPosted: Thu Dec 24, 2009 4:12 pm    Post subject: Need To Copy one file into nine files in one step
Reply with quote

Hi,
I need to copy a same file into 9 files in a single step. I was doing with IEBGENER but it is only copying to first systut2 files and other 8 files are blank.Can anybody help me out.The code is

Code:
//CREATE1  EXEC PGM=IEBGENER                       
//SYSUT1   DD  DSN=TEST.SORT1,
//             DISP=SHR           
//SYSUT2   DD  DSN=TEST.COPYA,
//             DISP=(NEW,CATLG,DELETE),           
//             UNIT=SYSDA,                         
//             LRECL=157,                         
//             RECFM=FB                           
//SYSUT2   DD  DSN=TEST.COPYB,
//             DISP=(NEW,CATLG,DELETE),           
//             UNIT=SYSDA,                         
//             LRECL=157,                         
//             RECFM=FB                           
//SYSUT2   DD  DSN=TEST.COPYC,
//             DISP=(NEW,CATLG,DELETE),           
//             UNIT=SYSDA,                         
//             LRECL=157,                         
//             RECFM=FB                           
//SYSUT2   DD  DSN=TEST.COPYD,
//             DISP=(NEW,CATLG,DELETE),           
//             UNIT=SYSDA,                         
//             LRECL=157,                         
//             RECFM=FB                           
//SYSUT2   DD  DSN=TEST.COPYE,
//             DISP=(NEW,CATLG,DELETE),           
//             UNIT=SYSDA,                         
//             LRECL=157,                         
//             RECFM=FB                           
//SYSUT2   DD  DSN=TEST.COPYF,
//             DISP=(NEW,CATLG,DELETE),           
//             UNIT=SYSDA,                         
//             LRECL=157,                         
//             RECFM=FB                           
//SYSUT2   DD  DSN=TEST.COPYG,
//             DISP=(NEW,CATLG,DELETE),           
//             UNIT=SYSDA,                         
//             LRECL=157,                         
//             RECFM=FB                           
//SYSUT2   DD  DSN=TEST.COPYH,
//             DISP=(NEW,CATLG,DELETE),           
//             UNIT=SYSDA,                         
//             LRECL=157,                         
//             RECFM=FB                           
//SYSUT2   DD  DSN=TEST.COPYI,
//             DISP=(NEW,CATLG,DELETE),           
//             UNIT=SYSDA,                         
//             LRECL=157,                         
//             RECFM=FB                           
//SYSPRINT DD SYSOUT=*


Edited: Please use BBcode when You post some code/error, that's rather readable, Thanks... Anuj
Back to top
View user's profile Send private message

Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Thu Dec 24, 2009 4:24 pm    Post subject:
Reply with quote

IEBGENER is doing what you told him to do. Sort can be a choice, also.
Back to top
View user's profile Send private message
abhijit.nayak01

Active User


Joined: 22 Mar 2009
Posts: 157
Location: South Africa

PostPosted: Thu Dec 24, 2009 4:27 pm    Post subject:
Reply with quote

can u plz suggest the code....
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2435
Location: Netherlands, Amstelveen

PostPosted: Thu Dec 24, 2009 4:36 pm    Post subject:
Reply with quote

A possibility :


IDCAMS :

REPRO IFILE(IN1) OFILE(OUT1) COUNT(X1)
REPRO IFILE(IN1) OFILE(OUT2) COUNT(X2) SKIP(X1)
REPRO IFILE(IN1) OFILE(OUT3) COUNT(X3) SKIP(X1 + X2)

ETC.
Back to top
View user's profile Send private message
guptae

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Thu Dec 24, 2009 4:37 pm    Post subject:
Reply with quote

Hi Abhijit,

Topic has been discussed so many times. Please refer the below link.

http://www.ibmmainframes.com/viewtopic.php?t=42426&highlight=multiple+copy
Back to top
View user's profile Send private message
abhijit.nayak01

Active User


Joined: 22 Mar 2009
Posts: 157
Location: South Africa

PostPosted: Thu Dec 24, 2009 4:59 pm    Post subject:
Reply with quote

Thanks it worked correctly.....
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Thu Dec 24, 2009 5:01 pm    Post subject:
Reply with quote

Glad to hear, next time please search the forum first... icon_smile.gif
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Sat Dec 26, 2009 11:03 am    Post subject:
Reply with quote

The MVS JCL Reference Manual would have told you immediately how JES treats duplicate ddnames.
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: Sat Dec 26, 2009 2:12 pm    Post subject:
Reply with quote

Terry Heinze wrote:
The MVS JCL Reference Manual would have told you immediately how JES treats duplicate ddnames.

Yes Terry, but that would involve the OP reading it for himself icon_rolleyes.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 SSH - known_hosts file configuration vasanthz All Other Mainframe Topics 2 Wed Jul 26, 2017 2:10 am
This topic is locked: you cannot edit posts or make replies. Fetching data from BAI File arunsoods JCL & VSAM 1 Wed Jul 19, 2017 4:28 pm
No new posts Write out NODUPS but just from one file Jay Villaverde DFSORT/ICETOOL 8 Fri Jul 14, 2017 12:44 am
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm
No new posts How to generate a new unique Input fi... for1ranjith CLIST & REXX 11 Sat Jul 01, 2017 12:09 pm


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