CBL_OR

Syntax:

call "CBL_OR" 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 or pic x(4) comp-5.

On Entry:

`source`	Source data to OR into the target data.
`target`	Target data to be ORed with the source data.
`length`	The number of bytes of `source` and `target` to OR. Positions in `target` beyond this are unchanged.

On Exit:

target

The result of Oring source with target.

Comments:

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

`source`	`target`	result
0	0	0
0	1	1
1	0	1
1	1	1