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