I am attaching the SPECIAL.COM file as we now use it here, which
incorporates the changes made to my original post of 17 Apr 91 00:17:56 GMT
(included in [CONTRIB]ALL-IN-1_TO_MX.TXT), as modified by Rob McMillan
<ccrob@uqvax.cc.uq.oz.au> on 10 May 91 01:43:56 GMT (included in
[CONTRIB]ALL-IN-1_TO_MX_2.TXT).  Rob noted that the solution was equally
applicable to PMDF; whether or not this specific modification is equally
applicable, I have no idea (my guess is yes, but I can't verify it).

Hunter, possibly this needs to be added to [CONTRIB] as well?

Regards,   George
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
George D. Greenwade, Ph.D.                            Bitnet:  BED_GDG@SHSU
Department of Economics and Business Analysis         THEnet: SHSU::BED_GDG
College of Business Administration                    Voice: (409) 294-1266
P. O. Box 2118                                        FAX:   (409) 294-3612
Sam Houston State University              Internet:        bed_gdg@SHSU.edu
Huntsville, TX 77341                      bed_gdg%SHSU.decnet@relay.the.net
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
$ !     OALIB:SPECIAL.COM       V2.1A   Last edited: 4-Nov-1985
$ !     Electronic Mail Subsystem
$ !     Deliver mail to the "SPECIAL" destination
$ !
$       ASSIGN/USER NLA0: SYS$OUTPUT
$       ASSIGN/USER NLA0: SYS$ERROR
$       ON WARNING THEN GOTO NOT_SENT
$       ORIG_DIR :==    'F$LOGICAL("SYS$DISK")''F$DIRECTORY()'
$       MY_NODE :=      'F$LOGICAL("SYS$NODE")
$
$ UNDERLINE_LOOP:
$       IF "''F$EXTRACT(0,1,MY_NODE)'" .NES. "_" THEN GOTO SETUP_PARAM
$       MY_NODE :=      'F$EXTRACT(1,99,MY_NODE)
$       GOTO UNDERLINE_LOOP
$
$ SETUP_PARAM:
$       WRITE OAMAILBOX "OA GET PROFIL.DIRECT[OA$USER]"
$       @DCLMAILBOX:
$       HOME_DIR        :=      "''RESULT'"
$       WRITE OAMAILBOX "OA GET #MAILSUBJ"
$       @DCLMAILBOX:
$       SUBJ    :=      "''RESULT'"
$       WRITE OAMAILBOX "OA GET #MAILFILE"
$       @DCLMAILBOX:
$       FILE    :=      'RESULT
$       WRITE OAMAILBOX "OA GET #MAILNODE"
$       @DCLMAILBOX:
$       NODE    :=      'RESULT
$       IF NODE .EQS. "" THEN GOTO SEND_IT
$       IF 'F$LOCATE("::",NODE) .EQ. 'F$LENGTH(NODE) THEN NODE := 'NODE'::
$       IF "''MY_NODE'" .EQS. "''NODE'" THEN NODE := ""
$       WRITE OAMAILBOX "OA GET OA$STATUS=""1"""
$       @DCLMAILBOX:
$
$ SEND_IT:
$       WRITE OAMAILBOX "OA GET #MAILADDR"
$       @DCLMAILBOX:
$       TO      :=      "''NODE'''RESULT'"
$       TO      =       TO - "MX%"
$ LOOP1:
$       IF F$EXTRACT(0,1,TO) .NES. "_" THEN GOTO REALLY_SEND
$       TO      :=      'F$EXTRACT(1,99,TO)
$       GOTO LOOP1
$ REALLY_SEND:
$       ASSIGN/USER NLA0: SYS$OUTPUT
$       ASSIGN/USER NLA0: SYS$ERROR
$       SET DEFAULT 'HOME_DIR
$       TO = "MX%" + """""" + F$EDIT(TO,"LOWERCASE") + """"""
$       OPEN/WRITE OUTFILE SPECIAL_TEMP.COM
$       WRITE OUTFILE "$MAIL"
$!      WRITE OUTFILE "SEND/NOEDIT/NOSELF ''FILE'"
$       WRITE OUTFILE "SEND/NOEDIT/NOSELF/NOCC ''FILE'"
$       WRITE OUTFILE "''TO'"
$       WRITE OUTFILE "''SUBJ'"
$       WRITE OUTFILE "EXIT"
$       WRITE OUTFILE "$EXIT"
$       CLOSE OUTFILE
$       @SPECIAL_TEMP
$       DELETE/NOCONFIRM SPECIAL_TEMP.COM.*
$!      MAIL/SUBJ="''SUBJ'" 'FILE' 'TO'
$!      IF $STATUS THEN GOTO DONE
$!
$! NOT_SENT:
$!      Status = '$STATUS
$!      WRITE OAMAILBOX "OA GET OA$STATUS=""''STATUS'"""
$!      @DCLMAILBOX:
$ DONE:
$       SET DEFAULT 'ORIG_DIR
$       EXIT