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