Re: overflow indicator

["Jim Franz" <franz400@xxxxxxxxxxxx>]

This may be a dumb question, but are you saying overflow is *on after
printing line
 25, or is it after printing record #25?? I see two SPACEA(1) in the record
format,
and am assuming each record is 2 lines, which would put record 25 around
line
50 or so, and overflow should be on. If not the case, is there an
informational data
structure defined for the printer file. I would debug the pgm, checking the
values in
the data structure after each record is written to determine why overflow is
on.
Jim Franz

----- Original Message -----
From: <MacWheel99@aol.com>
To: <MIDRANGE-L@midrange.com>
Sent: Wednesday, April 26, 2000 2:35 PM
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.
> 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)
CDE( 
> >    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.com
+---