Cobol/400: Fehler LBE7207

[Commander]

Hallo,

ich bin erst relativ kurz mit der AS/400 beschäftigt und habe vorher Cobol auf VMS programmiert.

Ich will nun einen in DDS definierten Screen in Cobol handlen. Das Programm kompiliert auch, nur bei der Ausführung bekomme ich einen Absturz mit Fehler LBE7207. Ich habe keine Vorstellung, was der im Zusammenhang mit einem "Transactional" File bedeuten soll. Vielleicht kann mir hier jemand den richtigen Weg weisen? Danke im voraus.

Hier der Anfang des Debug-Ausdrucks:

Ausnahme LBE7207 bei COBOL-Anweisung 71 in Programm BAK100 in VEN1.

Die letzte Ein-/Ausgabeoperation wurde bei Anweisung 71 durchgeführt.
LBE7903-Informationen zu Datei F-SCHIRM-DATEI.

LBE7905-Datei ist eröffnet.

LBE7906-Die letzte Ein-/Ausgabeoperation für die Datei war WRITE.

LBE7907-Der letzte Dateistatus für die Datei war 9K.

LBE7910-Letzter erweiterter Dateistatus für die Datei war 83E0.
LBE7903-Informationen zu Datei F-KONTEN-DATEI.

LBE7904-Datei ist nicht eröffnet.
FORMATTED DATA DUMP FOR PROGRAM BAK100.VEN1

Der Compileroutput ist bei Bedarf hier einsehbar: http://people.freenet.de/w009/bak100.cob

[Fuerchau]

Kleiner Gedankenfehler:

WRITE F-SCHIRM-REC FORMAT IS BSK000-O.

In diesem Fall erwartet die Laufzeit den Formatnamen in der Variablen BSK000-O !
Richtig wäre hier:

WRITE F-SCHIRM-REC FORMAT IS "BSK000".

[Commander]

Vielen Dank! Gleichen Denkfehler beim READ erkannt und beseitigt ;)