Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 Merging 2 records at multiple rows wi... Bijesh DFSORT/ICETOOL 2 Wed Dec 06, 2017 1:50 am
No new posts Compare VSAM files using DFSORT pshongal DFSORT/ICETOOL 5 Thu Nov 23, 2017 10:24 am
No new posts Split files upto certain limit based ... bubbu75 DFSORT/ICETOOL 5 Tue Nov 14, 2017 11:11 pm
No new posts Copy selected columns from 2 input fi... Poha Eater DFSORT/ICETOOL 3 Thu Nov 02, 2017 3:43 pm
No new posts Finding difference between two PS fil... Vignesh Sid SYNCSORT 5 Mon Oct 30, 2017 1:13 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us