cobol und display-files

[K_Tippi]

Hallo,
mache seit langem mal wieder COBOL und hab ein Problem.
Ein Screen wird aus mehreren Formaten aufgebaut jeweils ein write für KOPF, Nutzdaten, Fuss
gibt es eine Möglichkeit alle Formate mit "einem" Read einzulesen?

Bin für jeden Tipp dankbar

Klaus

[Fuerchau]

Definitiv Nein.
Wenn mehrere Eingabeformate aktiv sind, schafft man das auch nur, meine ich, mit Invite.
Bei einem Read File ohne Format wird im IO-Feedback (ich meine über Special Names definiert) dann der Formatname geliefert, der Daten erfasst hat.
Hat man 2 aktive Formate, gibt in beiden Formaten etwas ein und drückt Enter, löst der Read mit dem ersten Format aus, man kann verarbeiten, der nächste Read löst dann auch sofort aus mit dem nächsten Format. Sollte allerdings nur in einem Format was erfasst sein, hält der nächste Read dann wieder an.
Man kann sich also nie sicher sein, dass auch wirklich in beide Formate etwas eingegeben wurde.
Zumal der nächste Write das noch nicht abgefragte Eingabeformat nicht überschreiben darf, sont ist ja alles weg.

Aus Handlingsgründen ist dies also überhaupt nicht empfehlenswert.
Ich persönlich sehe da auch eigentlich überhaupt keinen Bedarf.

Man könnte noch eine Alternative machen, bei der ja auch 2 Formate aktiv sein können:
Eine SFL kann auch nur 1 Satz groß sein (also nicht blätterbar) und über mehrere Zeilen gehen.
Somit hat man auch hier 2 Formate aktiv.
1. das SFLCTL-Format
2. das SFL-Format
Das 1. liest man mit Read mit Pause, das 2. liest man mit Read Subfile ohne Pause.

Und wie läuft das COBOL-Projekt sonst so?
Ich dachte, du meldest dich einfach mal und berichtest;-).