Lo que podes hacer para quedarte con la primera librería de la lista de librería (*LIBL), es hacer un rtvjoba y guardar en una variable el parámetro USRLIBL y quedarte con la primera de esa variable. de esa forma vas a estar obteniendo lo que necesitas , ahora busco un ejemplo y te lo paso.
Cordialmente: Luis A Bregoli Tel. 15-4970-9897 email: [email protected] Sitio: http://www.bregoliluis.com/ <https://www.bregoliluis.com/> <http://www.prosyde.com> <https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail> Libre de virus. www.avast.com <https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail> <#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2> El mar, 2 mar 2021 a las 13:09, Luis Alfredo Bregoli (<[email protected]>) escribió: > Con *libl no te va a funcionar nunca, tenes que poner una librería. > > Cordialmente: > Luis A Bregoli > Tel. 15-4970-9897 > email: [email protected] > Sitio: http://www.bregoliluis.com/ <https://www.bregoliluis.com/> > <http://www.prosyde.com> > > > > <https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail> > Libre > de virus. www.avast.com > <https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail> > <#m_3320389040388803815_DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2> > > El mar, 2 mar 2021 a las 11:34, <[email protected]> escribió: > >> 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]> 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. > > > > <https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail> > Libre > de virus. www.avast.com > <https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail> > <#m_3320389040388803815_DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2> >
____________________________________________________ �nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � Publicaciones Help400, S.L.
