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