Problem solve Get help with specific problems with your technologies, process and projects.

Backup Using Flashcopy for OS/390

This tip covers backup using Flashcopy for OS/390.

When you are using a product like FLASHCOPY to make volume level backups of you entire SAP system, it is very easy...

to manually miss a volume ID if you have to set up the JCL, or update it when your DASD group updated their SMS group, thus adding another volume that SAP starts using.

In order to avoid this I set up a FDR job that reads the SMS storage groups and creats the control cards for the FLASHCOPY job. Thus preventing me from ever missing not backing up a new volume that was added with out my knowledge.


//*******************************************************************   
//*  QUERIES THE SPECIFIED STORAGE GROUP AND GENERATES                  
//*  THE PARMS USED TO FLASHCOPY THE VOLUMES IN THE STORAGE GROUP       
//*******************************************************************   
//STEP1    EXEC PGM=FDREPORT                                            
//SORTLIB  DD DSN=SYS1.SORTLIB,DISP=SHR                                 
//SORTWK01 DD SPACE=(CYL,10),UNIT=SYSDA                                 
//SYSPRINT DD SYSOUT=*                                                  
//SYSOUT   DD SYSOUT=*                                                  
//SYSUDUMP dd sysout=*                                  
//SNAPOUT  DD DSN=HIGHLEVEL.SNAP.SYSIN(+1),DISP=(NEW,CATLG),              
//         AVGREC=K,STORCLAS=SU0BASE,SPACE=(132,(250,250)),             
//         MGMTCLAS=MP0GDG,DATACLAS=DATAF  
 //SNAPBACK DD DSN=R3P1DSS.SNAPBACK.SYSIN(+1),DISP=(NEW,CATLG),       
//         AVGREC=K,STORCLAS=SU0BASE,SPACE=(132,(250,250)),          
//         MGMTCLAS=MP0GDG,DATACLAS=DATAF                            
//ABRSUM   DD SYSOUT=*                                               
//OUTMASK  DD DATA,DLM=TL                                            
)PREFIX                                                              
      PARALLEL                                                       
)ENDPREFIX                                                           
      COPY FULL  -                                                   
      ADMINISTRATOR -                                                
      DUMPCONDITIONING -                                             
      INDYNAM(<VLVOLSER>) -                                          
      OUTDYNAM(XS6<$$PRCNT3>) -                                      
      ALLDATA(*) -                                                   
      ALLEXCP -                                                      
      CANCELERROR -                                                  
      PURGE -                                                        
      WAIT(0,0)                                                      
TL                                      //BACKMASK  DD DATA,DLM=TL                         
)PREFIX                                            
      PARALLEL                                     
)ENDPREFIX                                         
      COPY FULL  -                                 
      ADMINISTRATOR -                              
      DUMPCONDITIONING -                           
      INDYNAM(XS6<$$PRCNT3>) -                     
      OUTDYNAM(<VLVOLSER>) -                       
      ALLDATA(*) -                                 
      ALLEXCP -                                    
      CANCELERROR -                                
      PURGE -                                      
      WAIT(0,0)                                    
TL                                                 
//SYSIN    DD *                                    
 DEFAULT SORTALLOC=YES,DATATYPE=VOLDATA            
 XSELECT STORGRP=SGSAPPR1                          
 XEXCLUDE VOL=PSR*                                 
 PRINT RPTYPE=DATA                                 
CANCEL SELECT                             
REPORT FIELD=(VLVOLSER)                   
DEFAULT DATATYPE=EXTRACT                  
PRINT                                     
DEFAULT RPTYPE=SELPCH,DISABLE=DUPDSNCH    
PUNCH ECHO,FDRLIB=OUTMASK                 
PRINT PCHDD=SNAPOUT                       
PUNCH ECHO,FDRLIB=BACKMASK                
PRINT PCHDD=SNAPBACK                      
                                                        
  
This was last published in February 2002

Dig Deeper on SAP Basis administration and NetWeaver administration

PRO+

Content

Find more PRO+ content and other member only offers, here.

Start the conversation

Send me notifications when other members comment.

By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Please create a username to comment.

-ADS BY GOOGLE

SearchManufacturingERP

SearchOracle

SearchDataManagement

SearchAWS

SearchBusinessAnalytics

SearchCRM

SearchContentManagement

SearchFinancialApplications

Close