COBOL Printerfile EOP

[K_Tippi]

Hallo Gemeinde,
ich hab mal wieder ein Problem mit COBOL. (OPM kein ILE)
1. Ich drucke einen Beleg --in Ordnung
2. ich verlasse das Programm ohne Close mit Exit Programm
3. ich rufe das Programm aus dem geleichen CL nochmal auf und möchte einen zweiten Beleg an die Spool anhängen.

geht im Prinzip auch, aber obwohl ich als erste eine Format mit SKIPB(5) ausgebe wird beim nächsten write EOP gemeldet :-(
Ein Abfragen der I-O-AREA ergibt eine Zeile z.B von 30 OVERFLOW ist 60

Gibt es eine Art INFDS in COBOL wo ich alle Parameter abfragen kann?

Danke
Klaus

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