Bueno, algo hemos conseguido.

 

Encontré un joblog de ese trabajo en el que decía que no tenia autorización. 
Aunque yo si la tenia, he tenido que dársela a *public. Aunque ese trabajo no 
lo veo activo, solo he visto un spool del log.

 

Ahora copia y reemplaza datos.

 

La duda es, ¿Por qué un runrmtcmd con clrpfm lo rechaza? El as400 origen dice 
que el destino ha rechazado una petición de conexcion y le estoy pasando el 
user y password correcto.

 

¿Dónde puedo mirar?

 

Gracias 

 

De: [email protected] 
[mailto:[email protected]] En nombre de alex martinez
Enviado el: miércoles, 04 de agosto de 2010 12:17
Para: forum.help400
Asunto: Re: DDM

 

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