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