Re: BITON/TESTB RPG/FREE

Well, there's not much point in setting on a bit that has just be tested to be on. It won't get any 'onner'. What matters, though, is whether indicators 16 and 17 play any role outside this code segment. If they don't, you can just remove these lines; if they do, it should be:

if (%bitand(mask : fieldF) = mask); // test if bit 2 is on
*in16 = *on;
*in17 = *on;
else;
*in16 = *off;
*in17 = *off;
endif;

Joep Beckeringh



Adam Glauser schreef:

D mask like(fieldF)
/free
mask = x'30'; // binary 00100000

if (%bitand(mask : fieldF) = mask); // test if bit 2 is on
fieldF = %bitor(mask : fieldF); // set on bit 2
endif;

/end-free

Let me know if you need more explanation about why %bitand() and %bitor() can be used to test and set bits.

HTH,
Adam