R: Break up spool file based on information within

[Finucci Domenico <Domenico.Finucci@xxxxxxxxxxxx>]

We use an home-made solution, based upon:
** a table  that holds
        **USD-DTA name that identifies the spool,
        ** name and type of the printer
        ** info on significant char that will be used by the program in
order
                to divide and dispatch the different pieces of the reports
        ** info on destination USER
        ** info on copies to produce for each dest.user
** a program, that runs timed, read an outq (called DISPATCH) and processes
/ breaks reports.

Sincerely
Domenico Finucci
Fiditalia , Milano, 02- 4301-2494


-----Messaggio originale-----
Da: Buck Calabro [mailto:Buck.Calabro@commsoft.net]
Inviato: giovedì 13 settembre 2001 17.09
A: midrange-l@midrange.com
Oggetto: RE: Break up spool file based on information within


>We use a purchased product for our accounting systems.
>One of the reports in this software creates a report
>that we need to break up for distribution to other people.
>We don't want them to see everything, just the part that they
>are supposed to see. The report is laid out that there is
>a definite spot where you can tell where to break it apart.

Yes, CPYSPLF will work for you; just write your own program to pick through
the resulting data and print the portions that you want.  Pseudocode
follows:

1) Run package
2) crtpf qtemp/print
3) cpysplf
4) run your pgm
5)   read qtemp/print
6)   determine the spooled attributes/form name, user data, outq, etc.
7)   if qsysprt open AND "break apart" reached, close qsysprt
8)   ovrprtf
9)   open qsysprt
10)   print line

--buck
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.