VSAM Modified Command Program's

  LISTCAT-VSAM
//TRGA13AA JOB NOTIFY=TRGA13                        
//STEP1 EXEC PGM=IDCAMS                            
//SYSIN DD *                                        
    LISTCAT ENTRIES(TRGA13.MOULI.KSDS.CLUST) ALL    
//SYSPRINT DD SYSOUT=A                              
//                        
******************************************************************
               VSAM-PATH 
//TRGA13QW JOB NOTIFY=TRGA13                  
//STEP1 EXEC PGM=IDCAMS                        
//SYSPRINT DD SYSOUT=A                        
//SYSIN DD *                                  
    DEFINE PATH(NAME(TRGA13.MOULI.KSDS.PATH) -
    PATHENTRY(TRGA13.MOULI.AIX.CLUST) -        
    UPDATE)                                    
/*                                            
//                                            
*******************************************************************
            ALTER - VSAM NAME
//TRGA13QQ JOB NOTIFY=TRGA13                
//STEP1 EXEC PGM=IDCAMS                      
//SYSPRINT DD SYSOUT=A                      
//SYSIN DD *                                
    ALTER -                                  
    TRGA13.MOULI.KSDS1.CLUST1 -              
    NEWNAME(TRGA13.MOULI.KSDS.CLUST)        
/*                                          
//                                          
*****************************************************************
            ALTER - VSAM FRESPACE(ONLY DATA)
//TRGA13QQ JOB NOTIFY=TRGA13          
//STEP1 EXEC PGM=IDCAMS                
//SYSPRINT DD SYSOUT=A                
//SYSIN DD *                          
    ALTER TRGA13.MOULI.KSDS.DATA -    
    FREESPACE(8,8)                    
/*                                    
//                                    
**************************************************************
             VSAM-REPLACE
//TRGA13QQ JOB NOTIFY=TRGA13                  
//STEP1 EXEC PGM=IDCAMS                      
//SYSPRINT DD SYSOUT=A                        
//SYSIN DD *                                  
    REPRO -                                  
      INDATASET(TRGA13.MOULI.PSOUT) -        
      OUTDATASET(TRGA13.MOULI.KSDS.CLUST) -  
      REPLACE                                
/*                                            
//                                            
****************************************************************
                        VSAM - REUSE
//TRGA13QQ JOB NOTIFY=TRGA13                
//STEP1 EXEC PGM=IDCAMS                      
//SYSPRINT DD SYSOUT=A                      
//SYSIN DD *                                
    REPRO -                                  
      INDATASET(TRGA13.MOULI.PSOUT) -        
      OUTDATASET(TRGA13.MOULI.KSDS.CLUST) -  
      REUSE                                  
/*                                          
//

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