Hi,
I am using a VSAM KSDS dataset as an input file for PL/1 program. I have setup this file for testing purpose. I need this file to have a record length of 15 bytes, with first 9bytes as the key. I am loading the VSAM dataset using a PS file of lrecl = 15 bytes. But, the KSDS shows the rba as 80 bytes.
Could you please help me to setup this file?
Thanks,
Clads
VSAM file for testing
Moderator: Moderator Group
How did you define the VSAM KSDS cluster?
I've used the following IDCAMS DEFINE command:
to create a VSAM KSDS cluster with the following attributes:
As you can see average and maximum records size is 15. The key starts at offset zero (0) for nine (9) bytes.
I've used the following IDCAMS DEFINE command:
Code: Select all
DEFINE CLUSTER(NAME('RAIXN.ANV.KSDSTEST') -
CYLINDERS(1 1) -
BUFSP(66048) -
FSPC(15 15) -
IXD -
KEYS(9 0) -
OWNER(RAIXN) -
SHR(2 4) )
DATA(NAME('RAIXN.ANV.KSDSTEST.DATA') -
VOL(RA6093) -
CISZ(32768) -
RECORDSIZE(15 15) )
INDEX(NAME('RAIXN.ANV.KSDSTEST.INDEX') -
VOL(RA6093) -
CISZ(512) )
Code: Select all
------------------- VSAM Allocation Facility (KSDS cluster) -------------------
Command ===>
VSAM object
Cluster name ===> RAIXN.ANV.KSDSTEST
Data name ===> RAIXN.ANV.KSDSTEST.DATA
Index name ===> RAIXN.ANV.KSDSTEST.INDEX
Cluster parameters
Freespace CI ===> 15 (Percent of free space in CIs)
Freespace CA ===> 15 (Percent of free space in CAs)
Share Region ===> 2 (1, 2, 3, 4)
Share System ===> 4 (3, 4)
Key Length ===> 9
Key Offset ===> 0
Space Units ===> C (C=CYL, T=TRACK, R=REC)
Primary alloc ===> 1
Second alloc ===> 1
Data Component Parameters Index Component Parameters
Volser ===> RA6093 Volser ===> RA6093
CI size ===> 32768 CI size ===> 512
Avg recsz ===> 15 Imbed ===> N
Max recsz ===> 15 Replicate ===> N
Code: Select all
--------------- VSAM Allocation Facility (Additional parameters) -------------
Command ===>
Space Distribution
Destagewait ===> (Y/N - destaging)
Ordered ===> N (Y/N - ordered volumes)
Stage ===> (S=STAGE, B=BIND C=CYLF)
To(date) ===> (YYYYDDD)
For(days) ===> (0 - 9999)
Data management
Erase ===> N (Y/N - erase upon delete)
Reuse ===> N (Y/N - reusable dataset)
Speed ===> N (Y/N - perform storage upon insert record
Recatalog ===> (Y/N - define cluster in ICF catalog)
Data Layout
Spanned ===> N (Y/N - span CI boundaries)
Bufferspace ===> 66048 (0 - 1676704)
Code: Select all
--------------------- VSAM Allocation Facility (Security) ---------------------
Command ===>
Specify Security Parameters
Attempts ===> (Max times operator can try password entry)
Code ===> (Code name for the entry being defined)
Auth.routine ===> (User-Security-Verify-Routine name)
Auth. parms ===> (Parameters to be passed to the USVR)
Master ===> (The password dataset)
Control ===>
Read ===>
Update ===>
Except. exit ===> (Name of the exception exit module)
Owner ===> RAIXN (Owner-id of the entry being defined)
Write check ===> N (Y- Check on record update or insert)
-
- Moderator
- Posts: 1625
- Joined: Sat Aug 09, 2008 9:02 am
- Location: Mumbai, India
FREE TUTORIALS
Tutorials
Free tutorials from mainframegurukul
- JCL Tutorial
Covers all important JCL concepts. - Cobol Tutorial
This tutorials covers all Cobol Topics from STRING to COMP-3. - DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. - SORT Tutorial
This Tutorial covers all important aspects of DFSORT with examples - CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions
- Cobol Interview Questions
50+ Interview Questions - JCL Interview Questions
50+ Interview Questions - DB2 Interview Questions
100+ Interview Questions - CICS Interview Questions
70+ Interview Questions - VSAM Interview Questions
27 Interview Questions
Other References
Mainframe Tools and others
- XPEDITER Reference
Explains how we can debug a program - FILEAID Reference
Explains how to browse , edit and delete datasets - Change Man Reference
Quick Start tutorial on Changeman - Abend Reference
Important Abend codes explained - FaceBook Page
MainframeGurukul FaceBook Page - LinkedIn Page
MainframeGurkul Linkedin Page