>>>>Hi All:
>>>>
>>>>I have a VARBINARY field in my table called varb with a value of, say, 0h0000011111. I want to set up ten fields in my table (R1 to R10) that represents each bit, so that the user can easily change each bit.
>>>>
>>>>What syntax would I use to transfer each bit to the proper field such as:
>>>>
>>>>

>>>>Replace R8 with substr(varb,8,1) - which doesn't work.
>>>>

>>>>
>>>>THEN, once the user has completed his task, I would need the equivalent of
>>>>
>>>>

>>>>Replace varb with CharToVarbinary(R1 + R2 ... + R10)
>>>>

>>>>
>>>>Thanks,
>>>>
>>>>Yossi
>>>
>>>
>>>

>>>Replace R8 with substr(varb,8,1)#0h0
>>>
>>>Replace varb with IIF(R1,0h1,0h0)+...
>>>
>>>

>>>
>>>you can shrink data using varb=0h0F and
>>>

>>>Replace R8 with BITTEST(varb,8)
>>>
>>>...
>>>

>>
>>Fabio:
>>
>>1. What do you mean by 'you can shrink data using varb=0h0F'
>>2. I say:
>>
>>

>>? rf_rptlvl                         0h0000000111
>varbinary is a byte base datatype
>then 0h0000000111 = 0b0000000000000000000000000000000100010001
>
>>? VARTYPE(rf_rptlvl)       Q
>>? BITTEST(rf_rptlvl,1)      .F.
>
>* BITTEST check the bit within the varbynary string 
>* - start with left first byte
>* - for each byte lower bit is map to 0 index
>* then
>FOR k=0 TO 15
> ? m.k,BITTEST(0h1480,m.k)
>next
>
>* print
>* 4
>         0 .F.
>         1 .F.
>         2 .T.
>         3 .F.
>* 1
>         4 .T.
>         5 .F.
>         6 .F.
>         7 .F.
>* 0
>         8 .F.
>         9 .F.
>        10 .F.
>        11 .F.
>* 8
>        12 .F.
>        13 .F.
>        14 .F.
>        15 .T.
>>

>>
>>Shouldn't I be getting .T. on the BITTEST(rf_rptlvl,1)? What am I doing wrong?
>>
>>3. How can I accomplish:
>>
>>

>>? rf_rptlvl                         0h0000000011
>>? ConvertToRegularNumeric(rf_rpflvl) = 3    .T.
>>

>>
>>Thanks,
>>
>>Yossi

Fabio:

Thanks! You gave me the info I need.

Yossi