Re: How to back up IFS

[Neil Palmer <NPalmer@xxxxxxxxxxx>]

Carol Collins wrote:
> 
>  I have just started using the IFS root file system on our AS/400, V3R2.
>  Our backup software is BRMS/400.  The BRMS manual indicates that backups
>  of the root file system must be done in a restricted state.  Does anyone
>  have any good ideas to back up the root file system, without implementing
>  restricted state?


I back it up nightly (non-restricted) with the following code in my
nightly backup program:

/* Save objects from Integrated File System.       << V3R1+ >>       */
             CHGVAR     VAR(&TAPEDEVB) VALUE('/QSYS.LIB/' *CAT +       
                          &TAPEDEV *TCAT '.DEVD') 
/* Example of DEV for SAV command '/QSYS.LIB/TAP01.DEVD'   */
                     
 SAV010:     CHGVAR     VAR(&SAVETAG) VALUE(SAV010)                    
             SAV        DEV(&TAPEDEVB) OBJ(('/*') ('/QSYS.LIB' +       
                          *OMIT) ('/QDLS' *OMIT) ('/QLANSrvSR' +       
                          *OMIT) ('/QLANSrv' *OMIT) ('/qserver' +      
                          *OMIT)) ENDOPT(*LEAVE)                       
                                                                       
             MONMSG     MSGID(CPF3837) /* Some objects not saved +     
                          (cannot obtain lock). */                     
                                                                       
             MONMSG     MSGID(CPF3794) EXEC(GOTO CMDLBL(ERROR)) /* +   
                          Save ended abnormally. */                    
             MONMSG     MSGID(CPF5101) EXEC(GOTO CMDLBL(ERROR)) /* +   
                          Error on (tape) device */                    
             MONMSG     MSGID(CPF5270) EXEC(GOTO CMDLBL(ERROR)) /* +   
                          Tape device dropped ready. */                
             MONMSG     MSGID(CPF8105) EXEC(GOTO CMDLBL(ERROR)) /* + 
                          Tape device description damaged. */        
             MONMSG     MSGID(CPF5349) EXEC(GOTO CMDLBL(ERROR)) /* + 
                          Media error. */                            
                                                                     
             SNDMSG     MSG('Save of Integrated File System objects +
                          ran O.K.') TOUSR(*REQUESTER)               

I have an IPCS, but only have it configured as a TokenRing adapter, so
have no server storage space to save.


-- 
... Neil Palmer                                      AS/400~~~~~      
... NxTrend Technology -Canada       ____________          ___  ~     
... Markham,  Ontario,  Canada       |OOOOOOOOOO| ________  o|__||=   
... Phone: (905) 731-9000 x238       |__________|_|______|_|______)   
... url:http://www.NxTrend.com        oo      oo   oo  oo   OOOo=o\   
... mailto:NPalmer@NxTrend.com     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *