Change Subject on SNDDST *DOC

[g_a_...@my-deja.com]

When we send an ascii file from a folder using the *DOC type, the file
name (DOC) appears as the Subject in the email.

Is there a way to override this and allow a user defined Subject via the
SNDDST command imbedded in a CL? The DSTD & DOCD overrides seem to have
no impact on the Subject line.

Thanks,
George

Sent via Deja.com http://www.deja.com/
Before you buy.

[Steve Way]

On Fri, 10 Dec 1999 05:38:51 GMT, g_a_...@my-deja.com wrote:

>When we send an ascii file from a folder using the *DOC type, the file
>name (DOC) appears as the Subject in the email.
>
>Is there a way to override this and allow a user defined Subject via the
>SNDDST command imbedded in a CL? The DSTD & DOCD overrides seem to have
>no impact on the Subject line.

I do this:
> PGM PARM(&COMM &USER &DOMAIN)
> DCL VAR(&COMM) TYPE(*CHAR) LEN(1)
> DCL VAR(&USER) TYPE(*CHAR) LEN(20)
> DCL VAR(&DOMAIN) TYPE(*CHAR) LEN(20)
> DCL VAR(&FULLADD) TYPE(*CHAR) LEN(64)
> CHGVAR VAR(&FULLADD) VALUE(&USER *TCAT &DOMAIN)
> SNDDST TYPE(*FILE) TOUSRID((INTERNET SMTPRTE)) +
> TOINTNET((&FULLADD)) DSTD('JM Prices +
> Distribution') DOCFILE(JMPETX) +
> DOCMBR(JMPETX) DOCTYPE(*FFT) DOCD('Latest +
> Johnson Matthey Metal Prices') +
> USRID(JMLONDON JMLON1) +
> AUTHOR('PMM Trading Desk')
> CLRPFM FILE(JMPETX)
> ENDPGM

And that comes back with an email with a subject of 'Latest Johnson
Matthey Metal Prices' and the contents of JMPETX in the body of the
message (you must have X'06' in column 70 as a carriage return in your
flat file, or it all comes out on one line...)

--
Steve Way
UK AS/400 User Group Chairman

[Steve Way]

On Fri, 10 Dec 1999 13:24:31 GMT, st...@ways.demon.co.uk (Steve Way)
wrote:

Alternatively, the modified SNDNETSPLF we use to email spoolfiles does
it like this, using the FLR Document DOCD:

> CPYTOPCD FROMFILE(QTEMP/WPSPLF) TOFLR(EMAILOUT) +
> TODOC(&PCFNAM) REPLACE(*YES)
> CHGDOCD DOC(&PCFNAM) FLR(EMAILOUT) DOCD(&SUBTXT)
> SNDDST TYPE(*DOC) TOUSRID((INTERNET SMTPRTE)) +
> TOINTNET((&TO)) DSTD('AS/400 +
> Spoolfile') MSG(&EMSTXT) USRID(*CURRENT) +
> DOC(&PCFNAM) FLR(EMAILOUT)
> SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Email +
> Message Created') MSGTYPE(*COMP)

(Sorry to follow myself up, but I'd forgotten this method)

[g_a_...@my-deja.com]

The CHGDOCD the SNDDST did the trick. Thanks for your help and the
examples....

George Brown

In article <38510091...@193.32.20.254>,