CBL_EQ

Does a logical EQUIVALENCE between the bits of two data items.

Syntax:
call "CBL_EQ" using    source
                       target
              by value length
Parameters:
Using call prototype (see Library Routines - Key) Picture (32-bit systems)
source cblt-x1-compx Any data item.
target cblt-x1-compx Any data item.
length cblt-os-size Numeric literal or pic x(4) comp-5.
On Entry:
source One of the data items to EQUIVALENCE.
target The other data item to EQUIVALENCE.
length The number of bytes of source and target to EQUIVALENCE. Positions in target beyond this length are unchanged.
On Exit:
target The result.
Comments:

The routine starts at the left-hand end of source and target and EQUIVALENCEs the bits together, storing the result in target. The truth table for this is:

source target result
0 0 1
0 1 0
1 0 0
1 1 1
See Also: