Comments on: SAVF: Backing up all user libraries

By: The Most-Watched IT Questions: October 4, 2011 - ITKE Community Blog

The Most-Watched IT Questions: October 4, 2011 - ITKE Community Blog — Tue, 04 Oct 2011 06:55:40 +0000

[...] 8. CharlieBrowne offers another approved answer, this time on SAVF: Backing up all user libraries. [...]

By: charliebrowne

charliebrowne — Thu, 22 Sep 2011 13:29:41 +0000

This should do it for you.

/* *******************************************************************/            
/* Program Name : LIBS2SAVF                                          */            
/* Description  : Save Selected Librarties to a *SAVF                */            
/*                                                                   */            
/*  Created By : Charlie Browne                                      */            
/*  Create Date : 09/22/11                                           */            
/* *******************************************************************/            
             PGM                                                                   
                                                                                   
/*-------------------------------------------------------------------*/            
/* Define the variables                                              */            
/*-------------------------------------------------------------------*/            
             DCL        VAR(&wJobNbr)  TYPE(*CHAR) LEN(06)                         
             DCL        VAR(&JobLib )  TYPE(*CHAR) LEN(10)                         
             DCL        VAR(&SaveLib)  TYPE(*CHAR) LEN(10)                         
                                                                                   
/*-------------------------------------------------------------------*/            
/* Retrieve Job Number to build Job library                          */            
/*-------------------------------------------------------------------*/            
             RTVJOBA    NBR(&wJobNbr)                                              
                                                                                   
/*-------------------------------------------------------------------*/            
/* Create the library and make it first in the list                   */           
/*-------------------------------------------------------------------*/            
             Chgvar     &JobLib  ('JOB' || &wJobNbr)                               
             CRTLIB     LIB(&JobLib) TYPE(*TEST)                                   
             ADDLIBLE   &JobLib                                                    
                                                                                   
/*-------------------------------------------------------------------------*/      
/*  Create *SAVF with name of library to be saved                          */      
/*  Save that library to the *SAVF                                         */      
/*                                                                         */      
/*  Replace 'YourLib' with the name of a library you want to save          */      
/*   Do this for each of the 16 occurances. Then compile program           */      
/*-------------------------------------------------------------------------*/      
             Chgvar     &SaveLib  'YourLib'                                        
             CallSubr   SrSaveLib                                                  
                                                                                   
             Chgvar     &SaveLib  'YourLib'                                        
             CallSubr   SrSaveLib                                                  
                                                                                   
             Chgvar     &SaveLib  'YourLib'                                        
             CallSubr   SrSaveLib                                                  
                                                                                   
             Chgvar     &SaveLib  'YourLib'                                        
             CallSubr   SrSaveLib                                                  
                                                                                   
             Chgvar     &SaveLib  'YourLib'                                        
             CallSubr   SrSaveLib                                                  
                                                                                   
             Chgvar     &SaveLib  'YourLib'                                        
             CallSubr   SrSaveLib                                                  
                                                                                   
             Chgvar     &SaveLib  'YourLib'                                        
             CallSubr   SrSaveLib                                                  
                                                                                   
             Chgvar     &SaveLib  'YourLib'                                        
             CallSubr   SrSaveLib                                                  
                                                                                   
             Chgvar     &SaveLib  'YourLib'                                        
             CallSubr   SrSaveLib                                                  
                                                                                   
             Chgvar     &SaveLib  'YourLib'                                        
             CallSubr   SrSaveLib                                                  
                                                                                   
             Chgvar     &SaveLib  'YourLib'                                        
             CallSubr   SrSaveLib                                                  
                                                                                   
             Chgvar     &SaveLib  'YourLib'                                        
             CallSubr   SrSaveLib                                                  
                                                                                   
             Chgvar     &SaveLib  'YourLib'                                        
             CallSubr   SrSaveLib                                                  
                                                                                   
             Chgvar     &SaveLib  'YourLib'                                        
             CallSubr   SrSaveLib                                                  
                                                                                   
             Chgvar     &SaveLib  'YourLib'                                        
             CallSubr   SrSaveLib                                                  
                                                                                   
             Chgvar     &SaveLib  'YourLib'                                        
             CallSubr   SrSaveLib                                                  
                                                                                   
                                                                                   
Subr       Subr(SrSaveLib)                                                         
             CrtSavf    &JobLib/&SaveLib                                           
             Savlib     &Savelib *savf SAVF(&JobLib/&SaveLib) SAVACT(*LIB)         
EndSubr                                                                            
                                                                                   
END:         ENDPGM

By: rajasekhar15

rajasekhar15 — Thu, 22 Sep 2011 04:11:56 +0000

1. If you must use *SAVF, then you can only do one at a time.
i need to do in save file
2. Can you go to TAPE?
no i can’t
3. Is this something you want to run once or everyday?
r u asking abt those lib r wat? but i’m not going to use those lib right, might be in
future.
4. Is the list of libraries static or can be be changing?
objects in the libraries r cobal prgms
5. How many libraries in need to be included?
16 lib

thanks in advance charlie……:-)

By: charliebrowne

charliebrowne — Wed, 21 Sep 2011 14:58:30 +0000

Rajasekhar15 — Can you answer these questions. There are various solutiuons depending on what your requirement is.
The answer could be as simple as a couple of User Defined PDM options to creatiing a DB that has the libraries you want to save, to dynamically creating a list of libraries each time you run it.

1. If you must use *SAVF, then you can only do one at a time.
2. Can you go to TAPE?
3. Is this something you want to run once or everyday?
4. Is the list of libraries static or can be be changing?
5. How many libraries in need to be included?

By: splat

splat — Wed, 21 Sep 2011 14:32:30 +0000

Is there a requirement that you must use a save file? If not, Idfalls suggestion is probably the simplest solution.

By: rajasekhar15

rajasekhar15 — Wed, 21 Sep 2011 11:01:25 +0000

charlie can u give me a sample program for this issue

By: rickmcd

rickmcd — Tue, 20 Sep 2011 15:20:44 +0000

If you are on V5R4 and above and have enough disk space research Virtual tape. You can then use savlib to save all user libraries to the Virtual tape that resides in the IFS.

By: charliebrowne

charliebrowne — Tue, 20 Sep 2011 13:00:45 +0000

If you must use *SAVF, then you can only do one at a time.
Can you go to TAPE?
Is this something you want to run once or everyday?

By: rajasekhar15

rajasekhar15 — Tue, 20 Sep 2011 05:55:59 +0000

charlie u r correct, its says the same error, but i don’t know CL, is there any other way ,plz help me, or else i have to sav one by one…:-(

By: idfalls

idfalls — Mon, 19 Sep 2011 21:26:50 +0000

go to the save menu (go save) and take option23 (all user data)