Following also works without any 3rd party utilities, and lets you archive
reports for years, switch between line-printers & lasers, etc. Also, you can
group lots of reports going to different users. It will even work on a
'classic' with adjustments like using fcopy to print instead of the 'print'
command.  If you make dozens every month, you will want to trim the extra
space with MPEX's "xltrim" or some such.

(at run time, say early in month-end processing)
!# FILE INV1001;DEV=LP              (how it used to be)
!PURGE INV1001.MLIByymm
!FILE  INV1001 = INV1001.MLIByymm, NEW; DEV=DISC; CCTL; SAVE &
!  ; REC=,32,F,ASCII; DISC=60000,32,1
!RUN INV1001.PROG

(seconds or years later)
!FILE SAMMY;   DEV= 06,13,1; CCTL         (line printer)
!PRINT SAMMY.M1START        >   *SAMMY
!PRINT INV1001.MLIByymm       >   *SAMMY
(other reports for Sammy)
!PRINT SAMMY.END                  >   *SAMMY

!FILE EXPORT;     DEV=61,13,1; CCTL;  ENV=LAND.ENV.SHR           (laser)
!PRINT EXPORT.M1START        >   *EXPORT
!PRINT INV1001.MLIByymm       >   *EXPORT
(other reports for export dept)
!PRINT EXPORT.END                  >   *EXPORT

The 'start' & 'end' files are one-page permanent files with text like
'Beginning of month-end 1 reports for ......'.  With laser printers & a
little tray selection you can have colored dividers between different users'
reports.

My question is:  how about reprinting 6 year old reports 5 years after the
last HP3000 bites the dust?  Does anyone know if other systems can print
these easily?  Archiving all month-end reports sure can make audits easier.


----- Original Message -----
From: "Paul H. Christidis" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Tuesday, April 16, 2002 11:23 AM
Subject: Re: [HP3000-L] Need to send a copy of a report to each of 2
printers


> The following will work without involving any 3rd party utilities:
>
>
> !...
> !file rpt=tmpspool;rec=-132,,f,ascii;disc=500000;save;spool
> !run program  (that writes to 'rpt'
> !file dev1=rptname;dev=printer1;env=....
> !file dev2=rptname;dev=printer2;env=....
> !print tmpspool;out=*dev1
> !print tmpspool;out=*dev2
> !purge tmpspool
> !...
>
> Just specify the appropriate record size, disc size, environment files, if
> needed, and perhaps a unique name for 'tmpspool'.
>
> Regards
> Paul Christidis
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
>

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