VSAM Program's

VSAM   PROGRAMS ***** CREATING ESDS CLUSTER ***** //OZA296A JOB NOTIFY=&SYSUID                  ...

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)                                    

 /*                                                        

 // 

Vsam for the Cobol Programmer: Concepts, Cobol, Jcl, Idcams 

***** 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))                 

/*                                                            

//