|
Depuis la version V5R3, vous pouvez lancer une sauvegarde 21 en batch
Voici un exemple de programme :
PGM /*--------------------------------------------------------------*/
/* CONTROLE DE LA CARTOUCHE */
/*------------------------------------------------------------------*/
DCL &ERR *CHAR 50
MONMSG MSGID(CPF0000)
INZTAP DEV(TAP01) NEWVOL(TOTAL) NEWOWNID(BIOMER) +
CHECK(*NO)
MONMSG MSGID(CPF0000) EXEC(DO)
CHGVAR &ERR ('ERREUR SUR LE INZTAP')
GOTO ERREUR
ENDDO
CHGJOB LOG(4 0 *SECLVL) LOGCLPGM(*YES)
/*------------------------------------------------------------------*/
/* PASSAGE EN MODE RESTREINT */
/*------------------------------------------------------------------*/
ENDSBS SBS(*ALL) DELAY(60) BCHTIMLMT(180)
MONMSG MSGID(CPF0000) EXEC(DO)
CHGVAR &ERR ('ERREUR SUR LE ENDSBS')
GOTO ERREUR
ENDDO
DLYJOB DLY(300)
*------------------------------------------------------------------*/
* SAUVEGARDE DES BIBLIOTHEQUES NON SYSTÈME */
*------------------------------------------------------------------*/
SAVLIB LIB(*NONSYS) DEV(TAP01) ENDOPT(*LEAVE) +
ACCPTH(*YES) OUTPUT(*PRINT)
MONMSG MSGID(CPF0000) EXEC(DO)
CHGVAR &ERR ('ERREUR SUR LE SAVLIB *NONSYS')
GOTO ERREUR
ENDDO
/*------------------------------------------------------------------*/
/* SAUVEGARDE DES DOSSIERS */
/*------------------------------------------------------------------*/
SAVDLO DLO(*ALL) FLR(*ANY) DEV(TAP01) +
ENDOPT(*LEAVE) OUTPUT(*PRINT)
MONMSG MSGID(CPF0000) EXEC(DO)
CHGVAR &ERR ('ERREUR SUR LE SAVDLO')
GOTO ERREUR
ENDDO
/*-----------------------------------------------------------------*/
/* SAUVEGARDE DU SYSTEME */
/*------------------------------------------------------------------*/
SAVSYS DEV(TAP01) ENDOPT(*LEAVE) OUTPUT(*PRINT)
MONMSG MSGID(CPF0000) EXEC(DO)
CHGVAR &ERR ('ERREUR SUR LE SAVSYS')
GOTO ERREUR
ENDDO
/*------------------------------------------------------------------*/
/* SAUVEGARDE DU SYSTEME DE FICHIER MOINS QSYS */
/*------------------------------------------------------------------*/
SAV DEV('/QSYS.LIB/TAP01A.DEVD') OBJ(('/*') +
('/QSYS.LIB' *OMIT) ('/QDLS' *OMIT)) +
ENDOPT(*UNLOAD) UPDHST(*YES)
MONMSG MSGID(CPF0000) EXEC(DO)
CHGVAR &ERR ('ERREUR SUR LE SAV ')
GOTO ERREUR
ENDDO &bsp;
GOTO FIN
/*------------------------------------------------------------------*/
/* TRAITEMENT DES ERREURS */
/*------------------------------------------------------------------*/
/*------------------------------------------------------------------*
ERREUR:
SNDMSG MSG(&ERR) TOUSR(*SYSOPR)
MONMSG MSGID(CPF0000)
SNDMSG MSG(&ERR) TOMSGQ(*HSTLOG)
MONMSG MSGID(CPF0000)
FIN:
ENDPGM
l'astuce est sur le paramètre BCHTIMLMT(180) de la commande ENDSBS
Par contre il ne faut ni "vivre un plantage", ni que la sauvegrade dépasse la durée prévue
redémarrage en DST
Il est bien de le soumettre dans QCTL !
Remarque :
c'est ce qui est utilisé par BRMS
|