Andre, te paso un CLP que utilizo para tal efecto. Lo primero que hace
es finalizar el sistema y queda el programa a la espera del INTRO para
el SAVSYS.
antes de confirmar el SAVSYS, visualizo los mensajes de la cola del
operador para ver que el sistema envie el mensaje de "condicion
restringida".
A partir de alli, confirmo y el SAVSYS se ejecuta. Los comandos son
todos los que ejecuta el SAVSYS dese menu
Lo unico que deberias cambiar es el nombre del dispositivo si no es TAP01
Si el backup te da un error, tendrias que iniciar el subsitema QCTL
Espero que te sirva
Saludos
PGM
/*-------------------------------------------------------------------*/
/* Ejecucion del backup de SISTEMA */
/*-------------------------------------------------------------------*/
? ENDSYS OPTION(*IMMED)
MONMSG MSGID(CPF0000)
CHGMSGQ MSGQ(QSYSOPR) DLVRY(*BREAK)
MONMSG MSGID(CPF0000)
? SAVSYS DEV(TAP01) ENDOPT(*LEAVE) DTACPR(*YES)
SAVLIB LIB(*NONSYS) DEV(TAP01) ENDOPT(*LEAVE) +
ACCPTH(*YES) DTACPR(*YES)
SAVDLO DLO(*ALL) FLR(*ANY) DEV(TAP01) +
ENDOPT(*LEAVE) DTACPR(*YES)
SAV DEV('/qsys.lib/tap01.devd') OBJ(('/*') +
('/qsys.lib' *OMIT) ('/qdls' *OMIT)) +
ENDOPT(*UNLOAD) UPDHST(*YES) DTACPR(*YES)
CHGMSGQ MSGQ(QSYSOPR) DLVRY(*HOLD)
MONMSG MSGID(CPF0000)
STRSBS SBSD(*LIBL/QCTL)
ENDPGM
Andreu Rul escribió:
Me lo podrias enviar a mi tambien?
Gracias.
-----Mensaje original-----
*De:* [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] nombre de [EMAIL PROTECTED]
*Enviado el:* jueves, 02 de marzo de 2006 9:53
*Para:* [email protected]
*Asunto:* RE: Realizar un SAVSYS desatendido
Hola,
No es que no quiera que se cuelgue el CL en ningún sitio, si no
que creo que aun se pueden mejorar algunos puntos y prefiero
esperar. Por otra parte, como el programa funciona perfectamente y
voy bastante liado de trabajo, no puedo ponerme a hacer las
mejoras que quiero. Por tanto lo que haré será enviar el actual a
aquel que me lo pida y cuando tenga un CL del que realmente me
"sienta orgulloso" ya lo colgaré.
Saludos y no os dé corte pedir, que no es ninguna molestia
enviarlo :-)
Sergi Sitjes
Resp. Sistemes d'Informació
GENEBRE, S.A.
E-mail: [EMAIL PROTECTED]
Web: http://www.genebre.es
Tel: +34 93 298 80 02
Fax: +34 93 298 80 07
--
*/Ing. Luis Alberto Mariotti/*//
/ /
/TE 0342-4552071 (Int 210)/
/email: [EMAIL PROTECTED]/
/ /
/Centro Privado de Computos SA/
/San Martin 3067/71 - S3000FSM/
/Santa Fe, Argentina/
/web www.cpc.com.ar/
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
