Hex-Umwandlung

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