COBOL Printerfile EOP

[Fuerchau]

INFDS nennt sich I-O-FEEDBACKAREA und kann nach jedem IO-Befehl per Accept abgefragt werden.
EOP und Formatfile beißen sich da tatsächlich etwas, da EOP mit einer LINAGE-Clausel in der FD berechnet wird. Die Werte dazu kann man in Variablen packen und die Informationen dazu nach dem Open aus der I-O-AREA abfragen und setzen.
LINAGE-COUNTER OF FDNAME enthält die Zeile nach dem WRITE.

[K_Tippi]

Danke,
also werde ich die "AT EOP" rausßchmeissen und selbst berechnen. Das wollte ich mir eigentlich sparen.

Klaus

[Fuerchau]

Das Problem ist, dass das EOP-Flag leider nur mit "WRITE ... AFTER PAGE" zurückgesetzt wird.
Ob das mit Formatfiles auch geht weiß ich nun nicht, bliebe aber ggf. auszuprobieren (z.B. mit deinem SKIPB-Format).