Hex-Umwandlung

[alex61]

Hallo zusammen,

folgende Frage:

ich habe in einem RPG-Programm ein normales Feld mit z.B. folgendem Inhalt:

FeldA - Inhalt: 10001011

In einem FeldB möchte ich diesen Inhalt nun in Hex abspeichern. Wie geht so was ?

Danke für Infos, Gruß A.

[Andreas_Prouza]

Verstehe ich das richtig, du hast im FeldA einen Binären String den du als Hex String in FeldB haben willst?

[alex61]

Hallo, ja genauso isses !

[RobertMack]

Wenn's nur diese kleine, einmalige Aufgabe ist: zweimal %SCANRPL

Falls hinter dieser Frage etwas größeres steht, sollten wir das wissen (EBCDIC/ASCII, Base64 & Co. ;- )

[Fuerchau]

Nun, ggf. kennt ja jemand noch die Befehle BITON und BITOFF.
Damit solltest du das doch noch hinbekommen.
Als Free-Version gibts da %bitor(....).

[alex61]

vielen Dank an alle Helfenden. Werde das auprobieren. Grüße A.

[B.Hauser]

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:

Values(Interpret(BX'10001011' as Integer));

Im RPG könnte die Konvertierung dann wie folgt aussehen:

  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;

[alex61]

lieben Dank für die Hilfe !! Grüße A.

[alex61]

Hallo nochmals, also BIN => HEX funktioniert einwandfrei. Umgekehrt ginge das dann auch ?

Also dann HEX => BIN

LG

[B.Hauser]

Versuch mal ob Du mit der SQL-Funktion HEX das gewünschte Ergebnis bekommst:

Values(Cast(Hex(Integer(256)) as Char(50)));

Oder im RPG

  DCL-S  Value    Int(10);               
  DCL-S  Text     Char(50);              
                                         
   Value = 256;                          
   Exec SQL Set :Text = Hex(:Value);     
   Dsply Text;

[alex61]

Hallo und vielen lieben Dank für die Hilfe. Ich probiere das mal aus und melde mich nochmals. Das erste RPG hat TOP !!! geklappt. Danke.

[Fuerchau]

HEX liefert leider nur '00' bis 'FF' und nicht binär.
Du kannst aber eine Tabelle "bits" mit den Hexwerten
x'01', x'02', x'04', ... x'80'
erstellen.

Dann
dcl-s fromChar char(1);
dcl-s binvalue varchar(8) inz;
dcl-s index bin(5);

for index = 1 to 8;
if %bitand(fromChar:bits(index)) > x'00';
binvalue += '1';
else;
binvalue += '0';
next;

Darüber kann man auch eine Funktion schreiben.