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.
