CBL_XOR performs a binary, bitwise "exclusive or" operation on a series of bytes.
Usage
CALL "CBL_XOR" USING SOURCE, DEST, LENGTH GIVING STATUS
Parameters
SOURCE PIC X(n)
Data area containing the source bytes for the operation
DEST PIC X(n)
Data area containing 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 DEST.
STATUS Any numeric data item
Contains the return status of the operation. Returns zero if successful, 1 if not. This routine always succeeds, so STATUS always contains a zero.
Description
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 "exclusive or" operation between each bit of the bytes. The "exclusive or" operation uses the following table to determine the result:
| Xor
| 0
| 1
|
| 0
| 0
| 1
|
| 1
| 1
| 0 |