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:
Im RPG könnte die Konvertierung dann wie folgt aussehen:Code:Values(Interpret(BX'10001011' as Integer));
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;
![[NEWSboard IBMi Forum]](images/duke/nblogo.gif)



Mit Zitat antworten
Bookmarks