VSAM Program's


VSAM  PROGRAMS

***** CREATING ESDS CLUSTER *****
//OZA296A JOB NOTIFY=&SYSUID                              
 //STEP1 EXEC PGM=IDCAMS                                   
 //SYSPRINT DD SYSOUT=*                                    
 //SYSIN DD *                                               
            DEFINE CLUSTER(NAME(OZA296.SVSAM.ESDS2)-     
            TRACKS(2,2)-                                   
            CISZ(512)-                                     
            RECORDSIZE(80 80)-                              
            NONINDEXED)                                    
 /*                                                        
 // 


***** CREATING RRDS CLUSTER ***** 
//OZA296A JOB NOTIFY=&SYSUID                 
//STEP1 EXEC PGM=IDCAMS                      
//SYSPRINT DD SYSOUT=*                       
//SYSIN DD *                                 
   DEFINE CLUSTER(NAME(OZA296.SVSAM.RRDS1)-
     TRACKS(2,2)-                            
     CISZ(512)-                              
     RECORDSIZE(80 80)-                      
     NUMBERED)                               
/*                                           
//    

***** CREATING KSDS CLUSTER *****
//OZA296A JOB NOTIFY=&SYSUID                 
 //STEP1 EXEC PGM=IDCAMS                       
 //SYSPRINT DD SYSOUT=*                       
 //SYSIN DD *                                 
    DEFINE CLUSTER(NAME(OZA296.SVSAM.KSDS1)-
      KEY(4,0)-                               
      TRACKS(2,2)-                             
      FREESPACE(20,20)-                       
      CISZ(512)-                              
      INDEXED)                                
 /*                                           
 //       
                                    
***** DELTE COMMAND (Delete the cluster using DELETE command) *****
//OZA296A JOB NOTIFY=&SYSUID        
//STEP1 EXEC PGM=IDCAMS             
//SYSPRINT DD SYSOUT=*              
//SYSIN DD *                        
          DELETE OZA296.SVSAM.RRDS1  
/*                                   
//                                  
  
***** REPRO COMMAND (Coping PS to cluster using REPRO command) *****
//OZA296A JOB NOTIFY=&SYSUID               
//STEP1 EXEC PGM=IDCAMS                    
//SYSPRINT DD SYSOUT=*                      
//DD1 DD DSN=OZA296.SVSAM.PS1,DISP=SHR   
//DD2 DD DSN=OZA296.SVSAM.RRDS,DISP=SHR  
//SYSIN DD *                               
             REPRO INFILE(DD1) OUTFILE(DD2)      
/*                                         
//  

 ***** ALTER COMMAND (renaming the cluster) *****
//OZA296A JOB NOTIFY=&SYSUID                
//STEP1 EXEC PGM=IDCAMS                     
//SYSPRINT DD SYSOUT=*                      
//SYSIN DD *                                
               ALTER OZA296.SVSAM.ESDS1.DATA-   
               NEWNAME(OZA296.SVSAM.ESDS2.DATA) 
/*                                          
//  

***** CREATING ALTERNATE INDEX *****
                         
//OZA296A JOB NOTIFY=&SYSUID                      
//STEP1 EXEC PGM=IDCAMS                           
//SYSPRINT DD SYSOUT=*                            
//SYSIN DD *                                      
                DEFINE AIX(NAME(OZA296.SVSAM.KSDS.AIX1)- 
                RELATE(OZA296.SVSAM.KSDS)-                
                TRACKS(1 1)-                               
                RECSZ(80 80)-                              
                KEYS(4,7)-                                 
                NONUNIQUEKEY-                              
                UPGRADE)                                   
/*                                                
//        

***** BUILD COMMAND (coping from ksds to ksds.aix) *****
 //OZA296A JOB NOTIFY=&SYSUID                  
 //STEP1 EXEC PGM=IDCAMS                        
 //SYSPRINT DD SYSOUT=*                        
 //DD1 DD DSN=OZA296.SVSAM.KSDS,DISP=SHR     
 //DD2 DD DSN=OZA296.SVSAM.KSDS.AIX1,DISP=SHR
 //SYSIN DD *                                  
        BLDINDEX INFILE(DD1)-                  
                 OUTFILE(DD2)                  
 /*                                            
 //            
                                                                         
***** PATH *****
//OZA296A JOB NOTIFY=&SYSUID                                   
//STEP1 EXEC PGM=IDCAMS                                       
//SYSPRINT DD SYSOUT=*                                        
//SYSIN DD *                                                  
         DEFINE PATH(NAME(OZA296.SVSAM.AIX1.PATH1)-          
         PATHENTRY(OZA296.SVSAM.KSDS.AIX1))                 
/*                                                            
//                                                                                                      

0 comments:

Computers TopOfBlogs Technology Blogs Mainframe interview question and answers,mainframe jobs,cobol,vsam,jcl,cics,db2,rdbms,mvs,tso,ispf,ibm,hcl,tcs,cts,wibro Blog Directory