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
 

 

Merging vsam files with diff LRECL

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
prashantshinde

New User


Joined: 25 Nov 2005
Posts: 44
Location: Pune

PostPosted: Thu Jun 22, 2006 5:46 pm    Post subject: Merging vsam files with diff LRECL
Reply with quote

I have 5 vsam (ksds) files with different LRECL. Is it poss to merge these files? If yes... pls let me know?
Thanks
Back to top
View user's profile Send private message

DavidatK

Active Member


Joined: 22 Nov 2005
Posts: 700
Location: Troy, Michigan USA

PostPosted: Thu Jun 22, 2006 7:23 pm    Post subject: Re: Vsam merging
Reply with quote

Is the KEY in the same location in each file?

Dave
Back to top
View user's profile Send private message
prashantshinde

New User


Joined: 25 Nov 2005
Posts: 44
Location: Pune

PostPosted: Thu Jun 22, 2006 7:29 pm    Post subject: Re: Vsam merging
Reply with quote

Yes ,
key is at same location.

Plz give me the code
Back to top
View user's profile Send private message
DavidatK

Active Member


Joined: 22 Nov 2005
Posts: 700
Location: Troy, Michigan USA

PostPosted: Thu Jun 22, 2006 9:08 pm    Post subject: Re: Merging vsam files with diff LRECL
Reply with quote

Define variable length VSAM file

Code:

//JS00100  EXEC PGM=IDCAMS                                           
//SYSIN DD *                                                         
  DEFINE                              -                               
      CLUSTER(                        -                               
          NAME(YOURID.VLR.TEST)        -                               
          KEYS(10 0)                  -                               
          RECSZ(30 60)                -   <== AVG AND MAX RECORD SIZE
          SPEED                       -                               
          REUSE                       -                               
          FSPC(0 0)                   -                               
          RECORDS(150))               -                               
      DATA(                           -                               
          NAME(YOURID.VLR.TEST.DATA)   -                               
          CISZ(4096))                 -                               
      INDEX(                          -                               
          NAME(YOURID.VLR.TEST.INDEX))                                 
/*                                                                   
//SYSPRINT DD SYSOUT=* 



REPRO your files into it

Code:

//JS00100  EXEC PGM=IDCAMS                       
//SYSPRINT DD SYSOUT=*                           
//SYSIN DD *                                     
  REPRO IDS('YOURID.PS.L30') ODS('YOURID.VLR.TEST')    <=== LRECL 30 file
  REPRO IDS('YOURID.PS.L60') ODS('YOURID.VLR.TEST')    <=== LRECL 60 file
/


Dave
Back to top
View user's profile Send private message
prashantshinde

New User


Joined: 25 Nov 2005
Posts: 44
Location: Pune

PostPosted: Fri Jun 23, 2006 10:19 am    Post subject:
Reply with quote

Hi Dave,

Thank u !!
ur code helped me !

Prashant.
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts getting three output files out of JOI... migusd SYNCSORT 7 Mon Jun 05, 2017 11:30 pm
No new posts Unable to create multiple files using... mbattu COBOL Programming 3 Fri May 05, 2017 5:35 pm
This topic is locked: you cannot edit posts or make replies. Merge two files and update Trailer re... Yashashri JCL & VSAM 1 Thu May 04, 2017 12:54 pm
No new posts WER247A incompatible lrecl Danielle.Filteau SYNCSORT 8 Tue May 02, 2017 4:04 am
No new posts VSAM Space Allocation mrgnndhmk JCL & VSAM 7 Sat Apr 22, 2017 12:42 am


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