Hola Luis. Muchas gracias!!
Saludos, Javier De: Luis Alfredo Bregoli<mailto:[email protected]> Enviado: martes, 2 de marzo de 2021 17:42 Para: forum.help400<mailto:[email protected]> Asunto: Re: Sustituir nombre de biblioteca por *LIBL Te paso el CLP que te podría servir , luego podría hacer un comando y usarlo en lo que vos quieras. ******** Principio de datos ****************************************** PGM PARM(&LIB) DCL VAR(&LIB) TYPE(*CHAR) LEN(10) /* Variable + para devolver la 1ra libreria */ DCL VAR(&LIBL) TYPE(*CHAR) LEN(2750) /* Variable + para rescatar lista de libreria */ RTVJOBA USRLIBL(&LIBL) /* Rescato el parametro + USRLIBL , que contiene la lista de + libreria del usuaio */ CHGVAR VAR(&LIB) VALUE(%SST(&LIBL 1 10)) /* + Selecciono la 1er libreria de la lista */ ENDPGM *********** Fin de datos ********************************************* Espero que te sirva , un abrazo. Cordialmente: Luis A Bregoli Tel. 15-4970-9897 email: [email protected]<mailto:[email protected]> Sitio: http://www.bregoliluis.com/<https://www.bregoliluis.com/> [https://ipmcdn.avast.com/images/icons/icon-envelope-tick-round-orange-animated-no-repeat-v1.gif]<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> El mar, 2 mar 2021 a las 13:24, Luis Alfredo Bregoli (<[email protected]<mailto:[email protected]>>) escribió: 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]<mailto:[email protected]> Sitio: http://www.bregoliluis.com/<https://www.bregoliluis.com/> [https://ipmcdn.avast.com/images/icons/icon-envelope-tick-round-orange-animated-no-repeat-v1.gif]<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> El mar, 2 mar 2021 a las 13:09, Luis Alfredo Bregoli (<[email protected]<mailto:[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]<mailto:[email protected]> Sitio: http://www.bregoliluis.com/<https://www.bregoliluis.com/> [https://ipmcdn.avast.com/images/icons/icon-envelope-tick-round-orange-animated-no-repeat-v1.gif]<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> El mar, 2 mar 2021 a las 11:34, <[email protected]<mailto:[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]<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. [https://ipmcdn.avast.com/images/icons/icon-envelope-tick-round-orange-animated-no-repeat-v1.gif]<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>
____________________________________________________ �nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � Publicaciones Help400, S.L.
