----- Original Message -----
Sent: Monday, March 21, 2005 4:02
PM
Subject: Re: Mareado ya con la copia
completa
Estoy programando un CL para
que haga una copia completa desasistida cada domingo :-P
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
Solo por curiosidad ... porqu� no usas la opci�n 21 del men� Salvar
????
Saludos
Orlando Varas Molina
[EMAIL PROTECTED]
[EMAIL PROTECTED]
21-03-05 10:44 a.m.
Por favor, responda a forum.help400
Para:
[email protected]@[EMAIL PROTECTED]
cc:
Asunto: Re: Mareado ya con la
copia completa
OK, voy a probarlo este domingo.
Gracias!
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
alex martinez <[EMAIL PROTECTED]>
Enviado por: [EMAIL PROTECTED]
21/03/2005 10:51
[email protected]
Re: Mareado ya con la copia completa
Hola:
Haz primero el SAVSYS e indica el par�metro
CLEAR(*ALL) en todos los
mandatos de Salvar.
Salu2
On Mon, 21 Mar 2005 10:02:01 +0100,
[EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
>
> Hola,
>
> A ver si alguien me puede "iluminar"
porque ya estoy negro :-(
> Tengo montado un CL para hacer copias
completas cada domingo y despu�s de
> mil pruebas me he encallado. Os
adjunto el CL y el mensaje que me da, a ver
> si alguien sabe ver como solucionarlo.
>
> PGM
>
ENDSBS SBS(*ALL) DELAY(60) BCHTIMLMT(180)
>
MONMSG MSGID(CPF0000)
>
DLYJOB DLY(300)
>
INZTAP DEV(TAP01) NEWVOL(TOTAL) NEWOWNID(GENEBRE) +
>
CHECK(*NO)
DENSITY(*SLR60)
>
MONMSG MSGID(CPF0000)
>
SAVLIB LIB(*NONSYS) DEV(TAP01) ENDOPT(*LEAVE) +
>
ACCPTH(*YES)
OUTPUT(*PRINT)
>
MONMSG MSGID(CPF0000)
>
SAVDLO DLO(*ALL) FLR(*ANY) DEV(TAP01) +
>
ENDOPT(*LEAVE)
OUTPUT(*PRINT)
>
MONMSG MSGID(CPF0000)
>
SAVSYS DEV(TAP01) ENDOPT(*LEAVE) OUTPUT(*PRINT)
>
MONMSG MSGID(CPF0000)
>
SAV DEV('/QSYS.LIB/TAP01A.DEVD')
OBJ(('/*') +
>
('/QSYS.LIB' *OMIT)
('/QDLS' *OMIT)) +
>
ENDOPT(*UNLOAD)
UPDHST(*YES)
>
MONMSG MSGID(CPF0000)
>
> ENDPGM
>
> Me ejecuta todos los comandos hasta
llegar al SAVSYS, momento en que me da
> este mensaje:
> Message . . . . : Active file
found on this volume (C I R).
>
> Cause . . . . . : An output
volume open operation found an existing file
>
> (sequence number 1 label QFILE
on volume TOTAL device TAP01) with an
> ending
> date (in the HDR1 label)
greater than the current system date, at the
>
> location where the new file
must be created. The output file QSYSTAP in
> QSYS
> will write over the existing
data file with an ending date of *PERM.
>
> Recovery . . .. :
Do one of the following: -- Use C to cancel
> processing.
> -- Use I to write over the
existing data file and all other files beyond
> it
> on the current volume. -- Load
a different volume on the tape drive and
> use
> R to try again. Possible
choices for replying to message . . . . . . . . .
> .
> . . . . . : C -- Cancel
processing I -- Ignore error and write over
>
> existing data file R -- Try
volume open operation again
>
> 03/20/05
23:02:03.497416 QWTCCCNJ QSYS
05C4 *EXT
>
>
> Tiene pinta de ser el par�metro
EXPDATE, pero no se que ponerle :-?
>
> Gracias!
>
> 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
_____________________________________________________
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, env�a el mensaje
resultante de pulsar
mailto:[EMAIL PROTECTED]
