call "CBL_XOR" 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 One of the data items to exclusive-OR.
target The other data item to exclusive-OR.
length The number of bytes of source and target to exclusive-OR. Positions in target beyond this are unchanged.

On Exit:

target The result.


The routine starts at the left-hand end of source and target and exclusive-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 0