Re: Send Email from the AS400 - quit working!

Program I have been using since May 06, uses the
SNDDST TYPE(*LMSG) TOINTNET((&EMAIL)) DSTD('E-MAIL') LONGMSG(&MSG) +

SUBJECT(&SUBJECT) DOCDATE(*CURRENT) . Recently quit working. I can do the
manual snddst and it works fine, I can supply the email address as a default
rather than a parm, and it works ok. Is anyone aware of why this would stop
working. The problem seems to be related to the passing of the email
address as a parm. I cannot see, must be blind!

Jim Waymire



(501) 941-3723 x 15

Simple Cl:
PGM PARM(&EMAIL &SUBJECT &MSG)

DCL VAR(&EMAIL) TYPE(*CHAR) LEN(50)

DCL VAR(&SUBJECT) TYPE(*CHAR) LEN(20)

DCL VAR(&MSG) TYPE(*CHAR) LEN(200)



SNDDST TYPE(*LMSG) TOINTNET((&EMAIL)) +

DSTD('E-MAIL') LONGMSG(&MSG) +

SUBJECT(&SUBJECT) DOCDATE(*CURRENT)

ENDPGM

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.