× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. July 2000

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

  • Subject: RE: Trying to Force Next Page/Totals After x No. Lines
  • From: "Stone, Joel" <StoneJ@xxxxxxxxxxxxxxxx>
  • Date: Wed, 19 Jul 2000 18:34:59 -0400
Ted - you can save your company (and maybe yourself) lots of pain down the road by soft-coding the page length.  When your company changes from one size paper to another, soft-coding the page length makes the change simple.  As you have coded it, there would be hundreds of program changes required.
 
Psuedo-code:
 
If LNENBR > page-length - 6
    exsr new-page
endif.
 
You can get the page-length from the INFDS. 
 
 
 
-----Original Message-----
From: Ted J Barry [mailto:tbarry@centralsan.dst.ca.us]
Sent: Wednesday, July 19, 2000 1:48 PM
To: RPG400-L@midrange.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

I'm getting the following error.  Any ideas? 

    07/19/00   11:29:02   QWPPERRS       QSYS        0055     MR450L       HTE
Message . . . . :   Record format or control information not specified.       
Cause . . . . . :   Either the record format or the control information was   
  not specified for file MRINVCE in library HTEUSRTEST. Recovery  . . . :     
  Specify a record format.                                                    
    07/19/00   11:29:03   QRGXMSG        QSYS        00CB     QRGXMSG      QSY
            Job Log                             S10A9892 07/19/00 11:31:48    
VCREPRNT      User  . . . . . . :   MRTEST       Number . . . . . . . . . . . 
JOBD          Library . . . . . :   MRLIBTEST                                 
V   DATE       TIME       FROM PGM       LIBRARY     INST     TO PGM       LIB
Message . . . . :   CPF5187 I/O error was detected in MRINVCE (C G S D F).    
Cause . . . . . :   The RPG program MR450L in library HTEUSRTEST received the 
  message CPF5187 at statement 98200 while doing WRITE I/O operation on file  
  MRINVCE. Actual file is  HTEUSRTEST/MRINVCE MEMBER - Q402441018. See the job
  log for a complete description of message CPF5187. Recovery  . . . :   Enter
  C to cancel, G to continue processing at *GETIN, S to obtain a printout of

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.