|
midrange.com
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
+---
As an Amazon Associate we earn from qualifying purchases.
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.
