VSAM Creation Programe in JCL

 VSAM-KSDS-CREATION
//TRGA13WW JOB NOTIFY=TRGA13                        
//STEP1 EXEC PGM=IDCAMS                              
//SYSPRINT DD SYSOUT=A                              
//SYSIN DD *                                        
   DEFINE CLUSTER (NAME(TRGA13.MOULI.KSDS.CLUST) -  
   VOLUME(WORK06) -                                  
   TRACKS(1,2) -                                    
   CONTROLINTERVALSIZE(1024) -                      
   FREESPACE(5,5) -                                  
   KEYS(4,0) -                                      
   RECORDSIZE(134,134)) -                            
   DATA(NAME(TRGA13.MOULI.KSDS.DATA)) -              
   INDEX(NAME(TRGA13.MOULI.KSDS.INDEX) -            
   CONTROLINTERVALSIZE(1024))                        
/*                                                  
//                                                  
*******************************************************
         VSAM TO NON-VSAM
//TRGA13AA JOB NOTIFY=TRGA13                        
//STEP1 EXEC PGM=IDCAMS                            
//INDD   DD DSN=TRGA13.MOULI.KSDS.CLUST,DISP=SHR    
//OUTDD    DD DSN=TRGA13.MOULI.PSOUT,DISP=OLD      
//SYSIN DD *                                        
    REPRO -                                        
    INFILE(INDD) -                                  
    OUTFILE(OUTDD)                                  
/*                                                  
//SYSPRINT DD SYSOUT=A                              
//                                                  
***********************************************************
           VSAM TO NON-VSAM
//TRGA13AA JOB NOTIFY=TRGA13                      
//STEP1 EXEC PGM=IDCAMS                            
//INDD   DD DSN=TRGA13.MOULI.KSDS.CLUST,DISP=SHR  
//OUTDD    DD DSN=TRGA13.MOULI.PS,DISP=OLD        
//SYSIN DD *                                      
    REPRO -                                        
    INFILE(INDD) -                                
    OUTFILE(OUTDD) -                              
    FROMKEY(1002) TOKEY(1004)                      
/*                                                
//SYSPRINT DD SYSOUT=A                            
//                                                

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