Crear la variable con todo el 'churro' y llamar al QCMDEX? genial. Ni se me habia pasado por la cabeza. Ahora mismo lo pruebo
| "gerardo.santillana"
<[EMAIL PROTECTED]>
Enviado por: [EMAIL PROTECTED] 06/07/05 16:46
|
|
Esto es algo que yo utilizo, leyendo un archivo con los e-mails de usuarios, espero te sirva esto. Saludos
PGM
DCLF FILE(MOLDEO/EMAILM) RCDFMT(REML)
DCL VAR(&COMAND) TYPE(*CHAR) LEN(1000)
DCL VAR(&LEN) TYPE(*DEC) LEN(15 5) VALUE(1000)
START:
/* */
/* Lee archivo de e-mails */
RCVF RCDFMT(REML)
/* si es fin de archivo envia e-mail*/
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(SEND))
/* forma la lista de usuarios a quien se les enviara e-mail*/
CHGVAR VAR(&EMLIST) VALUE(&EMLIST *TCAT '(' *TCAT +
&PEMAIL *TCAT ') ')
GOTO CMDLBL(START)
SEND:
CHGVAR VAR(&COMAND) VALUE('SNDM +
FROM([EMAIL PROTECTED]) TO(' *TCAT &EMLIST +
*TCAT ') FILE(MOLDEO/QDDSSRC) MBR(TEXTO) +
SUBJECT(' *CAT '''' *CAT 'Pull a +
Proveedores' *CAT '''' *CAT ') +
ATTACHMENT(' *CAT '''' *CAT +
'/TMP/MPULLV.CSV' *CAT '''' *CAT ') +
SMTPHOST(*localhost)')
CALL PGM(QCMDEXC) PARM(&COMAND &LEN)
Gerardo Santillana
IT Department
Delphi Mechatronic Systems
Phone USA (956) 554 5832
Phone MX 01868 8128163 x.5832
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]On
Behalf Of [EMAIL PROTECTED]
Sent: Wednesday, July 06, 2005 9:45 AM
To: forum.help400@combios.es
Subject: SNDM
Hola.
¿alguien tiene un ejemplo automatizado(a traves de una CL o un RPG) de
llamada al SNDM con varios destinatarios?me refiero a como poner en una
cl la serie que queda asi:
SNDM FROM([EMAIL PROTECTED] YO)
TO((A '12') ([EMAIL PROTECTED] 24) ([EMAIL PROTECTED] '3 3') (RR.ES S) (GG
S))
FILE(ARCADI/QDDSSRC)
MBR(FMAIL)
porque si este mismo mandato lo hago enb una cl (respetando parentesis,espacios,etc)
me da error de que el campo TO tiene más de 64 caracteres.Evidentemente
en el campo TO del comando caben más de 64 caracteres si se ponen varios
destinatarios.
Gracias
| **************************************************************************************** Note: The information contained in this message may be privileged and confidential and thus protected from disclosure. If the reader of this message is not the intended recipient, or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by replying to the message and deleting it from your computer. Thank you. **************************************************************************************** |
