write PrtF-Satzformat obwohl Fehlerebezugszahl an. Normal?

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