Re: Trying to Force Next Page/Totals After x No. Lines

Ted J Barry <tbarry@centralsan.dst.ca.us> on 07/19/2000 01:47:35 PM

Please respond to RPG400-L@midrange.com

To:   RPG400-L@midrange.com
cc:    (bcc: Arlene M Soderlund/NFCNA.COM)
Subject:  Trying to Force Next Page/Totals After x No. Lines



Using a program described printer file (quick fix to a garbage
program).  I added the file spec. extention to use the INFDS on this
printer file.  Code goes something like:


> FMRINVCE O   F      90     OF     PRINTER
> F                                              KINFDS PRTDS
>
> IPRTDS       DS
> I                                    B 367 3680LNENBR
>
> C           *INOF     IFEQ '1'
> C           LNENBR    ORGE 46

You need to add the LNENBR to a Signed number field, unless you wish to use the
binary representation of 46.


     Z-add   lnenbr        LNNBR        5 0


> C           *INOF     IFEQ '1'
> C           LNNBR     ORGE 46












+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---