HP3000-L Archives

September 2002, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"Legault, Raymond D" <[log in to unmask]>
Reply To:
Legault, Raymond D
Date:
Mon, 16 Sep 2002 05:52:36 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (115 lines)
Hi Jim

I have a few utilities that I put together from various sources of the
Hp3000 that
can create PDF files from Legacy reports and emails the files.

If your are interested please let me know.

Ray

The command files below is what I use to trigger the report.
It requires a legacy report with carriage control in column 1.
It requires the programs and command files referenced by this command file.
The cr2lines program takes the legacy report, removes the carriage control
and put in fixed blank lines.
Text2pdf does the rest.
Nothing here was purchased. It was supplied by me or from the web or the
CSL.

CR2LINES.CMDFILE.SYS

parm filein=" ",fileout=" ",recsize=80,fnt=8,lpp=60,ls=10
parm email=" ",Sub="Sendpdf"
if "!filein"=" " or "!fileout" =" "
echo Emails a legacy report to a user in PDF format, printable
echo !hpfile Input, output, 80, 8,60,10
echo
echo Input   - Input file name
echo Output  - Output file name
echo recsize - default 80
echo font    - 8 for 80 chars, 7 for 132, 6 for 150
echo LPP     - Lines per page default 60
echo LS      - Line spacing  default 10
echo Email   - email address or Bemsid 8 chars M0001111
echo Sub     - Subject
echo
echo Example: randname w
echo          comment use the above to create a random file name.
echo          cr2lines wichita1,!!w,80,7,63,8,[log in to unmask],"test pdf1"
echo
else
if finfo("!fileout",0)
echo
purge !fileout
echo !fileout Exists.... Purged.
endif
setvar myemail "!email"
file in=!filein
randname out
if finfo("!out",0)
randname out
endif
run cr2lines.util.sys;info="count"
echo !recordsize !linesperpage
setvar linesPerPage linesPerPage + 1
file out=!out
run cr2lines.util.sys;parm=!linesperpage
file out=!out,old
randname mypdf
file mypdf=!mypdf
txt2pdf !out,!mypdf,!recordsize,!fnt,!linesperpage,!ls
comment txt2pdf !out,!mypdf,!recsize,!fnt,!lpp,!ls
mailspf1 !myemail,"!sub",!mypdf,mypdf.pdf
rename !mypdf,!fileout
deletevar mypdf,out
reset in
reset out
reset mypdf
endif

-----Original Message-----
From: Birket [mailto:[log in to unmask]]
Sent: Friday, September 13, 2002 6:02 PM
Subject: Re: PDF files on HPe3000.


 In article <[log in to unmask]>, Jim Donahue
<[log in to unmask]> writes:

>Subject:       PDF files on HPe3000.
>From:  Jim Donahue <[log in to unmask]>
>Date:  Thu, 12 Sep 2002 13:01:42 -0500 (Central Daylight Time)
>
>Are there any solutions to create PDF files on the HPe3000?
>
>Thanks,
>
>Jim
>

Hi Jim,

The good news is that UDALink [which was evolved from DataExpress] has been
producing PDF output for some time now ... actually it is one of over 30
output
formats that we can deliver data in ... XML, HTML, CSV, XL4, Powerhouse
sub-files etc are some of the others.

Now for the good news ... our company is already a licensee of the Universal
Data Access Link from MBFoster ... training is available if you have a need.

See http://www.mbfoster.com/products/index.cfm for more info or see
http://www.mbfoster.com/services/education.cfm for the training classes -
probably an Express audit would be helpful.

Cheers,
Birket Foster
M. B. Foster Associates .. the 1-800-ANSWERS people!
Supplying UDALink w/cross-platform ODBCLink Option (3000,9000&NT)
See how DataExpress has evolved www.MBFoster.com
EC/EDI(3000,9000,NT) Phone (613) 448-2333 or (613) 448-2588(FAX)

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2