La forma de hacerlo automatico
Tienes que tener claro donde esta y donde lo quieres llevar
Y saber su nombre y cual es el nuevo que quieres ponerlo
Todo esto antes de llamar a este cl.
/* *************************************************************************
*/
/* MOVER EL OBJETO DE LA CARPETA AL IF'S
*/
/* *************************************************************************
*/
DCL VAR(&OBJORI) TYPE(*CHAR) LEN(100)
DCL VAR(&OBJDES) TYPE(*CHAR) LEN(100)
DCL VAR(&RUTA) TYPE(*CHAR) LEN(50)
DCL VAR(&QDLCVT) TYPE(*CHAR) LEN(25)
DCL VAR(&NOMDOC) TYPE(*CHAR) LEN(25)
CHGVAR VAR(&OBJORI) VALUE('/QDLS/SPOOLSND/' *TCAT &QDLCVT)
CHGVAR VAR(&OBJDES) VALUE('/' *TCAT &RUTA *TCAT '/' +
*TCAT &NOMDOC)
CPY OBJ(&OBJORI) TOOBJ(&OBJDES) /* Copiar el Objeto.
*/
Este mensaje se dirige exclusivamente a su destinatario y puede contener
informaci?n privilegiada o confidencial. Si no es vd. el destinatario indicado,
queda notificado de que la lectura, utilizaci?n, divulgaci?n y/o copia sin
autorizaci?n est? prohibida en virtud de la legislaci?n vigente.
Si ha recibido este mensaje por error, le rogamos que nos lo comunique
inmediatamente por esta misma v?a y proceda a su destrucci?n.
El correo electr?nico v?a Internet no permite asegurar la confidencialidad de
los mensajes que se transmiten ni su integridad o correcta recepci?n.
ISTOBAL,S.A. no asume ninguna responsabilidad por estas circunstancias.
This message is intended exclusively for its addressee and may contain
information that is CONFIDENTIAL and protected by a professional privilege or
whose disclosure is prohibited by law. If you are not the intended recipient
you are hereby notified that any read, dissemination, copy or disclosure of
this communication is strictly prohibited by law. If this message has been
received in error, please immediately notify us via e-mail and delete it.
Internet e-mail neither guarantees the confidentiality nor the integrity or
proper receipt of the messages sent. ISTOBAL,S.A. does not assume any liability
for those circumstances.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
