write PrtF-Satzformat obwohl Fehlerebezugszahl an. Normal?

[Fuerchau]

Die Bezugszahl für Überlauf wird nach der Ausgabe gesetzt, der Druck ist also erfolgt!
Da du die Summenzeile also 2 mal ausgibst, wird sie auch 2 Mal gedruckt.

Im Extremfall kann es auch dazu kommen, dass ein automatischer Seitenwechsel innerhalb der Summenzeilen passiert.
Wenn Z.B. auf Zeile 66 (vor dem Überlauf) ein Format mit 6 Zeilen ausgegeben wird, werden eben 5 Zeilen auf der aktuellen und 1 Zeile auf der nächsten Seite ausgegeben.
Anschließend erfolgt der Kopfdruck mit einem erneuten Seitenwechsel (SKIPB).

Hier hilft nur eine INFDS (Beschreibung und Aufbau musst du suchen).
Hier gibt es eine aktuelle Info auf welcher Zeile die PRTF ist und wie der Überlauf definiert ist.
So kann man den Überlauf vorher prüfen.
Das funktioniert aber nur mit Formaten, die SKIP und SPACEx verwenden. Bei AFPDS mit POSITION wird ja frei auf der Seite positioniert.

[votch]

Hallo und vielen Dank fuerchau, das erklärt Einiges. Manchmal sieht man den Wald vor lautere Bäumen nicht...

Das PrtF wird hier mit devtype(*SCS) überschrieben. Meine Analyse ergab jetzt auch gerade, dass sämtlich Barcodes zwar im Prg ermittelt und gefüllt werden, aber seit 2003 im Prg definiert und im PrtF ausgesternt wurden. Auch die ganzen Escape-Sequenzen scheinen keinerlei Auswirkungen mehr zu haben...

Es scheint wirklich nur noch mit SKIPB und SPACEB gearbeitet zu werden

Ich mache mich gleich mal auf die Suche nach der INFDS und prüfe dann den ob es zu einem Überlauf kommt(neue Seite mit Summe oder ob die Summe noch auf die aktuelle Seite paßt).

Vielen Dank, dann habe ich ja evtl. doch noch 2-3 Std. von meinem "Urlaubstag" übrig...

[K_Tippi]

Hi,
falls es hilft hier die beiden Zeigerfelder für Seite und Zeile:

fmkublsp1 o e printer infds(prtds)


dprtds ds
d $$zeile 367 368i 0
d $$seite 369 372i 0

Klaus

[votch]

Hallo und vielen Dank nochmals an alle Beteiligten.

Es funktioniert jetzt dank fuerchau genauso wie es soll...

@K-tippi

genauso hab ich es auch gemacht und jetzt läuft alles wie gewünscht(Lösung siehe unten).

Hier der Source-Code, falls jemand mal ein ähnliches Problem mit Sourcen aus dem letzten Jahrtausend haben sollte...

FPrtF01 O E PRINTER USROPN
f INFDS( prtfInfDs )

d #HCurLin s 2 0

d PrtFInfDS ds
d OvrFlw 188 189i 0
d CurLin 367 368i 0

C *IN26 IFEQ *ON
C eval #HCurlin = CurLin
C eval #HCurLin += 3
C #HCurLin ifge OvrFlw
C 27 eval #PageV += 1
C 27 WRITE KOPF04 BZ28(NI)
C EXSR KOPTXT
C ENDIF
C 27 WRITE SUMME BZ28(NI)
C ENDIF

[Fuerchau]

Wenn du schon bei ILE bist gehts auch so:

if CurLin + 3 >= OvrFlw

dann sparst du dir das Hilfsfeld.

[votch]

@ fuerchau,

wenn ich mir das heute so anschaue muss ich Dir vollkommen Recht geben. Das Hilfsfeld hätte ich mir sparen können.