Cobol und Printerfiles

[Rafer19]

Ausgangspunkt:
FORMATFILE printerfile
mit Kopf-FMT = 10 Zeilen
Line-FMT = 4 Zeilen
und Artikel-FMT = 40 Zeilen
(das Besondere ist, das die Artikel-Zeilen nicht immer komplett
gefüllt sind, mal 10 oder 20 oder 40..)

Seitengröße = 72 Zeilen
Overflow = 66 Zeile

kann man im Programm erkennen, wann die Overflow-Zeile erreicht ist,
um eine neue Seite zu beginnen bzw. das Line-Format auszugeben?
Gibt es eine AREA, in der relevante Daten aus der PRTF-File stehen?
(gibt es wohl unter RPG..??)

Lösungsidee:
jeder Zeile im Artikel-FMT ein eigenes Format zuweisen und dann mit
WRITE printerfile FORMAT is 'xxx-FMT'
AT EOP (End-of-Page) PERFORM Line-FMT..
END-WRITE
ausgeben

Aber es sollte doch einen eleganteren Weg geben, oder?

Danke!!

[Fuerchau]

Die Lösung hast du fast selbst beschrieben. Du brauchst zwar im Artikelbereich nicht für jede Zeile ein Format.

write ... at eop ...

EOP wird gemeldet, wenn die Überlaufzeile erreicht bzw. überschritten wird.
Mit dem nächsten WRITE ohne EOP wird das Flag wieder gelöscht.

Alternative aber komplizierter ist das Lesen der I-O-FEEDBACKAREA (ACCEPT) aber eigentlich nicht nötig.