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