Wednesday, February 2, 2011

Fileaid - to take a copy of a deleted tape dataset

//STEP020  EXEC  PGM=FILEAID                                         
//SYSPRINT DD  SYSOUT=*                                              
//SYSOUT   DD  SYSOUT=*                                              
//*                                                                  
//DD01     DD  DSN=PCNCN.CN0060MN.UPLOAD.POL.SORT,                   
//             DISP=OLD,UNIT=CART,                                   
//             VOL=SER=520361                                                                                                         

//DD01O    DD  DSN=TCCPU.CN0060MN.UPLOAD.POLICY.BKUP,                
//             DISP=(NEW,CATLG,DELETE),                              
//             UNIT=CART,                                            
//             DCB=RECFM=FB                                          
//*            LABEL=RETPD=30                                        
//*
                    

This takes a backup of the tape dataset which is been deleted. With the tape's volume serial given backup can be taken.                                             

No comments:

Post a Comment