Vielleicht habe ich es noch nicht ganz verstanden, aber das sollte mit der SQL-Funktion INTERPRET gehen. Du musst lediglich den Wert in der Variablen als Binary Hex angeben:
Code:
Values(Interpret(BX'10001011' as Integer));
Im RPG könnte die Konvertierung dann wie folgt aussehen:
Code:
DCL-S BinVar Char(8) inz('10001011');
DCL-S CmdSQL VarChar(256);
DCL-S Value Int(10);
//*********************************************************************
CmdSQL = 'Values(Interpret(BX''' + BinVar + ''' as Integer)) +
into ?';
Exec SQL Prepare DynSQL from :CmdSQL;
Exec SQL Execute DynSQL Using :Value;
Dsply Value;
Return;
Bookmarks