Hola

Puede tratarse de un problema en el trabajo servidor QRWTSRVR en el sistema
destino, revisar el joglob

Por otro lado ¿esta abierto o bloqueado el archivo cuando intentas hacer el
replace?

El 4 de agosto de 2010 11:35, Dpto.Informática Productos Climax(Jose
Sánchez) <[email protected]> escribió:

>  Buenas a todos
>
>
>
> Estoy montando un cl para copiar registros de un 525 a un 170 mediante ddmf
> ya que tienen versiones incompatibles. La idea es que la de un archivo el
> *PF a copiar, genere el ddmf apuntando al destino y haga el cpyf.
>
>
>
> Lo que ocurre es que al ponerle al CPYF *replace me dice que no tengo
> autorización para borrarlo, pero se queja del sistema destino. Estoy
> haciéndolo con el mismo usuario.
>
>
>
> ESTE EL EL CL:
>
>
>
>  LEERMAS:    RCVF       DEV(*FILE)
>
>              MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(FINAL))
>
>
>
> /* CREA EL DDM */
>
>              CRTDDMF    FILE(QS36FDDM/&DDMFIL) +
>
>                           RMTFILE(QS36FNEW/&DDMFIL) +
>
>                           RMTLOCNAME('192.168.0.199' *IP) AUT(*ALL)
>
>              MONMSG     MSGID(CPF0000)
>
>
>
> /* COPIA LOS DATOS */
>
>              CPYF       FROMFILE(QS36FNEW/&DDMFIL) +
>
>                           TOFILE(QS36FDDM/&DDMFIL) MBROPT(*REPLACE)
>
>              MONMSG     MSGID(CPF0000)
>
>
>
>              GOTO       CMDLBL(LEERMAS)
>
>
>
> Y ESTE EL ERROR QUE DA:
>
> Archivo PEDLIN creado en la biblioteca QS36FDDM.
>
> El objeto DDM PEDLIN de QS36FDDM utiliza el objeto remoto QS36FNEW/PEDLIN.
>
> Error al borrar miembro PEDLIN en el archivo PEDLIN en QS36FDDM.
>
>
>
> ¿alguna pista?
>
>
>
> Gracias
>
>
>
>
>
> ____________________________________________________
> Ú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.

Responder a