COBOL embedded SQL

[B.Hauser]

gelöscht, da doppelt gepostet

Birgitta

[KingofKning]

Danke Dir für den Hinweis, werde ich morgen ausprobieren, lasse gerade ein rclstg auf der Kiste laufen.
Ich befürchte das ich morgen wieder in die Firma fahren muß da er nach dem rclstg ja wohl kein Subsystem startet um aus der Frene zuzugreifen.

GG

[KingofKning]

Hallo,
manchmal ist es zum Mäusemelken... BTW, war heute in der Firma um die AS/400 nach dem rclstg neu zu starten und habe festgestellt das mein Weihnachtsmann von einer Maus angeknabbert wurde...... Danke.

Aber zum Thema.

Folgende Deklaration habe ich:
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 SQL-WERT-9 PIC 9(04).
01 SQL-WERT-X PIC X(04).
EXEC SQL END DECLARE SECTION END-EXEC.

Und folgenden Code will ich benutzen:

ST-04.
MOVE WERT-9 TO SQL-WERT-9.
EXEC SQL SET :SQL-WERT-X = CAST(HEX(:SQL-WERT-9) AS CHAR(04))
END-EXEC.
GO TO ST-88.

Und die Fehlermeldung lautet:
49 EXEC SQL SET :SQL-WERT-X = CAST(HEX(:SQL-WERT-9)
5722ST1 V5R4M0 060210 SQL-COBOL-Programm erstellen DOSBANK
DIAGNOSENACHRICHTEN
MSG ID WTK SATZ TEXT
SQL0312 30 49 Position 49 Variable SQL-WERT-9 nicht definiert oder
nicht verwendbar.

Für Hinweise dankbar.

GG

[KingofKning]

Tja, die allwissende Müllhalde hat ab und zu auch antworten parat.

Es muss wie folgt definiert werden:
01 SQL-WERT-9 PIC S9(07) COMP-3.

Dann klappt es auch.

GG

[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.

[KingofKning]

Nein, gewollt habe ich es nicht, wie aber immer an Weihnachten bekommt man auch Dinge die man nicht will ;-)

Habe nun substr benutzt und schlußendlich nach dem Motto: Du wiilst es, Du kriegst es doch meinen Wert bekommen...

GG