The 'BITTEST' functionality can be provided by the following simple
Basic function :
FUNCTION BITTEST(var1,var2)
IF BITAND(var1,( 2 ^ var2)) THEN
RETURN (1)
END ELSE
RETURN (0)
END
Create the above Basic source item, called ( say ) 'BP BITTEST'
Compile and CATALOG 'BP BITTEST', eg :
BASIC BP BITTEST
CATALOG BP BITTEST
Add a :
DEFFUN BITTEST(a,b)
line to your test program, eg :
DEFFUN BITTEST(a,b)
CRT BITTEST(11, 0)
CRT BITTEST(11, 1)
[ The Globus Includes 'I_COMMON' and 'I_EQUATE' are NOT required in
your test program ]
Compile and CATALOG your test program
Hope this helps,
Pat.
On 8 Feb, 14:26, Road Jogger <[email protected]> wrote:
> Hi All,
>
> The function BITTEST doesnt seem to work even though its defined in the
> manual..... I have a very simple program....
>
> PROGRAM TEST1
>
> $INSERT I_COMMON
> $INSERT I_EQUATE
> *
> PRINT BITTEST(11, 0)
> PRINT BITTEST(11, 1)
> *
> RETURN
> STOP
>
> When I compile this routine, it gives me an error that BITTEST is an
> assumed DIMENSIONED ARRAY..... but no DIM statement was found.
>
> jBASE Release : jBASE 5.0 Minor 21
> AIX Version : 5.3
> Kernet Type : 64 Bit....
>
> Basically we are converting our database from Universe from jBASE.... and
> BITTEST was used in universe....
>
> If BITTEST is not used in jBASE, then whats the equivalent of the same....
>
> Regards,
> Nara
--
Please read the posting guidelines at:
http://groups.google.com/group/jBASE/web/Posting%20Guidelines
IMPORTANT: Type T24: at the start of the subject line for questions specific to
Globus/T24
To post, send email to [email protected]
To unsubscribe, send email to [email protected]
For more options, visit this group at http://groups.google.com/group/jBASE?hl=en
