MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » April 2000

Re: overflow indicator


  • Subject: Re: overflow indicator
  • From: MacWheel99@xxxxxxx
  • Date: Wed, 26 Apr 2000 14:35:27 EDT

fixed

This is obviously a BPCS program associated with shipping documents & like 
me, you are trying to modify the output from SSA's AS/Set, which can be a 
struggle ... have you signed up for BPCS_L?  Did the program work for a while 
& then quit working, or are you in the midst of an install & it never worked 
in the first place.

We do our shipping documents on 8 x 11 PC paper, while the vanilla version is 
setup for green bar layout ... if you also trying 8 x 11 paper you might have 
any trouble with your PC printer when you send it stream of data that won't 
fit sideways ... we have had our PC printers jump to new page when given 
AS/400 instruction to print on the platen.

>  From:    wawrzaszeka@AUSTEEL.com (Angela Wawrzaszek(EXCH))
>  
>  --------------------
>  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                                  

Al Macintyre  
http://www.cen-elec.com MIS Manager Programmer & Computer Janitor

Accept that some days you are the pigeon and some days the statue.
Murphy's Mom brought wrong baby home from hospital so it should be Kelly's 
Law.
When in doubt, read the manual, assuming you can find the right one.
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---





Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot 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 here. If you have questions about this, please contact