TESTN/BITON/BITOFF

["Jon Sinner" <jsinner@xxxxxxxxxx>]

I am trying to convert some code to free format.  I have searched the
archived and found many posts about the use of 

%BITAND and %BITOR.  Maybe it is because it is late on Friday, but I
just do understand the bit masks and how to use these BIF's.

 

Can someone show me how to convert the following code to free.  I would
really appreciate it.

 

     C                   TESTB     '0'           Out(Idx)             50
OFF

     C                   IF        *IN50

     C                   BITON     '0'           Out(Idx)

     C                   ELSE

     C                   BITOFF    '0'           Out(Idx)

     C                   ENDIF

     C*

     C                   TESTB     '2'           Out(Idx)             50
OFF

     C                   IF        *IN50

     C                   BITON     '2'           Out(Idx)

     C                   ELSE

     C                   BITOFF    '2'           Out(Idx)

     C                   ENDIF

     C*

     C                   TESTB     '3'           Out(Idx)             50
OFF

     C                   IF        *IN50

     C                   BITON     '3'           Out(Idx)

     C                   ELSE

     C                   BITOFF    '3'           Out(Idx)

     C                   ENDIF

     C*

     C                   TESTB     '5'           Out(Idx)             50
OFF

     C                   IF        *IN50

     C                   BITON     '5'           Out(Idx)

     C                   ELSE

     C                   BITOFF    '5'           Out(Idx)

     C                   ENDIF

     C*

     C                   TESTB     '7'           Out(Idx)             50
OFF

     C                   IF        *IN50

     C                   BITON     '7'           Out(Idx)

     C                   ELSE

     C                   BITOFF    '7'           Out(Idx)

     C                   ENDIF

 

 

Thanks

 

Jon