COBOL embedded SQL

[Fuerchau]

Hier sind verschiedene Sachen vermischt.
PIC 9(04) kann nicht verwendet werden, da SQL aus irgendwelchen Gründen kein Unsigned mag.
PIC S9(04) währe gegangen.
Allerding liefert die Funktion HEX eine Zeichenkette doppelter Länge!
Ein CAST(... char(4)) führt zum Abschneiden, was ohne NULL-Anzeiger zu einem negativen SQL-Code führt. Mit Nullanzeiger entspricht dies eher einem LEFT(HEX(...), 4).
Ob du das gewollt hast?

Und das Ergebnis von HEX(: SQL-WERT-9) ist nun auch 8 Bytes lang.

[nico1964]

Immerhin hast du ja DDS-Beschriebene, es gibt aber gerade in COBOL noch die intern Beschriebenen.
Die behindern aber massiv den Einsatz von SQL.
Die DDS-Tabellen stellen für SQL ja überhaupt kein Problem dar.

JA das stimmt schon und wir haben da Gott sei Dank weniger Probleme, da ich die Programme im intern Beschriebenen wahrscheinlich an einer Hand abzählen kann.. ggg