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.