Does a logical OR between the bits of two data items.
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.
or
pic x(8) comp-5 (64-bit native programs only)
|
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: