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 Changing of LRECL of a file abdulrafi DFSORT/ICETOOL 1 Fri Mar 24, 2017 3:25 pm
No new posts Append data from two files into a sin... Praveen04 DFSORT/ICETOOL 5 Thu Mar 16, 2017 7:29 pm
No new posts Updating a VSAM file with DISP=OLD sheersh JCL & VSAM 8 Tue Mar 14, 2017 6:14 pm
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm
No new posts VSAM RLS=NRI while doing IDCAMS sheersh JCL & VSAM 1 Tue Mar 07, 2017 1:55 pm


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