Home      Mainframe Forum      Mainfarme Tutorials      IBM Manuals      Mainframe Interview Questions      Mainframe Books      IT News     SiteMap     Downloads


 Home     Mainframe Forum     FAQFAQ    SearchSearch  RegisterRegister   ProfileProfile    Log in to check your private messagesLog in to check your private messages    Log inLog in 
   		  
 
MAINFRAME - TIP OF THE DAY : If you want to make your VSAM data set read-only, use INHIBIT with ALTER command. E.g. ALTER XXX.XX.DATA INHIBIT ALTER XXX.XX.INDEX INHIBIT

Google
 
Web mainframegurukul.com

Welcome to the mainframegurukul forums.

You are currently viewing our mainframe forums as a guest which gives you limited access to view most discussions, articles. By joining our free community you will have access to post topics, communicate privately with other members (PM), respond to polls, upload your own photos. Registration is fast, simple and absolutely free so please, join our community today!

If you have any problems with the registration process or your account login, please contact contact support at admin@mainframegurukul.com


VSAM file for testing

 
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> VSAM - File system
  View previous topic :: View next topic  
Author Message
Clads
Member


Joined: 10 Jan 2010
Posts: 1
PostPosted: Sun Jan 10, 2010 8:17 pm    Post subject: VSAM file for testing Reply with quote
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
Back to top
View user's profile Send private message

anv2010
Member


Joined: 05 Feb 2010
Posts: 5
Location: New Jersey, US
PostPosted: Fri Feb 05, 2010 12:36 am    Post subject: Reply with quote
How did you define the VSAM KSDS cluster?

I've used the following IDCAMS DEFINE command:

Code:
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) )                                                   


to create a VSAM KSDS cluster with the following attributes:

Code:
------------------- 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:
--------------- 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:
--------------------- 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)       


As you can see average and maximum records size is 15. The key starts at offset zero (0) for nine (9) bytes.
Back to top
View user's profile Send private message Visit poster's website
Anuj Dhawan
Moderator


Joined: 09 Aug 2008
Posts: 949
Location: Mumbai, India
PostPosted: Sat Feb 06, 2010 10:38 pm    Post subject: Reply with quote
Clads - please run a LISTCAT against your VSAM and show us the results.
_________________
Anuj


//MYWALLET EXEC PGM=SPOUSE
//SYSIN DD DSN=MYWALLET.ALL,DISP=SHR
//SYSOUT DD DUMMY
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> VSAM - File system All times are GMT + 5 Hours
Page 1 of 1



 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

Related topics
 Topics   Replies   Author   Views   Last Post 
No new posts IAM BEGINNER IN JCL ...PLZ HELP ME 3 Guest 13377 Wed Jul 07, 2010 8:20 am
anilsani285 View latest post
No new posts Hi plz help me out 5 Guest 5518 Wed Jul 07, 2010 8:18 am
anilsani285 View latest post
No new posts File-Aid Help 1 Nicholas 8792 Thu Apr 13, 2006 2:12 pm
rangab View latest post
No new posts Search Batch file-aid help 6 frenchman 9711 Tue Mar 28, 2006 5:30 pm
Guest View latest post
No new posts executing java program thru JCL 1 Guest 7947 Fri Mar 17, 2006 10:14 am
arrbee View latest post
 



This widget requires Flash Player 9 or better







Go to top of the page
 

Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  DB2 INTERVIEW QUESTIONS ||  COBOL INTERVIEW QUESTIONS  ||  JCL INTERVIEW QUESTIONS ||  JCL2 INTERVIEW QUESTIONS ||  VSAM INTERVIEW QUESTIONS ||  CICS INTERVIEW QUESTIONS  ||  Online tutorials ||  Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  SiteMap  ||  Expeditor Tutorial  ||  FILE-AID Tutorial  ||  Changeman Tutorial  ||  COBOL   ||  DB2   ||  JCL  ||  CICS  ||  VSAM  ||  DB2 Interview Questions ( 110 )   || Simple JCL Tutorials  || JCL Tutorial from MainframeGurukul.com   || Simple JCL Tutorial - Chapter1 ;|| Mainframe Forum - Tutorials  || Mainframe Tutorials

Drona Educational Forums - Mainframe Cobol DB2 CICS Board
Powered by phpBB