Re: PAGNBR ?

Maybe this would work for you...

EVAL    REM = %REM(PAGNBR:2)
IF            REM <> 0
WRITE   PAGEEJECT


Include in your printer file DDS:

A                        R PAGEEJECT
A                                                       01 '  '
A                                                             SKIPB(01)


Terry Richardson
Vermont Information Processing, Inc.
terry@vtinfo.com



                      Mark Allen
                      <allenmark@nu-z.n        To:       rpg400-l@midrange.com
                      et>                      cc:
                      Sent by:                 Subject:  PAGNBR ?
                      rpg400-l-admin@mi
                      drange.com


                      02/11/2002 01:08
                      PM
                      Please respond to
                      rpg400-l






Smack me with a wet noodle, pgm wasn't even compiling (it didn't know
what PAGNBR field was), plus I re-checked archives and found the answer
(don't know how I missed it the first time).  Anyways what you have to
do is condition the PAGNBR field with an indicator, when that indicator
comes on PAGNBR is reset. Now I have a bigger issue, The spool file is
set to print on both sides of the paper (these are telephone Bills).

So say the first customer has a 10 page bill, customer #2 then bill
starts printing, the issue is if a customer has an odd number of pages,
the next customers first page prints on the back side of the previous
customers bill.  I can't seem to think of any easy way to accomplish
this? aAny ideas???

Mark Allen
I.S. Manager
Wilkes Telephone & Electric
A Dycom Company
Phone: (706) 678-9565
Email: allenmark@nu-z.net
http://www.nu-z.net





_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.