Hex-Umwandlung

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