Let suggest you need to get value of bit 200 from your string MyField:
BitN = 200
? BITTEST(asc(substr(MyField, BitN/8 + 1, 1)), BitN % 8)
Let suggest you need change bit 200 in your string:
BitN = 200
BytePos = BitN/8 + 1
ResultString = ;
STUFF(MyField, BytePos, 1, CHR( ;
BITSET(asc(substr(MyField, BytePos, 1)), BitN % 8) ;
))
[sig]<p>Vlad Grynchyshyn<br><a href=mailto:vgryn@softserve.lviv.ua>vgryn@softserve.lviv.ua</a><br>[/sig]