Re: [open-cobol-list] Addressing printer in report writer program.

[Kevin Monceaux]

On Fri, Mar 07, 2014 at 04:09:59PM -0500, john Culleton wrote:

> Or do I just send it to a Line-sequential file and print it off-line?

The ACAS (Applewood Computers Accounting System) package might be a good
place to look for examples of printing line-sequential files.  It has two
copybooks, one for portrait and one for landscape:

*>
*>  Portrait
*>
 01  Print-Report.
     03  filler          pic x(117)     value
     "lpr -r -o 'orientation-requested=3 page-left=48 page-top=24 " &
     "page-right=24 sides=two-sided-long-edge cpi=12 lpi=8' -P ".
     03  PSN             pic x(48)      value "HPLJ4TCP ".  *> This is the CUPS 
print spool, change it for yours
     03  filler          pic x(15)      value "prt-1".      *> Don't change 
this line

*>
*> Landscape
*>
 01  Print-Report.
     03  filler          pic x(117)     value
     "lpr -r -o 'orientation-requested=4 page-left=18 page-top=48 " &
     "page-right=10 sides=two-sided-long-edge cpi=12 lpi=8' -P ".
     03  PSN             pic x(48)      value "HPLJ4TCP ".  *> This is the CUPS 
print spool, change it for yours
     03  filler          pic x(15)      value "prt-1".      *> Don't change 
this line

Various programs write output to file prt-1 then print the output with:

    call     "SYSTEM" using Print-Report.


-- 

Kevin
http://www.RawFedDogs.net
http://Lassie.RawFedDogs.net
http://www.WacoAgilityGroup.org
Bruceville, TX

What's the definition of a legacy system? One that works!
Errare humanum est, ignoscere caninum.