Send Email from the AS400 - quit working!

["Jim Waymire" <jwaymire@xxxxxxxxxxxxxxxxxx>]

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