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
 
Need JCL to Copy/Repro VSAM file to Another VSAM file

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL
Author Message
bala_span

New User


Joined: 26 Aug 2006
Posts: 11

PostPosted: Fri Dec 01, 2006 3:14 am    Post subject: Need JCL to Copy/Repro VSAM file to Another VSAM file
Reply with quote

Hi
I need JCL to Copy/Repro VSAM file to Another VSAM file. I do not have File-aid installed.
If you could provide me a JCL which does this will be helpful.

Thanks
B
Back to top
View user's profile Send private message
References
PostPosted: Fri Dec 01, 2006 3:14 am    Post subject: Re: Need JCL to Copy/Repro VSAM file to Another VSAM file Reply with quote

MFRASHEED

Active User


Joined: 14 Jun 2005
Posts: 184

PostPosted: Fri Dec 01, 2006 3:25 am    Post subject: Re: Need JCL to Copy/Repro VSAM file to Another VSAM file
Reply with quote

To copy, you can use IDCAMS/REPRO. If target VSAM does not exist, again use IDCAM DEFINE to define it.

Code:

//STP0100  EXEC PGM=IDCAMS                                             
//******************************************************************** 
//******         REPRO VSAM TO VSAM FILE                       ******* 
//******************************************************************** 
//DDI      DD  DSN=FIRST.VSAM.FILE,                       
//             DISP=SHR                                                 
//DDO      DD  DSN=SECOND.VSAM.FILE,                         
//             DISP=SHR                                                 
//SYSIN    DD  *                                                       
        REPRO -                                                         
           INFILE(DDI) -                                               
           OUTFILE(DDO)                                                 
/*                                                                     
//SYSOUT   DD  SYSOUT=*                                                 
//SYSTSPRT DD  SYSOUT=*                                                 
//SYSPRINT DD  SYSOUT=*                                                 
//SYSABOUT DD  SYSOUT=*                                                 
//SYSDUMP  DD  SYSOUT=*                                                 
//SYSUDUMP DD  SYSOUT=*                                                 
//ABENDAID DD  SYSOUT=*                                                 
Back to top
View user's profile Send private message
bala_span

New User


Joined: 26 Aug 2006
Posts: 11

PostPosted: Fri Dec 01, 2006 3:47 am    Post subject: Re: Need JCL to Copy/Repro VSAM file to Another VSAM file
Reply with quote

MFRASHEED wrote:
To copy, you can use IDCAMS/REPRO. If target VSAM does not exist, again use IDCAM DEFINE to define it.

Code:

//STP0100  EXEC PGM=IDCAMS                                             
//******************************************************************** 
//******         REPRO VSAM TO VSAM FILE                       ******* 
//******************************************************************** 
//DDI      DD  DSN=FIRST.VSAM.FILE,                       
//             DISP=SHR                                                 
//DDO      DD  DSN=SECOND.VSAM.FILE,                         
//             DISP=SHR                                                 
//SYSIN    DD  *                                                       
        REPRO -                                                         
           INFILE(DDI) -                                               
           OUTFILE(DDO)                                                 
/*                                                                     
//SYSOUT   DD  SYSOUT=*                                                 
//SYSTSPRT DD  SYSOUT=*                                                 
//SYSPRINT DD  SYSOUT=*                                                 
//SYSABOUT DD  SYSOUT=*                                                 
//SYSDUMP  DD  SYSOUT=*                                                 
//SYSUDUMP DD  SYSOUT=*                                                 
//ABENDAID DD  SYSOUT=*                                                 


Thanks Rasheed. That was very helpful.
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 Hours
Page 1 of 1