E-Mailing Spoolfiles Instead of Printing
Many system managers are looking for alternatives to printing reports. Or a method for distributing reports to remote users. Emailing reports is one option. We have developed a simple script that can be invoked from any batch job to email all spoolfiles created by the job to an email address. The email recipient receives the spool files as HTML attachments with a .html extension to make opening them in a Browser a simple operation. All you need is a mail server (SMTP) server that is accessible from your HP3000 system.
Emailing the reports is as simple as adding the following line into any batch job:
SF2EMAIL relies upon two programs: SF2HTMLP and MAILNM. SF2EMAIL is included in SF2HTML, a Beechglen freeware package. I have also included the script below. MAILNM, a free utility from Telamon, is also required. You can obtain SF2HTML from http://www.beechglen.com/mpe/downloads.html. Complete download instructions are on the Freeware page. MAILNM is available at ftp://ftp.telamon.com. If you have any questions or need any help setting it up please let us know.
# SF2EMAIL V1.1
# Written by Doug Werth (email@example.com)
# Beechglen Development Inc.
# E-mail all spoolfiles (other than $STDLIST) to
# the user specified on the PARM line.
# Programs used:
# MAILNM can be downloaded from ftp://ftp.telamon.com
# SF2HTML can be obtained from http://www.beechglen.com
# *** Modify the following lines for the correct
# IP address or Name of your SMTP server, and
# a valid return address.
setvar MAILSUBJECT,'Output from !HPJobName (#!HPJobType!HPJobNum)'
# First, Identify all spool files for this job
# Use !hpjobnum as a file extension to provide
# for a unique file so that multiple batch jobs
# can generate emails simultaneously.
purge ./spfwork.!hpjobnum >$null
setvar ListspfParm,"jobnum=!HPJobType!HPjobnum and filedes<>$stdlist"
listspf @;seleq=[!ListspfParm] >./spfwork.!hpjobnum >*workfl
# Next, process the list of spoolfiles. For each file foun
# use SF2HTML to turn it into an HTML file, then use MAILNM
# to mail it out.
while finfo("*workfl","EOF") > 0
input SPFLine <*workfl if lft(SPFLine,2) = "#O" setvar SPFLnum,str(SPFline,3,8) echo Processing spool file !SPFLnum file SFOUT;rec=-256,,f,ascii;disc=500000 # usage: SF2HTMLP ;info="sf# (ie 1827);parm=lines per page SF2HTMLP !SPFLnum,59 MAILNM '-t !EMailAddy -ah SFOUT "See attached"' endif endwhile purge ./spfwork.!HPJobNum >$nul