call "CBL_NOT" using    target
               by value length


  Using call prototype (see Key) Picture
target cblt-x1-compx Any data item.
length cblt-os-size Numeric literal or pic x(4) comp-5.

On Entry:

target The data to operate on.

On Exit:

target The data with the bits inverted.
length The number of bytes of target to change. Positions beyond this are unchanged.


The routine starts at the left-hand end of target and inverts bits. The truth table for this is:

before after
0 1
1 0