|
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. 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.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.
midrange.com
