Tuesday, February 1, 2011

KSDS Syntax

Creating Base Cluster:

DELETE PCCPU.IOBSC.MASTER -                      
       CLUSTER -                                 
       PURGE                                     
IF MAXCC NE 0 THEN SET MAXCC=0                   
DEFINE CLUSTER -                                 
    (NAME(PCCPU.IOBSC.MASTER) -                  
     FSPC(40 40) -                               
     KEYS(20 0) -                                
     RECSZ(200 200) -                            
     INDEXED -                                   
     SPEED -                                     
     SHR(2 3)) -                                 
 DATA -                                          
    (NAME(PCCPU.IOBSC.MASTER.DATA) -             
     CISZ(4096) -                                
     CYL(200 80)) -                              
 INDEX -                                         
    (NAME(PCCPU.IOBSC.MASTER.INDEX) -            

     CISZ(512))  

Load the VSAM file with records.
REPRO INFILE(INFILE) OUTFILE(OUTFILE) REPLACE


Creating Alternate index/Path/Build index:


DEFINE AIX -                                               
       ( NAME(PCCPU.IOBSC.MASTER.AIX ) -                   
         RELATE(PCCPU.IOBSC.MASTER ) -                     
         NUNQK UPGRADE                 -                   
         RECORDSIZE(200,655213)       -                    
         KEYS(8 12)                   -                    
         SHAREOPTIONS(3 3)            -                    
         SPEED                        -                    
         FREESPACE(40,20)             -                    
  ) -                                                      
       DATA -                                              
       ( NAME(PCCPU.IOBSC.MASTER.AIX.DATA ) -              
         CISZ(4096) -                                      
         CYL(200 80)  -                                    
  ) -                                                      
       INDEX -                                             
       ( NAME(PCCPU.IOBSC.MASTER.AIX.INDEX ) -             
           CISZ(512) -                                     
     )                                                 
                                                       
 DEFINE PATH -                                         
        ( NAME(PCCPU.IOBSC.MASTER.PATH ) -             
          PATHENTRY(PCCPU.IOBSC.MASTER.AIX) -          
   )                                                   
                                                       
 BLDINDEX INDATASET(PCCPU.IOBSC.MASTER) -              
          OUTDATASET(PCCPU.IOBSC.MASTER.PATH) -        
          INTERNALSORT                                 

No comments:

Post a Comment