IDCAMS program examples

Examples of some of the things that you can do with IDCAMS (Access Method Services)
//IDCAMS1  EXEC PGM=IDCAMS                            
//SYSPRINT DD SYSOUT=*                                
//VSFILE   DD DSN=VSAM.FILE,DISP=SHR                  
//FILE1    DD DSN=userid.ANYFILE.DATA,DISP=SHR        
//INFILE   DD *                                       
R1                                                    
R2                                                    
R3                                                    
//OUTFILE  DD SYSOUT=*                                
//SYSIN    DD *                                       
 /* GET INFO */                                       
 LISTCAT ENT(userid.MY.TEST.FILE) VOLUMES             
                                                      
 /* THIS WILL ACCESS DATASET  */                      
 PRINT IDS(userid.MY.TEST.FILE) COUNT(1)              
 PRINT INFILE(FILE1) COUNT(1)                                      
                                                                   
 /* DEFINE A GENERATION DATA GROUP (APOST NOT NEEDED */            
 DEFINE GDG (NAME('userid.TEST.GDG') LIMIT(4) SCRATCH NOEMPTY)     
                                                                   
 /* CHANGE THE LIMIT ON A GENERATION DATA GROUP */                 
 ALTER            'userid.TEST.GDG' LIMIT(3)                       
                                                                   
 /* DELETE A GENERATION DATA GROUP IF IT IS EMPTY*/                
 DELETE           'userid.TEST.GDG' GDG                            
                                                                   
                                                                   
 /* CREATE AN EMPTY DATASET AND CONNECT IT TO DDNAME NEWOUT */     
 ALLOC DSN('userid.TEST.FILE') NEW REUSE SPACE(1,1) TRACKS -       
 LRECL(80) RECFM(F,B) DDN(NEWOUT)                                  
                                                                   
                                                                   
 /* RENAME A DATASET */                                            
 ALTER       'userid.TEST.FILE' NEWNAME('userid.TEST2.FILE')       
                                                                   
                                                           
 /* DO SOMETHING BASED ON A RETURN CODE FROM COMMAND */    
 ALLOC DSN('userid.TEST.FILE') SHR REUSE DDN(XXYYZZ)       
 IF MAXCC EQ 0 THEN  DO                                    
    SET MAXCC = 7                                          
    CANCEL  /* SETS MAXCC = 12 */                          
    END                                                    
    ELSE DO                                                
    END                                                    
                                                           
                                                           
 /* COPY */                                                
 REPRO INFILE(INFILE) OUTFILE(NEWOUT) SKIP(1) COUNT(2)     
                                                           
 /* ANOTHER WAY TO COPY */                                 
 REPRO INFILE(INFILE) OUTDATASET('userid.TEST.FILE)'       
                                                           
 /* DELETE */                                              
 DELETE 'userid.TEST.FILE'                                 
                                                           
                                                         
 /* CHECK IF A VSAM FILE WAS CLOSED CORRECTLY */         
  VERIFY FILE(VSFILE)                                    
  VERIFY DATASET(XYZ.DATA)                               
/*