|
View previous topic :: View next topic
|
| Author |
Message |
prashantshinde
New User
.jpg)
Joined: 25 Nov 2005
Posts: 49
Location: Pune
|
|
|
|
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 |
|
 |
DavidatK
Active Member
Joined: 22 Nov 2005
Posts: 700
Location: Troy, Michigan USA
|
|
|
|
Is the KEY in the same location in each file?
Dave |
|
| Back to top |
|
|
prashantshinde
New User
Joined: 25 Nov 2005
Posts: 49
Location: Pune
|
|
|
|
Yes ,
key is at same location.
Plz give me the code |
|
| Back to top |
|
|
DavidatK
Active Member
Joined: 22 Nov 2005
Posts: 700
Location: Troy, Michigan USA
|
|
|
|
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 |
|
|
prashantshinde
New User
Joined: 25 Nov 2005
Posts: 49
Location: Pune
|
|
|
|
Hi Dave,
Thank u !!
ur code helped me !
Prashant. |
|
| Back to top |
|
|
|
|
