De todas formas, muchas gracias Martí!! Son de gran ayuda vuestros comentarios y se agradece tener un espacio común para ayudarnos, ojalá esto nunca se pierda.
Gracias a todos!! Saludos, Javier De: Javier Baca Lechuga<mailto:[email protected]> Enviado: martes, 2 de marzo de 2021 16:37 Para: forum.help400<mailto:[email protected]> Asunto: Re: Sustituir nombre de biblioteca por *LIBL Buenas, No me has entendido, el *Libl es para quitarlo del objeto origen, pero ya lo he solucionado y he averiguado que CPY requiere poner los biblioteca, pero no *Libl. No se si me explico. Saludos, Javier De: Forum.help400 <[email protected]> en nombre de [email protected] <[email protected]> Enviado: martes, 2 de marzo de 2021 15:34 Para: forum.help400 Asunto: Re: Sustituir nombre de biblioteca por *LIBL Hola, Normal que no lo acepte el CPY, si tienes *LIBL ¿en que librería no la ha copiar? Saludos Martí Riera Missatge de Javier Baca Lechuga <[email protected]<mailto:[email protected]>> del dia dt., 2 de març 2021 a les 14:12: Buenas tardes, A ver si alguien sabe cómo lo podría hacer. Necesitaría sustituir, por ejemplo, la biblioteca LIBRERIA1 por *LIBL en el mandato CPY. Es decir, me gustaría cambiar esto : DCL VAR(&NOM) TYPE(*CHAR) LEN(10) VALUE('ALFMDEMP') DCL VAR(&OBJ) TYPE(*CHAR) LEN(55) DCL VAR(&DES) TYPE(*CHAR) LEN(50) CHGVAR VAR(&OBJ) VALUE('/qsys.lib/LIBRERIA1.lib/' + *CAT &NOM *TCAT '.file/' *CAT &NOM + *TCAT '.mbr') CHGVAR VAR(&DES) VALUE('/COMPARTITS/TEMPORAL/' *CAT + &NOM *TCAT '.ALBA') CPY OBJ(&OBJ) TOOBJ(&DES) REPLACE(*YES) Por esto : DCL VAR(&NOM) TYPE(*CHAR) LEN(10) VALUE('ALFMDEMP') DCL VAR(&OBJ) TYPE(*CHAR) LEN(55) DCL VAR(&DES) TYPE(*CHAR) LEN(50) CHGVAR VAR(&OBJ) VALUE('/qsys.lib/*LIBL.lib/' + *CAT &NOM *TCAT '.file/' *CAT &NOM + *TCAT '.mbr') CHGVAR VAR(&DES) VALUE('/COMPARTITS/TEMPORAL/' *CAT + &NOM *TCAT '.ALBA') CPY OBJ(&OBJ) TOOBJ(&DES) REPLACE(*YES) Parece que al CPY no le gusta *LIBL, ¿cómo lo debería de poner?. Me da el error “No está permitido el patrón en el directorio del nombre de vía de acceso”. Un saludo y gracias, Javier *********************************************************************************************** Este mensaje y todos los archivos adjuntos son confidenciales y de uso exclusivo por parte de su/sus destinatario/s. Si usted ha recibido este mensaje por error, le agradecemos que lo notifique inmediatamente al remitente y destruya el mensaje. Queda prohibida cualquier modificación, edición, uso o divulgación no autorizados. El Emisor no se hace responsable de este mensaje si ha sido modificado, distorsionado, falsificado, infectado por un virus o editado o difundido sin autorización. *********************************************************************************************** This message and any attachments are confidential and intended for the named addressee(s) only. If you have received this message in error, please notify immediately the sender, then delete the message. Any unauthorized modification, edition, use or dissemination is prohibited. The sender shall not be liable for this message if it has been modified, altered, falsified, infected by a virus or even edited or disseminated without authorization. *********************************************************************************************** ____________________________________________________ Ú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.
