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]
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:24, Luis Alfredo Bregoli (<[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]
> 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_4463506970601168467_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_4463506970601168467_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_4463506970601168467_m_3320389040388803815_DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2>
>>
>
____________________________________________________
�nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 � Publicaciones Help400, S.L.
