RE: overflow indicator- case solved

Ah hah!  Someone who was queer for internally defined spool 
files who thought that programming was the best way to complete 
this when a simple CHGPRTF would have worked without changing a 
line of code.





wawrzaszeka@AUSTEEL.com on 04/27/2000 08:05:27 AM
Please respond to MIDRANGE-L@midrange.com@Internet
To:     MIDRANGE-L@midrange.com@Internet
cc:      
Fax to: 
Subject:        RE: overflow indicator- case solved

I knew it would be something dumb- the CL did an override for overflow at
line 26!!!  

Angie Wawrzaszek
M.I.S. Department


-----Original Message-----
From: owner-midrange-l@midrange.com
[mailto:owner-midrange-l@midrange.com]On Behalf Of MacWheel99@aol.com
Sent: Wednesday, April 26, 2000 2:35 PM
To: MIDRANGE-L@midrange.com
Subject: Re: overflow indicator


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.  0
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
+---
+---
| 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.comm
+---


+---
| 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
+---