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 Key)	Picture
`source`	cblt-x1-compx	Any data item.
`target`	cblt-x1-compx	Any data item.
`length`	cblt-os-size	Numeric literal pic x(4) comp-5 or pic x(8) comp-5 (64-bit native programs only)

Using call prototype (see Key)

Picture

source

cblt-x1-compx

Any data item.

target

cblt-x1-compx

Any data item.

length

cblt-os-size

Numeric literal

pic x(4) comp-5

pic x(8) comp-5 (64-bit native programs only)

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