call "CBL_OR" using    source
              by value length


  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.


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