Pufferlänge größer als Satz für Teildatei?

[rebe]

Hallo!

Für folgende Fehlermeldung im Joblog habe ich keine Erklärung:

Nachrichten-ID . . . . : CPF4011 Bewertung . . . . . . : 10
Nachrichtenart . . . . : Diagnose
Sendedatum . . . . . . : 15.12.03 Sendezeit . . . . . . : 17:03:13

Nachricht . . . : Pufferlänge größer als Satz für Teildatei CUWTABPF.
Ursache . . . . : Die Dateisatzlänge für Teildatei CUWTABPF in Datei
CUWTABPF in Bibliothek CWTEST ist 89. Die Länge des Puffereintrags ist 153.
Der Rest des Puffereintrags wird mit Leerzeichen aufgefüllt.
Fehlerbeseitigung: Falls erforderlich die im Programm angegebene Satzlänge
auf die Länge des längsten Satzes in der Teildatei ändern. Anschließend die
Anforderung wiederholen.


Diese Fehlermeldung tritt nach einem "OPEN INPUT CUWTABPF" in einem CBLLE-Programm auf.

Quellcode:
========
* Parameterdatei
SELECT CUWTABPF ASSIGN TO DATABASE-CUWTABPF
ORGANIZATION IS INDEXED
ACCESS IS DYNAMIC
RECORD KEY IS EXTERNALLY-DESCRIBED-KEY.

FD CUWTABPF LABEL RECORDS ARE STANDARD.
01 CUWTABPF-REC.
COPY DDS-ALL-FORMATS OF CUWTABPF.

Umwandlungsliste:
==============

FD CUWTABPF LABEL RECORDS ARE STANDARD.
01 CUWTABPF-REC.
COPY DDS-ALL-FORMATS OF CUWTABPF.
05 CUWTABPF-RECORD PIC X(89).
I-O FORMAT:ORGTAB FROM FILE CUWTABPF OF LIBRARY CWTEST
ORGANISATIONS-TABELLEN
E KEY DEFINITIONS FOR RECORD FORMAT ORGTAB
NUMBER NAME RETRIEVAL ALTSEQ
0001 ORFINR ASCENDING NO
0002 ORBRCH ASCENDING NO
0003 ORTABL ASCENDING NO
0004 ORARGM ASCENDING NO
05 ORGTAB REDEFINES CUWTABPF-RECORD.
06 ORFINR PIC S9(3) COMP-3.
FIRMEN NUMMER
06 ORBRCH PIC X(3).
ORG-BEREICH
06 ORTABL PIC X(3).
ORG-TABELLE
06 ORARGM PIC X(10).
ORG-ARGUMENT
06 ORERG1 PIC S9(10).
ORG-ERGEBNIS 1
06 ORERG2 PIC X(60).
ORG-ERGEBNIS 2
06 ORSTAT PIC X(1).
ORG-STATUS

Wie kommt der Job jetzt auf eine Pufferlänge von 153??

Da diese Meldung im Joblog eines Jobs sehr häufig auftritt, ist die Suche nach anderen Fehlermeldungen echt nervig.

Wer kann helfen??

Vielen Dank.

Schöne Grüße
Reiner

[Fuerchau]

Der Auszug deiner Quelle ist etwas dürftig.
Prüfe doch mal, ob auf den COPY-DDS nicht noch eine weiter 01-Definition oder sonstwas folgt ?

Nach dem COPY dürfte allenfalls eine weitere FD bzw. WORKING-STORAGE folgen. Ich glaube aber dass dem nicht so ist !!

[rebe]

Herr Fürchau, Herr Fürchau,

was soll ich sagen.

Sie haben natürlich Recht. Nach dem FD Eintrag kommt ein Copy-Eintrag, der eigentlich in die nachfolgende Working-Storage Section gehört. Das habe ich in der Umwandlungsliste immer überlesen.

Vielen Dank für Ihre Hilfe.

Schöne Grüße
Reiner Beimdiek