COBOL Feldprüfung

[pethol]

Guten Tag,

Ich habe folgende Problem:
Ein mit PIC 9(3) definiertes numerisches Feld, könnte möglicherweise
durch Fehleingaben auf einen Wert zugewiesen bekommen der
Alphanumerisch ist.
Die Datenbank aus der mein Programm die Daten per Cursor ausliest
darf alle Werte enthalten.

Kennen sie eine Möglichkeit die Inhalte darauf zu prüfen, ob
sie numerisch oder alpahnumerisch sind BEVOR das Programm sie
in das Zielfeld von COBOL schreiben will.
Denn dabei wird ein Programmfehler erzeugt.

Daran wollte ich dann eine Fehlerausgabe knüpfen, wenn ein solcher
falscher Wert erkannt wird.

Ich kenne zwar NUMVAL aber bin nicht sicher ob dieser Befehl
auch Alphanumerische Zeichen verarbeiten kann!

Vielen Dank für ihre Mühe
und Gruß
Hope

[akorb]

Hallo,

Man kann den Feldinhalt eine numerischen Feldes mit dem Befehl IF NOT NUMERIC prüfen. Wernn dort ein Fehler kommt, ist der Inhalt nicht korrekt.

Gruss
akorb

[pethol]

Ist das auch machbar innerhalb des definierten CURSORS,
da ich dort Zeilenweise die Tabelle auslese an die COBOL Felder übergebe?

[Fuerchau]

Wenn Daten per SQL aus einer Datei kommen, können nur gültige Werte kommen.
Ansonsten ist die Typ-Prüfung nach dem FETCH ja in COBOL (w.o.) durchführbar.