Re: sndemail command

["Michael Ryan" <michaelrtr@xxxxxxxxx>]

Or build the command using CHGVAR and only include &EMLADREMx if it's not blank.

On Feb 19, 2008 12:26 PM, Alan Shore <AlanShore@xxxxxxxx> wrote:
> Change the program to only send the e-mail if ALL of the variables are not
> blank
>
>
> Alan Shore
>
> NBTY, Inc
> (631) 244-2000 ext. 5019
> AShore@xxxxxxxx
> "If you're going through Hell, keep going" - Winston Churchill
>
>
> midrange-l-bounces@xxxxxxxxxxxx wrote on 02/19/2008 12:16:02 PM:
>
> > Hi All,
> >
> > I have a situation in which I loop a a file in CLE and use the SNDEMAIL
> > command as such:
> >
> > READLOOP:   RCVF       RCDFMT(METEMLFR)
> >
> > * monitor for end of file
> >             MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(END))
> >
> >            SNDEMAIL   TYPE(*IFS) SMTPID(&EMLADREM1 &EMLADREM2 +
> >
> >              &EMLADREM3 &EMLADREM4) SUBJECT('MetCash +
> >              Orders') +
> >              IFS(('/kunip/' *CAT *FILE))
> >
> > GOTO       CMDLBL(READLOOP)
> >
> > The problem I encounter is if any one of the variables are blank, the
> > command fails. Is there a way around this?
> >
> > Thanks
> >
> >
> > Prevesh Kuni
> > RPG Developer
> > Smollan Group SA (Pty) Ltd
> > (011) 640 8154
> > kunip@xxxxxxxxxxxxx
> >
> > --
> > 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.
> --
> 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.