write PrtF-Satzformat obwohl Fehlerebezugszahl an. Normal?

[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.