example of a native VSAM KSDS definition for the IDMS DMCL

Products

• IDMS
• IDMS - Database
• IDMS - ADS

Issue/Introduction

An example of defining a native VSAM KSDS area/file to the DMCL is needed.

 

Environment

IDMS - all supported releases

Resolution

 CREATE                                              
   SEGMENT VSAMSEG                                     
       FOR NONSQL                                      
       PAGE GROUP 0                                    
       MAXIMUM RECORDS PER PAGE 255                    
        ;                                               

   CREATE                                                            
   FILE VSAMSEG.KSDSVSAM                                             
       ASSIGN TO KSDSVSAM                                            
       DSNAME 'VSAMP.TECHDC22.KSDSVSAM.CLUSTER'                      
       DISP SHR                                                      
       KSDS FOR CALC FOR SET KSDS-PRIME-SET                          
         ;                                                             

   CREATE                                              
   FILE VSAMSEG.KSDSPATH                               
        ASSIGN TO KSDSPATH                              
       DSNAME 'VSAMP.TECHDC22.KSDSPATH.PATH'           
       DISP SHR                                        
       PATH FOR SET KSDS-ALT-SET 

        ;   

   CREATE                                                     
   PHYSICAL AREA VSAMSEG.KSDS-AREA                            
       FOR NONSQL                                             
       PAGE GROUP 0                                           
       PRIMARY SPACE 20 PAGES  FROM PAGE 78101                
       MAXIMUM SPACE 20 PAGES                                 
       PAGE SIZE 0 CHARACTERS                                 
       WITHIN PATH FILE KSDSPATH                              
       WITHIN FILE KSDSVSAM                                   
           FROM 1 FOR 20 BLOCKS  

       ;