No me he mirado mucho las respuestas porque voy liado pero te paso un CL
que hice hace tiempo para poder planificar "a manubrio" un GO SAVE opción
21 diferidamente. Te pongo sólo la parte de los pasos del backup
propiamente dichos, si te interesa la parte donde pido la fecha/hora y
hago el loop para esperar el momento te lo paso, pero bueno... esa parte
no tiene secreto.
BEGIN:
INZTAP DEV(TAP01) NEWVOL(TOTAL) NEWOWNID(COPIA) +
CHECK(*NO) DENSITY(*CTGTYPE)
MONMSG MSGID(CPF0000) EXEC(DO)
SNDMSG MSG('Fallida en INZTAP') TOUSR(QSECOFR)
GOTO CMDLBL(FINAL)
ENDDO
ENDSBS SBS(*ALL) OPTION(*IMMED)
LOOP:
ENDSBS SBS(*ALL) OPTION(*IMMED)
MONMSG MSGID(CPF1035) EXEC(DO)
RCVMSG MSGTYPE(*EXCP) RMV(*YES)
DLYJOB DLY(15)
GOTO CMDLBL(LOOP)
ENDDO
SAVSYS DEV(TAP01) ENDOPT(*LEAVE) OUTPUT(*PRINT)
MONMSG MSGID(CPF0000) EXEC(SNDMSG MSG('Ha fallat el +
SAVSYS') TOUSR(QSECOFR))
SAVLIB LIB(*NONSYS) DEV(TAP01) ENDOPT(*LEAVE) +
TGTRLS(*CURRENT) ACCPTH(*YES) OUTPUT(*PRINT)
MONMSG MSGID(CPF0000) EXEC(SNDMSG MSG('Ha fallat la +
copia de biblioteques') TOUSR(QSECOFR))
SAVDLO DLO(*ALL) DEV(TAP01) ENDOPT(*LEAVE) +
OUTPUT(*PRINT)
MONMSG MSGID(CPF0000) EXEC(SNDMSG MSG('Ha fallat la +
copia de documents') TOUSR(QSECOFR))
SAV DEV('/QSYS.LIB/TAP01.DEVD') OBJ(('/*') +
('QSYS.LIB' *OMIT) ('/QDLS' *OMIT)) +
SAVACT(*YES) ENDOPT(*UNLOAD) UPDHST(*YES)
MONMSG MSGID(CPF0000) EXEC(SNDMSG MSG('Ha fallat la +
copia del IFS') TOUSR(QSECOFR))
STRSBS SBSD(QCTL)
SBMJOB CMD(CALL PGM(QSYS/QSTRUP)) JOBQ(QBATCH)
FINAL:
ENDPGM
Monitorizo los errores por si falla algo que no se quede el proceso parado
y me envie un mensaje. Los mensajes están en catalán pero creo que se
entienden ;-)
Saludos,
Sergi Sitjes
Director Sistemes d'Informació/CIO
GENEBRE GROUP
E-mail: [email protected]
Web: http://www.genebre.es
Tel: +34 93 298 80 02
Fax: +34 93 298 80 07
De: José Manuel Raña <[email protected]>
Para: "'forum.help400'" <[email protected]>
Fecha: 03/03/2016 14:48
Asunto: RE: Planificar SAVSYS
Enviado por: [email protected]
En el manual de backup y recuperación están las instrucciones detalladas,
de todas las opciones del menú save…. Es decir están los comandos CL que
se usan.
Saludos
José Manuel Raña D.
Jefe de Sistemas
Zona Ind. Castillito; Calle 98 Nro. 68 - 240
San Diego - Carabobo
Venezuela
Teléfono: +58 241 871.71.11 Ext: 327
Fax: +58 241 871.73.43
Email: [email protected]
[email protected]
P Antes de imprimir este e-mail piense bien si es necesario hacerlo
De: [email protected] [
mailto:[email protected]] En nombre de Marti Riera
Enviado el: jueves, 3 de marzo de 2016 9:07 a. m.
Para: forum.help400
Asunto: Re: Planificar SAVSYS
Hola,
Por mi parte, te falta el ENDOPT del SAVSYS y del SAVDLO.
En la ayuda de la pantalla del GO SAVE, sobre la opcion 21, si pulsas F1
te da toda la información de lo ejecuta esa opción.
El tema del .devd, ya te ha contestado nuestro colega Sergio Simon, en su
ejemplo.
Saludos
Martí Riera
2016-03-03 12:52 GMT+01:00 Fernando Idem <[email protected]>:
Gracias por vuestras aportaciones;
Alex la opción que tu comentas solo es para poner la Hora de inicio, pero
no veo la fecha, es asi?.
Lo estamos probando, y evidentemente la qctl se queda parada y en el job
esta el DLY.
Marti lo que tu comentas serias algo asi;
ENDSBS SBS(*ALL) OPTION(*IMMED)
DLY(120)
CHGMSGQ MSGQ(QSYSOPR) DLVRY(*NOTIFY)
SAVSYSSAVLIB LIB(*NONSYS) ACCPTH(*YES) endopt(*leave)
SAVDLO DLO(*ALL) SAVFLR(*ANY)
SAV DEV('/QSYS.LIB/nombre-dispositivo-soporte.DEVD') +
OBJ(('/*') ('/QSYS.LIB' *OMIT) +
('/QDLS' *OMIT)) UPDHST(*YES) endopt(*unload)
STRSBS QCTL
He puesto el DLYJOB, aunque he visto en la información de IBM lo
siguiente;
a. CPF0994 Mandato ENDSBS SBS(*ALL) procesándose
b. CPF0968 El sistema ha finalizado en condición restringida
Lo que no veo es esta parte, SAV
DEV('/QSYS.LIB/nombre-dispositivo-soporte.DEVD'), ahi solo están la
bibliotecas, ¿Habria que poner un *.DEVD?
Lo que estamos intentando conseguir, es planificar en un CL toda estas
ordenes que se generan en el SAVSYS(Opcion 21).
Un saludo
El 3 de marzo de 2016, 9:53, Marti Riera <[email protected]> escribió:
Hola,
Despues del ENDSBS deberias hacer un DLYJOB para esperar que el sistema
este en restringido, o mejor aun (mas complicado) esperar el mensaje de
sistema en estado restringido.
En los mandatos SAV* ademas de indicar el dispositivo debes poner el
parametro ENDOPT(*LEAVE), para en el siguiente lib continuar desde la
ultima posicion, execpto en el ultimo SAV que debes poner ENDOPT(*REWIND o
*UNLOAD)
Por ultimo cuando termines debes decidir si debes hacer un PWRDWNSYS
*IMMED con RESTART(*YES) o un STRSBS QCTL.
Saludos
Martí Riera
2016-03-03 9:38 GMT+01:00 Fernando Idem <[email protected]>:
Buenos Dias;
Estamos intentando planificar un SAVSYS, y hemos generado un Cl para que
apague los subsistemas y luego genere un savsys, todo esto la hacemos en
otra maquina antigua que tenemos para trastear, este SAVSYS que hicimos
solo hizo una copia de datos de sistema, luego viendo en las explicaciones
de IBM, vimos que había otras opciones, como las siguientes;
ENDSBS SBS(*ALL) OPTION(*IMMED)
CHGMSGQ MSGQ(QSYSOPR) DLVRY(*BREAK o *NOTIFY)
SAVSYSSAVLIB LIB(*NONSYS) ACCPTH(*YES)
SAVDLO DLO(*ALL) SAVFLR(*ANY)
SAV DEV('/QSYS.LIB/nombre-dispositivo-soporte.DEVD') +
OBJ(('/*') ('/QSYS.LIB' *OMIT) +
('/QDLS' *OMIT)) UPDHST(*YES)
Como en estas cosas no estoy muy ducho, me gustaría preguntaros, si se
puede hacer y si nos daría seguridad para que luego el sistema arranque
correctamente.
Un saludo
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
La información que contiene este correo electrónico es confidencial y
compete exclusivamente al destinatario. Si Vd. ha recibido esta
comunicación por error, por favor, notifíquelo inmediatamente al remitente
y borre el mensaje junto con sus ficheros anexos sin leerlo, copiarlo,
grabarlo, distribuirlo o divulgarlo o hacer cualquier otro uso de la
información sin el consentimiento de Genebre S.A. El correo electrónico
vía Internet no permite asegurar la confidencialidad o correcta recepción
de los mensajes, por lo que Genebre no asume responsabilidad alguna por
los daños causados.
The information contained in this communication is confidential, may be
privileged and is intended for the exclusive use of the above named
addressee. If you receive this communication in error, please notify the
sender immediately and delete it, and all its attached documents. If you
are not the intended recipient, you are expressly prohibited from reading,
copying, distributing, disseminating or, in any other way, using any of
the information without the Genebre S.A. consent. Please note that
Internet e-mail guarantees neither the confidentiality nor the proper
receipt of the message sent, so that Genebre shall not be liable for any
damages caused.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
