RE: Email forwarding on the AS400

["Lou Schmaus" <lschmaus@xxxxxxxxxxx>]

Phil,

Here's the CL we use. There's a CMD we use as a menu option, so the users
can forward their email themselves. Just change the system name 'ADI' in the
commands to whatever the system name you use in the DIRE entries.

Lou Schmaus
CCA, Inc.
Jackson, NJ 08527
lschmaus@link400.com
www.freightblue.com



           PGM        PARM(&USERID &REMOTADDR)

           DCL        VAR(&USERID) TYPE(*CHAR) LEN(10)
           DCL        VAR(&REMOTADDR) TYPE(*CHAR) LEN(256)
           DCL        VAR(&REMOT5) TYPE(*CHAR) LEN(5)
           DCL        VAR(&DUMMYADR) TYPE(*CHAR) LEN(256) +
                        VALUE('                                     -
                                                                    -
                                                                    -
                                                                    -
      ')
           CHGVAR     VAR(&REMOT5) VALUE(%SST(&REMOTADDR 1 5))

  /* TURN FORWARDING ON  */

           IF         COND(&REMOT5 *NE '*NONE') THEN(DO)

           CHGDIRE    USRID(&USERID ADI) USRDFNFLD((FORWARDING +
                        *NONE &REMOTADDR)) MSFSRVLVL(FWDSRVLVL +
                        *NONE) PREFADR(FORWARDING *NONE ATMIME)

           ENDDO


     /* TURN FORWARDING OFF */

    IF         COND(&REMOT5 *EQ '*NONE') THEN(DO)

    CHGDIRE    USRID(&USERID ADI) USRDFNFLD((FORWARDING +
                 *NONE &DUMMYADR)) MSFSRVLVL(*SYSMS) +
                 PREFADR(*SMTP *NONE)


    ENDDO


-----Original Message-----
From: midrange-l-admin@midrange.com
[mailto:midrange-l-admin@midrange.com]On Behalf Of Phil
Sent: Monday, September 03, 2001 12:04 AM
To: midrange-l@midrange.com
Subject: RE: Email forwarding on the AS400


> If I remember, the hard part was figuring out how to turn
> forwarding OFF(the article doesn't mention that).

How do you turn it off?

Phil