× 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. MIDRANGE-L
  3. April 2000

overflow indicator

  • Subject: overflow indicator
  • From: "Angela Wawrzaszek(EXCH)" <wawrzaszeka@xxxxxxxxxxx>
  • Date: Wed, 26 Apr 2000 08:37:39 -0500
I am stumped, I have an external printer file with overflow on line 48.  The overflow indicator is 27.  This indicator is used nowhere in the program except on the write output lines.   The indicator is being seton when line 25 has been written and jumping to the next page!!!  Any clues??
 
A          R ORD561OD                  TEXT('Detail Lines')       
  A            HCPOX         11         1                           
  A            LORD      R             13REFFLD(LORD ECL) EDTCDE(Z) 
  A N71N72     LLINE     R             20REFFLD(LLINE ECL) EDTCDE(Z)
  A N71 72     XLLIN     R             20REFFLD(LLINE ECL) EDTCDE(Z)
  A            CXCONS    R             26REFFLD(CXCONS ECDX) EDTCDE(
  A            PRODX         10        33                           
  A N71        IDESC     R             45REFFLD(IDESC IIM)          
  A N71        SHIPQ1         5  1     92EDTCDE(4)                  
  A  70        ALOC      R             99REFFLD(ALOC ELA)           
  A                                   112'*'                        
  **FORCE SPACE EVEN IF NO LINE PRINT                               
  A                                      SPACEA(1)                  
  A*                                   12'*'                        
  A*           LITEM     R             14REFFLD(LITEM ECL)          
  A N71        IDSCE     R             45REFFLD(IDSCE IIM)          
  A            DLINE         26        76                           
   **FORCE SPACE EVEN IF NO LINE PRINT                        
 A                                   105' '                 
 A                                      SPACEA(1)           
 A*                                                          
 
 
  Measurement Method  . . . . . . . . . . . :            *ROWCOL   
Lines per inch  . . . . . . . . . . . . . . : LPI        6         
Characters per inch . . . . . . . . . . . . : CPI        10        
Front margin  . . . . . . . . . . . . . . . : FRONTMGN   *DEVD     
Back margin . . . . . . . . . . . . . . . . : BACKMGN    *FRONTMGN 
Overflow line number  . . . . . . . . . . . : OVRFLW      48       
Fold records  . . . . . . . . . . . . . . . : FOLD       *NO       
 
This is the line of code where the indicator gets set on-
                      
 C  N76                WRITEORD561OD               27       
 C   76                WRITEORD561LD               28       
 C                     ELSE                                 

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.