Duplex Reports

[Carol Kaffenberger]

This is a multi-part message in MIME format.
--------------3F1AB1B73BD7C98E803063A3
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit

John,

Thank you so much!  Your solution works great!

Carol

pickerij@norbord.com wrote:

> Sorry - Carol tried my original suggestion of yesterday and had
> difficulties with the first page of a new group starting on the back of
> the first sheet in the set. My fault - that's what I get for going on
> memory and not looking at the code :-(
>
> I should have suggested going to the *back* of the page in the footing
> instead of the front. Then the heading has a skip page which moves it to
> the front of the next page. When the data ends on the front this works
> fine. When the data ends on the back this generates a blank page. In my
> code this isn't too important because the report is several hundred pages
> long with only half a dozen control breaks. Just tell the users it's a
> "feature" :-)
>
> And Chris, on our versions of Quiz (i.e. not the jazzed up Compaq
> versions :), you can't do anything with syspage except include it in a
> report group so mod(syspage,2) is illegal. Too bad though as I think it
> would eliminate my blank pages.
>
> Here's the code I ended up with for my test. The subfile sf1 has nothing
> in it except a sequential counter named d-ctr.
>
> set def
> acc *sf1
> def d-key char*1 &
>   = "1" if d-ctr lt 050 &
> els "2" if d-ctr lt 150 &
> els "3"
> sorted on d-key
> def d-27 int*2 = 27
> def d-esc char*1 = char(d-27)[2:1]
> def d-back char*5 = d-esc + "&a2G" ; back side of duplex page
> hea at d-key skip page
> rep d-key d-ctr
> foo at d-key d-back
> set rep dev pri lim 1000
> set pag wid 80
> go
>
> John "hope this helps" Pickering
> JWP Systems Inc
> Toronto
>
>  -----Original Message-----
> From: Chris.Sharman@ccagroup.co.uk
> Sent: Thursday, November 26, 1998 4:29 AM
> To: powerh-l@lists.swau.edu
> Cc: kaffenbe@karmanos.org; Chris.Sharman@ccagroup.co.uk
> Subject: RE: Duplex Reports
>
> >I have a COBOL program that generates a report that prints on a laser
> >printer on both sides of the paper.   When a key changes in the data,
> >the COBOL program closes and reopens the output report file so that
> >the data associated with the new key prints on "side 1" of a fresh
> >sheet of paper.  How can I do this in QUIZ?
>
> Sounds do-able in pure powerhouse:
>
> def ff int*2 = 12
> def ffchar char*1 = characters(ff)Ä2:1Å ; Ä1:1Å for VMS
>
> def toback char*1 = ffchar if (1=mod(syspage,2)) ; previously 1: should
> be 2
>
> foot at whatever toback skip page
>
> Alternatively: try doubling page length, so that one Quiz 'page' is both
> sides
> of a printer page. You won't get page headings on the back page then
> though.
> ______________________________________________________________________
> Chris Sharman   Chris.SharmanÉCCAgroup.co.uk
> CCA Stationery Ltd, Eastway, Fulwood, Preston, Lancashire, PR2 9WS.



--------------3F1AB1B73BD7C98E803063A3
Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Carol Kaffenberger
Content-Disposition: attachment; filename="vcard.vcf"

begin:          vcard
fn:             Carol Kaffenberger
n:              Kaffenberger;Carol
org:            Karmanos Cancer Institute
email;internet: kaffenbe@karmanos.org
title:          Information Systems
x-mozilla-cpt:  ;0
x-mozilla-html: FALSE
version:        2.1
end:            vcard


--------------3F1AB1B73BD7C98E803063A3--

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.