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
Por favor, responda a
Para
cc
Asunto
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
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
