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:
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: