CBL_XOR performs a binary, bitwise
exclusive or operation on a series of bytes.
USING SOURCE, DEST, LENGTH
|SOURCE PIC X(n)
|| The source bytes for the operation.
|DEST PIC X(n)
|| The destination bytes for the operation.
|LENGTH Numeric parameter (optional)
|| Describes the number of bytes to combine. If omitted, then CBL_XOR uses the minimum of the size of SOURCE and the size of
|STATUS Any numeric data item
|| Contains the return status of the operation. Returns
0 if successful,
1 if not. This routine always succeeds, so STATUS always contains a zero.
For LENGTH bytes, each byte of SOURCE is combined with the corresponding byte of DEST. The result is stored back into DEST.
The bytes are combined by performing an
operation between each bit of the bytes. The
operation uses the following table to determine the result: