Dave Here is an example of what we do with jtmail;
(We just invoke it in a command file over and over)
PARM JOB_SITE=" ", JOB_NAME=" ", JOB_JOBNUM=" ", JOB_DATE=" ", &
JOB_TIME=" ", JOB_ERR=" ", JOB_MSG=" "
COMMENT***********************************************************
COMMENT HPAUTOCONT AUTOMATIC CONTINUE FEATURE
COMMENT HPMSGFENCE NO ERROR OR WARNING MESSAGES
COMMENT***********************************************************
SETVAR HPAUTOCONT TRUE
SETVAR HPMSGFENCE 2
COMMENT ********************************************************
COMMENT
COMMENT EMAILERR SUB COMMAND FILE
COMMENT
COMMENT WHO:
COMMENT CUSTOMER - ESWR (EVT)
COMMENT CUSTOMER - ESWR (777)
COMMENT CUSTOMER - ESWR (RTN)
COMMENT CUSTOMER - ESWR (PSD)
COMMENT SUPPORT - ESWR PROGRAMMERS
COMMENT
COMMENT WHAT:
COMMENT SUB COMMAND FILE SCRIPT TO EMAIL ESWR PROGRAMMERS
COMMENT ERROR CONDITION WHEN A JOB FAILS FOR SOME REASON
COMMENT
COMMENT WHERE:
COMMENT CALLED FROM WITH JOB STREAMS IN STREAM AND FTP GROUP
COMMENT WHY:
COMMENT TO ALLERT PROGRAMMERS TO AN ERROR CONDITION
COMMENT
COMMENT WHEN:
COMMENT WHEN A JOB STREAM IN THE FTP OR STREAM GROUP FAILS
COMMENT
COMMENT***********************************************************
COMMENT
COMMENT***********************************************************
COMMENT DETERMINE THE SPOOLFILE NUMBER FROM THE JOB NUMBER
COMMENT***********************************************************
PURGE T1,TEMP
FILE T1;MSG
SHOWOUT JOB=#!JOB_JOBNUM;sp > *T1
INPUT NAME=LINE < *T1
INPUT NAME=LINE < *T1
INPUT NAME=LINE < *T1
SETVAR JOB_SPOOLNUM RTRIM(STR('!LINE',11,8))
SETVAR JOB_ESWR_PERSON1 "-r [log in to unmask]"
SETVAR JOB_ESWR_PERSON2 "-r [log in to unmask]"
SETVAR JOB_ESWR_PERSON3 "-r [log in to unmask]"
SETVAR JOB_ESWR_PERSON4 "-r [log in to unmask]"
SETVAR JOB_ESWR_PERSON5 "-r [log in to unmask]"
SETVAR I 1
WHILE( I < 6 ) DO
COMMENT***********************************************************
COMMENT EMAIL PREPARATION IE; MAILHANDLER, FROM, TO, BODY OF TEXT
COMMENT IN FILE T2, SUBJECT
COMMENT***********************************************************
SETVAR JOB_MH "-h relay.boeing.com"
SETVAR JOB_FROM "-u myemail.ca.boeing.com"
SETVAR JOB_TO "![JOB_ESWR_PERSON!I]"
SETVAR JOB_FILE "-f T2"
SETVAR JOB_SUBJ "-s Error HP 3000 Site !JOB_SITE Job !JOB_NAME &
Jobnum !JOB_JOBNUM"
COMMENT***********************************************************
COMMENT BODY OF TEXT IS PUT INTO FILE T2
COMMENT***********************************************************
PURGE T2,TEMP
ECHO Greetings from HP 3000 !JOB_SITE, >T2
ECHO >>T2
ECHO Error HP 3000 >>T2
ECHO Site = !JOB_SITE >>T2
ECHO Job = !JOB_NAME >>T2
ECHO Jobnum = !JOB_JOBNUM >>T2
ECHO Jobspoolnum = !JOB_SPOOLNUM >>T2
ECHO Jobdate = !JOB_DATE >>T2
ECHO Jobtime = !JOB_TIME >>T2
ECHO Joberr = !JOB_ERR >>T2
ECHO Jobmsg = !JOB_MSG >>T2
ECHO. >>T2
COMMENT***********************************************************
COMMENT EMAIL THE MESSAGE
COMMENT***********************************************************
RUN JTMAIL.JTMAIL.TECHXL;&
INFO="!JOB_FROM !JOB_TO !JOB_MH !JOB_FILE !JOB_SUBJ -v -t" > $NULL
SETVAR I I+1
ENDWHILE
Dave Knispel wrote:
> To all JTMAIL users,
>
> Here's a problem I can't seem to figure out. I'm able to send a message to
> 1 address, but not 2 or more. I'm more baffled all the time. Here's my
> command file...
>
> This works...
>
> echo Job completed successfully > mailfile
> echo >> mailfile
> run jtmail.pub.util;info="&
> -f mailfile &
> -s test mail subject line &
> -u hp3000 &
> -r [log in to unmask] &
> -t"
>
> This doesn't...
>
> echo Job completed successfully > mailfile
> echo >> mailfile
> run jtmail.pub.util;info="&
> -f mailfile &
> -s test mail subject line &
> -u hp3000 &
> -r [log in to unmask] &
> -r [log in to unmask] &
> -t"
>
> I don't get any errors back from JTMAIL, I just don't get the messages. Is
> there a later version of JTMAIL floating around other than what is at the
> INTEREX site? Again, help...
>
> David Knispel
> [log in to unmask]
> Phone: 513-248-5029
> Fax: 513-248-2672
--
Respectfully,
Joe
Joe Whitlock | Work Email: [log in to unmask]
The Boeing Company | Home Email: [log in to unmask]
P.O. Box 3707 | Tel: 425-234-1478
MS 6C-LU | Fax: 425-237-7230
Seattle, WA 98124-2207 |
|
